Télécharger j3head.eso

Retour à la liste

Numérotation des lignes :

  1. C J3HEAD SOURCE CHAT 05/01/13 00:46:45 5004
  2. SUBROUTINE J3HEAD(WWORK,VWORK)
  3. C----------------------------------------------------
  4. C HEADER DE LA FACE WWORK DANS TOUTES LES FACES DE VWORK
  5. C
  6. C PP 9/97
  7. C Pierre Pegon/JRC Ispra
  8. C----------------------------------------------------
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8(A-H,O-Z)
  11. C
  12. SEGMENT WWORK
  13. REAL*8 PORIG(3),VNORM(3),VI(3),VJ(3)
  14. INTEGER FWORK
  15. INTEGER TWORK(NTROU)
  16. ENDSEGMENT
  17. POINTEUR WWORK1.WWORK
  18. C
  19. SEGMENT VWORK
  20. INTEGER FWWORK(NFACE)
  21. ENDSEGMENT
  22. C
  23. NFACE=FWWORK(/1)
  24. DO IE1=1,NFACE
  25. WWORK1=FWWORK(IE1)
  26. DO IE2=1,3
  27. WWORK1.PORIG(IE2)=PORIG(IE2)
  28. WWORK1.VNORM(IE2)=VNORM(IE2)
  29. WWORK1.VI(IE2) =VI(IE2)
  30. WWORK1.VJ(IE2) =VJ(IE2)
  31. ENDDO
  32. ENDDO
  33. C
  34. RETURN
  35. END
  36.  
  37.  
  38.  

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