C J3DET1 SOURCE CHAT 05/01/13 00:46:20 5004 SUBROUTINE J3DET1(VWORK) C---------------------------------------------------- C DESTRUCTION D'UN VWORK C PP 11/98 C Pierre Pegon/JRC Ispra C---------------------------------------------------- IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) -INC PPARAM -INC CCOPTIO SEGMENT VWORK INTEGER FWWORK(NFACE) ENDSEGMENT C SEGMENT WWORK REAL*8 PORIG(3),VNORM(3),VI(3),VJ(3) INTEGER FWORK INTEGER TWORK(NTROU) ENDSEGMENT C SEGMENT WORK REAL*8 XYC(2,NPTO) INTEGER IST(3,NPTO) REAL*8 DENS(NPTO) INTEGER JUN ENDSEGMENT C SEGMENT JUNC INTEGER CRO(2,NPTO) ENDSEGMENT C IF(VWORK.NE.0)THEN NFACE1=FWWORK(/1) DO IE2=1,NFACE1 WWORK=FWWORK(IE2) NTROU=TWORK(/1) DO IE3=0,NTROU IF(IE3.EQ.0)THEN WORK=FWORK ELSE WORK=TWORK(IE3) ENDIF JUNC=JUN IF(JUNC.NE.0)SEGSUP,JUNC SEGSUP,WORK ENDDO SEGSUP,WWORK ENDDO SEGSUP,VWORK ENDIF C RETURN END