mpfpr4
C MPFPR4 SOURCE OF166741 24/01/11 21:15:05 11811 C*********************************************************************** C NOM : mpfpr4.eso C DESCRIPTION : Conversion d'un profil lu en INTEGER*4 en INTEGER C*********************************************************************** C HISTORIQUE : 23/10/2017 : RPAREDES : Creation C HISTORIQUE : C*********************************************************************** C Prière de PRENDRE LE TEMPS DE COMPLÉTER LES COMMENTAIRES C en cas de modification de ce sous-programme afin de faciliter C la maintenance ! C*********************************************************************** C APPELE PAR : source lmdchp.eso C*********************************************************************** C ENTREES : C MFID : Id du fichier C NAME : nom du profil C n : taille du profil C NUM4 : profil lu en INTEGER*4 C SORTIE : NUM8 : profil converti en INTEGER C*********************************************************************** IMPLICIT INTEGER(i-n) IMPLICIT REAL*8(a-h,o-z) -INC S4MED CHARACTER*(*) pname INTEGER num8(*) INTEGER*4 num4(*) C Lecture d'un profil dans un fichier MED : CALL mpfprr(mfid, pname, num4, mcret) C Conversion des INTEGER*4 lu en INTEGER de Cast3M DO i = 1, n num8(i) = num4(i) ENDDO c return END
© Cast3M 2003 - Tous droits réservés.
Mentions légales