Télécharger j3liww.eso

Retour à la liste

Numérotation des lignes :

  1. C J3LIWW SOURCE CHAT 05/01/13 00:46:57 5004
  2. SUBROUTINE J3LIWW(WWORK)
  3. C----------------------------------------------------
  4. C LISTE DE WWORK
  5. C
  6. C PP 9/97
  7. C Pierre Pegon/JRC Ispra
  8. C----------------------------------------------------
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8(A-H,O-Z)
  11. C
  12. -INC CCOPTIO
  13. C
  14. SEGMENT WWORK
  15. REAL*8 PORIG(3),VNORM(3),VI(3),VJ(3)
  16. INTEGER FWORK
  17. INTEGER TWORK(NTROU)
  18. ENDSEGMENT
  19. C
  20. SEGMENT WORK
  21. REAL*8 XYC(2,NPTO)
  22. INTEGER IST(3,NPTO)
  23. REAL*8 DENS(NPTO)
  24. INTEGER JUN
  25. ENDSEGMENT
  26. C
  27. WRITE(IOIMP,*)'J3LIWW: face de pointeur ', WWORK
  28. WRITE(IOIMP,*)' PORIG ',(PORIG(IE1),IE1=1,3)
  29. WRITE(IOIMP,*)' VNORM ',(VNORM(IE1),IE1=1,3)
  30. WRITE(IOIMP,*)' VI ',(VI(IE1),IE1=1,3)
  31. WRITE(IOIMP,*)' VJ ',(VJ(IE1),IE1=1,3)
  32. WORK=FWORK
  33. WRITE(IOIMP,*)' FACE PRINCIPALE: NPT,XYC(1),XYC(2),DENS'
  34. DO IE1=1,DENS(/1)
  35. WRITE(IOIMP,*)' ',IE1,XYC(1,IE1),XYC(2,IE1),DENS(IE1)
  36. ENDDO
  37. IF(TWORK(/1).GT.0)THEN
  38. DO IE1=1,TWORK(/1)
  39. WORK=TWORK(IE1)
  40. WRITE(IOIMP,*)' TROU NO ',IE1,' : NPT,XYC(1),XYC(2),DENS'
  41. DO IE2=1,DENS(/1)
  42. WRITE(IOIMP,*)' ',IE2,XYC(1,IE2),XYC(2,IE2),DENS(IE2)
  43. ENDDO
  44. ENDDO
  45. ENDIF
  46. C
  47. RETURN
  48. END
  49.  
  50.  
  51.  

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