Télécharger mhcyw4.eso

Retour à la liste

Numérotation des lignes :

  1. C MHCYW4 SOURCE CB215821 16/09/21 21:15:07 9099
  2. subroutine mhcyw4 (fid, name, numdt, numit, dt, entype, geotyp,
  3. & cmode, swm, n, con, con4, cret, ITAILL)
  4.  
  5. C **********************************************************************
  6. C Ecriture des connectivités en INTEGER*4
  7. C con4 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. IMPLICIT INTEGER(I-N)
  13. IMPLICIT REAL*8(A-H,O-Z)
  14.  
  15. integer*4 fid
  16. character *(*) name
  17. integer*4 numdt
  18. integer*4 numit
  19. real*8 dt
  20. integer*4 entype
  21. integer*4 geotyp
  22. integer*4 cmode
  23. integer*4 swm
  24. integer*4 n
  25. integer con(*)
  26. integer*4 con4(*)
  27. integer*4 cret
  28. integer ITAILL
  29.  
  30. do indice=1,ITAILL
  31. C Conversion d'un tableau d'INTEGER*8 en INTEGER*4
  32. con4(indice)=con(indice)
  33. enddo
  34.  
  35. C APPEL à la fonction contenue dans la librairie MED 3.0
  36. call mmhcyw (fid, name, numdt, numit, dt, entype, geotyp,
  37. & cmode, swm, n, con4, cret)
  38.  
  39. return
  40. end
  41.  
  42.  
  43.  

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