Télécharger mhfnr4.eso

Retour à la liste

Numérotation des lignes :

  1. C MHFNR4 SOURCE CB215821 16/09/21 21:15:07 9099
  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. integer*4 fid
  15. character *(*) name
  16. integer*4 numdt
  17. integer*4 numit
  18. integer*4 entype
  19. integer*4 geotyp
  20. integer*4 cret
  21. integer taille
  22. integer num8(*)
  23. integer*4 num4(*)
  24.  
  25. CALL mmhfnr (fid, name, numdt, numit, entype, geotyp, num4, cret)
  26.  
  27. DO ind_i=1,taille
  28. C Conversion d'un tableau d'INTEGER*4 en INTEGER*8
  29. num8(ind_i)=num4(ind_i)
  30. ENDDO
  31.  
  32. RETURN
  33. END
  34.  
  35.  
  36.  

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