Sources Esope | Cast3M

wrmail
C WRMAIL    SOURCE    CB215821  19/08/20    21:23:05     10287          
      SUBROUTINE WRMAIL (MELEME,IOSAU,IRETOU,IFORM)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C=======================================================================
C
C        ECRITURE DE 1 MELEME SUR LA BANDE IOSAU
C
C    ECRIT PAR FARVACQUE -REPRIS PAR LENA
C    APPELE PAR WRPIL
C    APPELLE      :  ECDIFR ECDIFE ECDES ECDIFP
C    APPELLE PAR  :  WRPIL
C=======================================================================
-INC SMELEME
-INC TMCOLAC
      DIMENSION ILENA(10)
C
C******************************************ECRITURE
C
      IRETOU=0
      ITOTO    = 5
      IF (MELEME.EQ.0) THEN
         ILENA(1) = -100
         ILENA(2) = 0
         ILENA(3) = 0
         ILENA(4) = 0
         ILENA(5) = 0
         CALL ECDIFE (IOSAU,ITOTO,ILENA,IFORM)
      ELSE
         SEGACT MELEME
         ILENA(1) = ITYPEL
         ILENA(2) = LISOUS(/1)
         ILENA(3) = LISREF(/1)
         ILENA(4) = NUM(/1)
         ILENA(5) = NUM(/2)
         CALL ECDIFE (IOSAU,ITOTO,ILENA,IFORM)
         NTOTO=ILENA(2)
         CALL ECDIFE (IOSAU,NTOTO,LISOUS,IFORM)
         NTOTO=ILENA(3)
         CALL ECDIFE (IOSAU,NTOTO,LISREF,IFORM)
         NBELEM=ILENA(5)
         NBNN=ILENA(4)
         L=NBELEM*NBNN
CCCCC    IF (IONIVE.GT.0) CALL ECDIFE(IOSAU,NBELEM,ICOLOR,IFORM)
         CALL ECDIFE(IOSAU,NBELEM,ICOLOR,IFORM)
         if (l.ne.0) CALL ECDIFE(IOSAU,L,NUM(1,1),IFORM)
C ---    WRITE(IOSAU,8000)((NUM(II,JJ),II=1,NBNN),JJ=1,NBELEM)
         IF (MELEME.NE.0)  SEGDES MELEME
      ENDIF
      END