Télécharger la plaquette Cast3M


fr en

Télécharger j3head.eso

Retour à la liste

Numérotation des lignes : 

j3head

  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