C LIJONC    SOURCE    CHAT      05/01/13    01:18:04     5004
      SUBROUTINE LIJONC(IORES,ITLACC,IMAX1,IRET,IFORM)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C=======================================================================
C   BUT        : LECTURE DU MJONC
C   APPELE PAR : LIPIL
C   APPELLE    : LFCDIM LFCDIE LFCDI2
C   ECRIT PAR FARVACQUE    -REPRIS PAR LENA
C
C=======================================================================
-INC SMATTAC
      SEGMENT /ITLACC/ (ITLAC(0))
C=======================================================================
C
      DIMENSION ILENA(10),ILECBI(1)
      IRET=0
      IRETOU=0
C     ***************************** MJONCT *****************************
 6014 CONTINUE
      DO 140 IEL=1,IMAX1
      ITOTO=2
      CALL LFCDIE ( IORES,ITOTO,ILENA,IRETOU,IFORM)
      IF (IRETOU.NE.0) GO TO 1000
      N=ILENA(1)
      SEGINI MJONCT
      ITLAC(**)=MJONCT
      MJOPOI=ILENA(2)
      CALL LFCDIM ( IORES,1    ,ILECBI,IRETOU,IFORM)
      WRITE(MJODDL,FMT='(A4)')ILECBI(1)
      IF (IRETOU.NE.0) GO TO 1000
      CALL LFCDIM ( IORES,1    ,ILECBI,IRETOU,IFORM)
      WRITE(MJOTYP,FMT='(A4)')ILECBI(1)
      IF (IRETOU.NE.0) GO TO 1000
      CALL LFCDIE ( IORES,N    ,ISTRJO,IRETOU,IFORM)
      IF (IRETOU.NE.0) GO TO 1000
      CALL LFCDIE ( IORES,N    ,IPCHJO,IRETOU,IFORM)
      IF (IRETOU.NE.0) GO TO 1000
      CALL LFCDIE ( IORES,N    ,IPOSJO,IRETOU,IFORM)
      IF (IRETOU.NE.0) GO TO 1000
      SEGDES MJONCT
  140 CONTINUE
      GO TO 1098
 1000 CONTINUE
 1098 CONTINUE
      IRET=IRETOU
      RETURN
C -------------------------------------------------------
      END