Télécharger mhcyr4.eso

Retour à la liste

Numérotation des lignes :

  1. C MHCYR4 SOURCE KK2000 14/03/11 21:15:06 7976
  2. SUBROUTINE mhcyr4 (fid, name, numdt, numit, entype, geotype,
  3. & cmode, swm, NUM8, cret, NBNN, NBELEM)
  4.  
  5. implicit integer(i-n)
  6. implicit real*8(a-h,o-z)
  7.  
  8. integer*4 fid
  9. character *(*) name
  10. integer*4 numdt
  11. integer*4 numit
  12. integer*4 entype
  13. integer*4 geotype
  14. integer*4 cmode
  15. integer*4 swm
  16. integer NUM8(*)
  17. integer*4 num4(NBNN*NBELEM)
  18. integer*4 cret
  19.  
  20.  
  21. call mmhcyr (fid, name, numdt, numit, entype, geotype,
  22. & cmode, swm, num4, cret)
  23.  
  24. DO ind_i=1,NBNN*NBELEM
  25. C Conversion d'un tableau d'INTEGER*4 en INTEGER*8
  26. NUM8(ind_i)=num4(ind_i)
  27. ENDDO
  28.  
  29.  
  30.  
  31. RETURN
  32. END
  33.  
  34.  

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