C J3HEAD    SOURCE    CHAT      05/01/13    00:46:45     5004
      SUBROUTINE J3HEAD(WWORK,VWORK)
C----------------------------------------------------
C     HEADER DE LA FACE WWORK DANS TOUTES LES FACES DE VWORK
C
C     PP 9/97
C     Pierre Pegon/JRC Ispra
C----------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C
      SEGMENT WWORK
        REAL*8 PORIG(3),VNORM(3),VI(3),VJ(3)
        INTEGER FWORK
        INTEGER TWORK(NTROU)
      ENDSEGMENT
      POINTEUR WWORK1.WWORK
C
      SEGMENT VWORK
        INTEGER FWWORK(NFACE)
      ENDSEGMENT
C
      NFACE=FWWORK(/1)
      DO IE1=1,NFACE
        WWORK1=FWWORK(IE1)
        DO IE2=1,3
          WWORK1.PORIG(IE2)=PORIG(IE2)
          WWORK1.VNORM(IE2)=VNORM(IE2)
          WWORK1.VI(IE2)   =VI(IE2)
          WWORK1.VJ(IE2)   =VJ(IE2)
        ENDDO
      ENDDO
C
      RETURN
      END