Télécharger j3liww.eso

Retour à la liste

Numérotation des lignes :

j3liww
  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.  
  13. -INC PPARAM
  14. -INC CCOPTIO
  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. WRITE(IOIMP,*)'J3LIWW: face de pointeur ', WWORK
  30. WRITE(IOIMP,*)' PORIG ',(PORIG(IE1),IE1=1,3)
  31. WRITE(IOIMP,*)' VNORM ',(VNORM(IE1),IE1=1,3)
  32. WRITE(IOIMP,*)' VI ',(VI(IE1),IE1=1,3)
  33. WRITE(IOIMP,*)' VJ ',(VJ(IE1),IE1=1,3)
  34. WORK=FWORK
  35. WRITE(IOIMP,*)' FACE PRINCIPALE: NPT,XYC(1),XYC(2),DENS'
  36. DO IE1=1,DENS(/1)
  37. WRITE(IOIMP,*)' ',IE1,XYC(1,IE1),XYC(2,IE1),DENS(IE1)
  38. ENDDO
  39. IF(TWORK(/1).GT.0)THEN
  40. DO IE1=1,TWORK(/1)
  41. WORK=TWORK(IE1)
  42. WRITE(IOIMP,*)' TROU NO ',IE1,' : NPT,XYC(1),XYC(2),DENS'
  43. DO IE2=1,DENS(/1)
  44. WRITE(IOIMP,*)' ',IE2,XYC(1,IE2),XYC(2,IE2),DENS(IE2)
  45. ENDDO
  46. ENDDO
  47. ENDIF
  48. C
  49. RETURN
  50. END
  51.  
  52.  
  53.  

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