link ../../../LMDZ.GENERIC/libf/phystd/setspi.F90