Télécharger mhfnr4.eso

Retour à la liste

Numérotation des lignes :

  1. C MHFNR4 SOURCE CB215821 19/10/30 21:15:15 10360
  2. SUBROUTINE mhfnr4(fid, name, numdt, numit, entype, geotyp,
  3. & num8, num4, cret, taille)
  4.  
  5. C***********************************************************************
  6. C MED3.0 : Lecture des numéros de famille d'un type d'entité d'un
  7. C maillage
  8. C num4 est initialement dans un SEGMENT en INTEGER
  9. C - En 32-Bits aucun soucis , les tableaux sont de la même longueur
  10. C - En 64-bits, le tableau donne est 2 fois plus long mais ce n'est
  11. C pas grave : on le redeclare plus court en INTEGER*4 !!!
  12. C***********************************************************************
  13.  
  14. implicit integer(i-n)
  15. implicit real*8(a-h,o-z)
  16.  
  17. C Declarations
  18. C Attention en MED 4.X fid passe en INTEGER*8 ==> Je le lis en REAL*8 pour avoir la bonne taille !
  19. REAL*8 fid
  20.  
  21. character *(*) name
  22. integer*4 numdt
  23. integer*4 numit
  24. integer*4 entype
  25. integer*4 geotyp
  26.  
  27.  
  28. integer*4 cret
  29. integer taille
  30. integer num8(*)
  31. integer*4 num4(*)
  32.  
  33. CALL mmhfnr (fid, name, numdt, numit, entype, geotyp, num4, cret)
  34.  
  35.  
  36. DO ii=1,taille
  37. C Conversion d'un tableau d'INTEGER*4 en INTEGER*8
  38. num8(ii)=num4(ii)
  39. ENDDO
  40. END
  41.  
  42.  
  43.  
  44.  

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