C LIIELV    SOURCE    OF166741  24/12/18    21:15:18     12090          

*----------------------------------------------------------------------*
*                                                                      *
*     LECTURE D'UN SEGMENT MELVAL SUR LE FICHIER IORES                 *
*                                                                      *
*     Parametres :                                                     *
*                                                                      *
*     IORES   NUMERO DU FICHIER DE LECTURE                             *
*     ITLACC  Pile contenant les segments MELVAL (IELVAL)              *
*     IMAX1   Nombre de CHAMELEMs dans la pile                         *
*     IFORM   Si sauvegarde en format ou non                           *
*                                                                      *
*     APPELE PAR : LIPIL                                               *
*----------------------------------------------------------------------*
      SUBROUTINE LIIELV(IORES,ITLACC,IMAX1,IRETOU,IFORM)

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC CCFXDR
-INC SMCHAML

      SEGMENT,ITLACC
        INTEGER ITLAC(0)
      ENDSEGMENT

      INTEGER IDAN(4)

      IRETOU = 0

      NIDAN = 4
*
*     Boucle sur les MELVAL contenus dans la pile:
*
      DO IEL = 1, IMAX1

         MELVAL  = 0

         CALL LFCDIE(IORES,NIDAN,IDAN,IRETOU,IFORM)
         IF (IRETOU.NE.0) RETURN
*
*  CREATION ET REMPLISSAGE DU SEGMENT MELVAL
*
         N1PTEL = IDAN(1)
         N1EL   = IDAN(2)
         N2PTEL = IDAN(3)
         N2EL   = IDAN(4)
         if (n2ptel.ne.0.and.n2el.ne.0) call erreur(5)
         SEGINI MELVAL

         L1=N1PTEL*N1EL
         L2=N2PTEL*N2EL
         IF (L1 .GT. 0) CALL LFCDI2(IORES,L1,VELCHE(1,1),IRETOU,IFORM)
         IF (L2 .GT. 0) CALL LFCDIE(IORES,L2,IELCHE(1,1),IRETOU,IFORM)
         IF (IRETOU.NE.0) RETURN

         SEGDES MELVAL

         ITLAC(**) = MELVAL

      ENDDO

      RETURN
      END