Sources Esope | Cast3M

j3vplu
C J3VPLU    SOURCE    CHAT      05/01/13    00:47:43     5004
      SUBROUTINE J3VPLU(VWORK1,VWORK2)
C----------------------------------------------------
C     ON AJOUTE VWORK2 A VWORK1
C
C     PP 6/97
C     Pierre Pegon/JRC Ispra
C----------------------------------------------------
      IMPLICIT INTEGER(I-N)
      SEGMENT VWORK
        INTEGER FWWORK(NFACE)
      ENDSEGMENT
      POINTEUR VWORK1.VWORK,VWORK2.VWORK
C
      IF(VWORK1.EQ.0)THEN
        VWORK1=VWORK2
      ELSE
        IF(VWORK2.NE.0)THEN
          NFACE2=VWORK2.FWWORK(/1)
          NFACE1=VWORK1.FWWORK(/1)
          NFACE=NFACE1+NFACE2
          SEGADJ,VWORK1
          DO IE1=1,NFACE2
            VWORK1.FWWORK(NFACE1+IE1)=VWORK2.FWWORK(IE1)
          ENDDO
          SEGSUP,VWORK2
        ENDIF
      ENDIF
C
      RETURN
      END