mhpgw4
C MHPGW4 SOURCE OF166741 24/01/11 21:15:05 11811 C MHPGW4 SOURCE C ********************************************************************** C Ecriture de la connectivite des POLYGONEs de MED C num4 est initialement dans un SEGMENT en INTEGER C - En 32-bits aucun souci, les tableaux sont de la meme longueur C - En 64-bits, le tableau donne est 2 fois plus long mais ce n'est C pas grave : on le redeclare plus court en INTEGER*4 !!! C ********************************************************************** subroutine mhpgw4 (mfid, name, numdt, numit, dt, metype, mcmode, & num81,num82, num4, mcret, n81,n82) implicit integer(i-n) implicit real*8(a-h,o-z) -INC S4MED character*(*) name integer num81(*),num82(*) integer*4 num4(*) real*8 dt C Conversion des 2 tableaux de INTEGER*8 en un tableau d'INTEGER*4 DO i = 1, n81 num4(i) = num81(i) ENDDO DO i = 1, n82 num4(n81+i) = num82(i) ENDDO C Appel a la fonction contenue dans la librairie MED CALL mmhpgw(mfid, name, numdt, numit, dt, metype, mcmode, & n81, num4(1), num4(n81+1), mcret) C RETURN END
© Cast3M 2003 - Tous droits réservés.
Mentions légales