Esope source files

   1 : C J3DET1    SOURCE    CHAT      05/01/13    00:46:20     5004           
   2 :       SUBROUTINE J3DET1(VWORK)
   3 : C----------------------------------------------------
   4 : C     DESTRUCTION D'UN VWORK
   5 : C     PP 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 : C
  15 :       SEGMENT WWORK
  16 :         REAL*8 PORIG(3),VNORM(3),VI(3),VJ(3)
  17 :         INTEGER FWORK
  18 :         INTEGER TWORK(NTROU)
  19 :       ENDSEGMENT
  20 : C
  21 :       SEGMENT WORK
  22 :         REAL*8 XYC(2,NPTO)
  23 :         INTEGER IST(3,NPTO)
  24 :         REAL*8 DENS(NPTO)
  25 :         INTEGER JUN
  26 :       ENDSEGMENT
  27 : C
  28 :       SEGMENT JUNC
  29 :         INTEGER CRO(2,NPTO)
  30 :       ENDSEGMENT
  31 : C
  32 :       IF(VWORK.NE.0)THEN
  33 :         NFACE1=FWWORK(/1)
  34 :         DO IE2=1,NFACE1
  35 :           WWORK=FWWORK(IE2)
  36 :           NTROU=TWORK(/1)
  37 :           DO IE3=0,NTROU
  38 :             IF(IE3.EQ.0)THEN
  39 :               WORK=FWORK
  40 :             ELSE
  41 :               WORK=TWORK(IE3)
  42 :             ENDIF
  43 :             JUNC=JUN
  44 :             IF(JUNC.NE.0)SEGSUP,JUNC
  45 :             SEGSUP,WORK
  46 :           ENDDO
  47 :           SEGSUP,WWORK
  48 :         ENDDO
  49 :         SEGSUP,VWORK
  50 :       ENDIF
  51 : C
  52 :       RETURN
  53 :       END
  54 :  
  55 :