C WRJONC    SOURCE    CHAT      05/01/13    04:12:13     5004
      SUBROUTINE WRJONC(IOSAU,ITLACC,IMAX1,IFORM,IDEB)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C=======================================================================
C      BUT     : ECRITURE DES MJONCTSUR LE FICHIER IOSAU
C      APPELE PAR WRPIL
C      APPELLE :  ECDIFE ECDIFM ECDIFR
C      ECRIT PAR FARVACQUE   - REPRIS PAR LENA
C=======================================================================
C=======================================================================
-INC SMATTAC
      SEGMENT/ITLACC/(ITLAC(0)),ITLAC1.ITLACC,ITLAC2.ITLACC,
     1 ITLAC3.ITLACC,ITLAC4.ITLACC,ITLAC5.ITLACC,ITLAC6.ITLACC
C=======================================================================
C=======================================================================
      DIMENSION ILENA(10)
C     ***************************** MJONCT *****************************
 6014 CONTINUE
      DO 140 IEL=IDEB,IMAX1
         MJONCT=ITLAC(IEL)
         SEGACT MJONCT
         N=ISTRJO(/1)
         ILENA(1)=N
         ILENA(2)=MJOPOI
         ITOTO=2
         CALL ECDIFE ( IOSAU,ITOTO,ILENA,IFORM)
         READ(MJODDL,FMT='(A4)') ILENA(1)
         CALL ECDIFM ( IOSAU,1    ,ILENA ,IFORM)
         READ(MJOTYP,FMT='(A4)') ILENA(1)
         CALL ECDIFM ( IOSAU,1    ,ILENA ,IFORM)
         CALL ECDIFE ( IOSAU,N    ,ISTRJO,IFORM)
         CALL ECDIFE ( IOSAU,N    ,IPCHJO,IFORM)
         CALL ECDIFE ( IOSAU,N    ,IPOSJO,IFORM)
         SEGDES MJONCT
  140 CONTINUE
      GO TO 1098
 1098 CONTINUE
      RETURN
      END