Télécharger mhfnw4.eso

Retour à la liste

Numérotation des lignes :

  1. C MHFNW4 SOURCE CB215821 16/09/21 21:15:08 9099
  2. subroutine mhfnw4 (fid, name, numdt, numit, entype, geotyp, n,
  3. & num8, num4, cret)
  4.  
  5. C **********************************************************************
  6. C Ecriture des numéros de famille dans MED 3.0
  7. C num4 est initialement dans un SEGMENT en INTEGER
  8. C - En 32-Bits aucun soucis , les tableaux sont de la même longueur
  9. C - En 64-bits, le tableau donne est 2 fois plus long mais ce n'est
  10. C pas grave : on le redeclare plus court en INTEGER*4 !!!
  11. C **********************************************************************
  12.  
  13. implicit integer(i-n)
  14. implicit real*8(a-h,o-z)
  15.  
  16. character *(*) name
  17. integer*4 numdt
  18. integer*4 numit
  19. integer*4 entype
  20. integer*4 geotyp
  21. integer*4 n
  22. integer*4 cret
  23. integer num8(*)
  24. integer*4 num4(*)
  25.  
  26. DO indice=1,n
  27. C Conversion d'un tableau d'INTEGER*8 en INTEGER*4
  28. num4(indice)=num8(indice)
  29. ENDDO
  30.  
  31.  
  32. C APPEL à la fonction contenue dans la librairie MED 3.0
  33. CALL mmhfnw (fid, name, numdt, numit, entype, geotyp, n, num4,
  34. & cret)
  35.  
  36. RETURN
  37. END
  38.  
  39.  
  40.  

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