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