Esope source files

   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 :