Esope source files

   1 : C WRJONC    SOURCE    CHAT      05/01/13    04:12:13     5004           
   2 :       SUBROUTINE WRJONC(IOSAU,ITLACC,IMAX1,IFORM,IDEB)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)
   5 : C=======================================================================
   6 : C      BUT     : ECRITURE DES MJONCTSUR LE FICHIER IOSAU
   7 : C      APPELE PAR WRPIL
   8 : C      APPELLE :  ECDIFE ECDIFM ECDIFR
   9 : C      ECRIT PAR FARVACQUE   - REPRIS PAR LENA
  10 : C=======================================================================
  11 : C=======================================================================
  12 : -INC SMATTAC
  13 :       SEGMENT/ITLACC/(ITLAC(0)),ITLAC1.ITLACC,ITLAC2.ITLACC,
  14 :      1 ITLAC3.ITLACC,ITLAC4.ITLACC,ITLAC5.ITLACC,ITLAC6.ITLACC
  15 : C=======================================================================
  16 : C=======================================================================
  17 :       DIMENSION ILENA(10)
  18 : C     ***************************** MJONCT *****************************
  19 :  6014 CONTINUE
  20 :       DO 140 IEL=IDEB,IMAX1
  21 :          MJONCT=ITLAC(IEL)
  22 :          SEGACT MJONCT
  23 :          N=ISTRJO(/1)
  24 :          ILENA(1)=N
  25 :          ILENA(2)=MJOPOI
  26 :          ITOTO=2
  26 :          CALL ECDIFE ( IOSAU,ITOTO,ILENA,IFORM)
  27 :          READ(MJODDL,FMT='(A4)') ILENA(1)
  27 :          CALL ECDIFM ( IOSAU,1    ,ILENA ,IFORM)
  28 :          READ(MJOTYP,FMT='(A4)') ILENA(1)
  28 :          CALL ECDIFM ( IOSAU,1    ,ILENA ,IFORM)
  28 :          CALL ECDIFE ( IOSAU,N    ,ISTRJO,IFORM)
  28 :          CALL ECDIFE ( IOSAU,N    ,IPCHJO,IFORM)
  28 :          CALL ECDIFE ( IOSAU,N    ,IPOSJO,IFORM)
  29 :          SEGDES MJONCT
  30 :   140 CONTINUE
  31 :       GO TO 1098
  32 :  1098 CONTINUE
  33 :       RETURN
  34 :       END
  35 :  
  36 :