Télécharger la plaquette Cast3M


fr en

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