C FILLLU    SOURCE    FANDEUR   10/12/14    21:16:28     6812           
      SUBROUTINE FILLLU (ISORTA,ICOLAC)
C=======================================================================
C      CE SOUPROGRAMME REMPLIT LES PILES ICOLAC A
C      PARTIR  DU   TABLEAU ISORTA : TYPE-TYPE-POINTEUR  CREE PAR SAUV
C      LES OBJETS LOGIQUES SONT CHANGES PAR LA VALEUR VRAI OU FAUX
C
C ENTREE :ISORTA TABLEAU (TYPE-TYPE-POINTEUR)
C         ICOLAC POINTEUR SUR UN SEGMENT A CREER
C         INCTAB INCREMENT DANS LA TABLE
C  PROGRAMME PAR FARVACQUE - REPRIS PAR LENA
C  APPELE PAR SAUV
C  APPELLE : AJOUN  TYPFIL  ERREUR
C=======================================================================
C  TABLEAU KCOLA : VOIR SIGNIFATION DANS SOUS-PROGRAMME TYPFIL
C=======================================================================
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC CCOPTIO
-INC TMCOLAC

C=======================================================================
C ----DANS ISORTA LES VALEURS VONT TROIS PAR TROIS
      SEGMENT ISORTA
       CHARACTER*8 ISORTC(KS)
       INTEGER ISORTI(KS)
      ENDSEGMENT
C
      CHARACTER*(8) ITYPE
C
      SEGACT ISORTA
      NSORTA=ISORTI(/1)
      IF(NSORTA.EQ.0) GOTO 5000
C
C  **** BOUCLE SUR LES OBJETS A SORTIR : ON TESTE LEUR TYPE ET ON
C  **** INITIALISE LE REMPLISSAGE DES PILES ITLACC
      SEGACT ICOLAC
      ILISSE=ILISSG
      SEGACT ILISSE*MOD
C
      DO 200 ISORT=1,NSORTA

         ITYPE(1:8)=ISORTC(ISORT)
C
         N1=0
         CALL TYPFIL(ITYPE,N1)
         IF (N1.LT.0) THEN
            MOTERR(1:8)=ITYPE
            CALL ERREUR (336)
            GO TO 200
         ENDIF

         IVAL=ISORTI(ISORT)
         ICO=KCOLA(N1)
         NUMLIS=1 
         ITYP=N1 
         IF (ITYP.EQ.24) NUMLIS=6
         IF (ITYP.EQ.25) NUMLIS=4
         IF (ITYP.EQ.26) NUMLIS=2
         IF (ITYP.EQ.27) NUMLIS=5
         IF (ITYP.EQ.32) NUMLIS=3
         IF (ITYP.EQ.36) NUMLIS=7
         CALL AJOUN(ICO,IVAL,ILISSE,NUMLIS)

 200  CONTINUE
C
*      SEGDES ILISSE
      SEGDES ICOLAC
C
 5000 CONTINUE
      SEGDES ISORTA

      RETURN
      END