link ../../../EXTERNAL/IOIPSL/src/mathelp.f90