Télécharger mpfpr4.eso

Retour à la liste

Numérotation des lignes :

mpfpr4
  1. C MPFPR4 SOURCE OF166741 24/01/11 21:15:05 11811
  2. C***********************************************************************
  3. C NOM : mpfpr4.eso
  4. C DESCRIPTION : Conversion d'un profil lu en INTEGER*4 en INTEGER
  5. C***********************************************************************
  6. C HISTORIQUE : 23/10/2017 : RPAREDES : Creation
  7. C HISTORIQUE :
  8. C***********************************************************************
  9. C Prière de PRENDRE LE TEMPS DE COMPLÉTER LES COMMENTAIRES
  10. C en cas de modification de ce sous-programme afin de faciliter
  11. C la maintenance !
  12. C***********************************************************************
  13. C APPELE PAR : source lmdchp.eso
  14. C***********************************************************************
  15. C ENTREES :
  16. C MFID : Id du fichier
  17. C NAME : nom du profil
  18. C n : taille du profil
  19. C NUM4 : profil lu en INTEGER*4
  20. C SORTIE : NUM8 : profil converti en INTEGER
  21. C***********************************************************************
  22. SUBROUTINE MPFPR4 (mfid, pname, n, num8, num4, mcret)
  23.  
  24. IMPLICIT INTEGER(i-n)
  25. IMPLICIT REAL*8(a-h,o-z)
  26.  
  27. -INC S4MED
  28.  
  29. CHARACTER*(*) pname
  30. INTEGER num8(*)
  31. INTEGER*4 num4(*)
  32.  
  33. C Lecture d'un profil dans un fichier MED :
  34. CALL mpfprr(mfid, pname, num4, mcret)
  35.  
  36. C Conversion des INTEGER*4 lu en INTEGER de Cast3M
  37. DO i = 1, n
  38. num8(i) = num4(i)
  39. ENDDO
  40.  
  41. c return
  42. END
  43.  
  44.  
  45.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales