Télécharger la plaquette Cast3M


fr en

Télécharger j3det1.eso

Retour à la liste

Numérotation des lignes : 

j3det1

  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 PPARAM
  11. -INC CCOPTIO
  12.       SEGMENT VWORK
  13.         INTEGER FWWORK(NFACE)
  14.       ENDSEGMENT
  15. C
  16.       SEGMENT WWORK
  17.         REAL*8 PORIG(3),VNORM(3),VI(3),VJ(3)
  18.         INTEGER FWORK
  19.         INTEGER TWORK(NTROU)
  20.       ENDSEGMENT
  21. C
  22.       SEGMENT WORK
  23.         REAL*8 XYC(2,NPTO)
  24.         INTEGER IST(3,NPTO)
  25.         REAL*8 DENS(NPTO)
  26.         INTEGER JUN
  27.       ENDSEGMENT
  28. C
  29.       SEGMENT JUNC
  30.         INTEGER CRO(2,NPTO)
  31.       ENDSEGMENT
  32. C
  33.       IF(VWORK.NE.0)THEN
  34.         NFACE1=FWWORK(/1)
  35.         DO IE2=1,NFACE1
  36.           WWORK=FWWORK(IE2)
  37.           NTROU=TWORK(/1)
  38.           DO IE3=0,NTROU
  39.             IF(IE3.EQ.0)THEN
  40.               WORK=FWORK
  41.             ELSE
  42.               WORK=TWORK(IE3)
  43.             ENDIF
  44.             JUNC=JUN
  45.             IF(JUNC.NE.0)SEGSUP,JUNC
  46.             SEGSUP,WORK
  47.           ENDDO
  48.           SEGSUP,WWORK
  49.         ENDDO
  50.         SEGSUP,VWORK
  51.       ENDIF
  52. C
  53.       RETURN
  54.       END
  55.  
  56.  
  57.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales