C COMBYL    SOURCE    BP208322  15/06/26    21:15:07     8562
c       SUBROUTINE COMBYL(ITACH,ITAFL,IRETT)
      SUBROUTINE COMBYL(ITACH,ITAFL,N,IRETT)
*______________________________________________________________________
*
*    CE SUBROUTINE EFFECTUE LA COMBINAISON LINEAIRE DES CHAMELEM
*    CONTENUS DANS ITACH, AVEC LES FLOTTANTS CONTENUS DANS ITAFL
*    LE RESULTAT EST UN CHAMELEM,MIS DANS IRETT
*    ATTENTION : TAFL EN DOUBLE PRECISION
*
*    PASSAGE AUX NOUVEAU CHAMELEM PAR JM CAMPENON LE 01/91
*
*----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
*
      SEGMENT ITACH(0)
      SEGMENT/ITAFL/(TAFL(0)*D)
*
      IRETT=0
c       SEGACT ITACH,ITAFL
*
*   BOUCLE SUR LES CHAMELEMS
*
c       NCHAM=ITACH(/1)
      NCHAM=N
      DO 201 ICHAM=1,NCHAM
         IPCHAM=ITACH(ICHAM)
         VAL=TAFL(ICHAM)
*
         CALL MUCHEL(IPCHAM,VAL,IRET,1)
         IF(IRET.EQ.0) GO TO 298
         IF(ICHAM.EQ.1) THEN
            IRETT=IRET
         ELSE
            CALL ADCHEL(IRETT,IRET,IRETOU,1)
            CALL DTCHAM(IRET)
            IF(IRETOU.EQ.0) GO TO 298
            CALL DTCHAM(IRETT)
            IRETT=IRETOU
         ENDIF
201   CONTINUE
      GO TO 299
*
 298  IF(IRETT.NE.0) CALL DTCHAM(IRETT)
      IRETT=0
*
 299  CONTINUE
c       SEGDES ITAFL
c       SEGDES ITACH
      RETURN
      END