Télécharger mhpgw4.eso

Retour à la liste

Numérotation des lignes :

mhpgw4
  1. C MHPGW4 SOURCE OF166741 24/01/11 21:15:05 11811
  2. C MHPGW4 SOURCE
  3.  
  4. C **********************************************************************
  5. C Ecriture de la connectivite des POLYGONEs de MED
  6. C num4 est initialement dans un SEGMENT en INTEGER
  7. C - En 32-bits aucun souci, les tableaux sont de la meme longueur
  8. C - En 64-bits, le tableau donne est 2 fois plus long mais ce n'est
  9. C pas grave : on le redeclare plus court en INTEGER*4 !!!
  10. C **********************************************************************
  11.  
  12. subroutine mhpgw4 (mfid, name, numdt, numit, dt, metype, mcmode,
  13. & num81,num82, num4, mcret, n81,n82)
  14.  
  15. implicit integer(i-n)
  16. implicit real*8(a-h,o-z)
  17.  
  18. -INC S4MED
  19.  
  20. character*(*) name
  21. integer num81(*),num82(*)
  22. integer*4 num4(*)
  23. real*8 dt
  24.  
  25. C Conversion des 2 tableaux de INTEGER*8 en un tableau d'INTEGER*4
  26. DO i = 1, n81
  27. num4(i) = num81(i)
  28. ENDDO
  29. DO i = 1, n82
  30. num4(n81+i) = num82(i)
  31. ENDDO
  32.  
  33. C Appel a la fonction contenue dans la librairie MED
  34. CALL mmhpgw(mfid, name, numdt, numit, dt, metype, mcmode,
  35. & n81, num4(1), num4(n81+1), mcret)
  36.  
  37. C RETURN
  38. END
  39.  
  40.  
  41.  
  42.  

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