Esope source files

   1 : C J3VPLU    SOURCE    CHAT      05/01/13    00:47:43     5004           
   2 :       SUBROUTINE J3VPLU(VWORK1,VWORK2)
   3 : C----------------------------------------------------
   4 : C     ON AJOUTE VWORK2 A VWORK1
   5 : C
   6 : C     PP 6/97
   7 : C     Pierre Pegon/JRC Ispra
   8 : C----------------------------------------------------
   9 :       IMPLICIT INTEGER(I-N)
  10 :       SEGMENT VWORK
  11 :         INTEGER FWWORK(NFACE)
  12 :       ENDSEGMENT
  13 :       POINTEUR VWORK1.VWORK,VWORK2.VWORK
  14 : C
  15 :       IF(VWORK1.EQ.0)THEN
  16 :         VWORK1=VWORK2
  17 :       ELSE
  18 :         IF(VWORK2.NE.0)THEN
  19 :           NFACE2=VWORK2.FWWORK(/1)
  20 :           NFACE1=VWORK1.FWWORK(/1)
  21 :           NFACE=NFACE1+NFACE2
  22 :           SEGADJ,VWORK1
  23 :           DO IE1=1,NFACE2
  24 :             VWORK1.FWWORK(NFACE1+IE1)=VWORK2.FWWORK(IE1)
  25 :           ENDDO
  26 :           SEGSUP,VWORK2
  27 :         ENDIF
  28 :       ENDIF
  29 : C
  30 :       RETURN
  31 :       END
  32 :  
  33 :