Télécharger pfprw4.eso

Retour à la liste

Numérotation des lignes :

  1. C PFPRW4 SOURCE CB215821 16/09/21 21:15:09 9099
  2. subroutine pfprw4(fid, pname, psize, profil, profi4, cret)
  3.  
  4. C **********************************************************************
  5. C Ecrire un profil dans un fichier MED
  6. C profi4 est initialement dans un SEGMENT en INTEGER
  7. C - En 32-Bits aucun soucis , les tableaux sont de la même longueur
  8. C - En 64-bits, le tableau donne est 2 fois plus long mais ce n'est
  9. C pas grave : on le redeclare plus court en INTEGER*4 !!!
  10. C **********************************************************************
  11.  
  12. integer*4 fid
  13. character *(*) pname
  14. integer*4 psize
  15. integer profil(*)
  16. integer*4 profi4(*)
  17. integer*4 cret
  18.  
  19. DO indice=1,psize
  20. C Conversion d'un tableau d'INTEGER*8 en INTEGER*4
  21. profi4(indice)=profil(indice)
  22. ENDDO
  23.  
  24. C APPEL à la fonction contenue dans la librairie MED 3.0
  25. CALL mpfprw (fid, pname, psize, profi4, cret)
  26.  
  27. RETURN
  28. END
  29.  
  30.  
  31.  

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