Esope source files

   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 :