Esope source files

   1 : C J3DETR    SOURCE    CHAT      05/01/13    00:46:23     5004           
   2 :       SUBROUTINE J3DETR(VWORK1)
   3 : C----------------------------------------------------
   4 : C     DESTRUCTION DU VWORK DE VWORK GLOBAL
   5 : C     PP 6/97,11/98
   6 : C     Pierre Pegon/JRC Ispra
   7 : C----------------------------------------------------
   8 :       IMPLICIT INTEGER(I-N)
   9 :       IMPLICIT REAL*8(A-H,O-Z)
  10 : -INC  CCOPTIO

  11 :       SEGMENT VWORK
  12 :         INTEGER FWWORK(NFACE)
  13 :       ENDSEGMENT
  14 :       POINTEUR VWORK1.VWORK
  15 : C
  16 :       NBLOCK=VWORK1.FWWORK(/1)
  17 :       DO IE1=1,NBLOCK
  18 :         VWORK=VWORK1.FWWORK(IE1)
  18 :         CALL J3DET1(VWORK)
  19 :       ENDDO
  20 :       SEGSUP,VWORK1
  21 :       RETURN
  22 :       END
  23 : 
  24 : 
  25 :  
  26 :