Télécharger j3det1.eso

Retour à la liste

Numérotation des lignes :

  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.  
  56.  

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