C COMBIL    SOURCE    CHAT      05/01/12    22:13:57     5004           
      SUBROUTINE COMBIL(ITACH,ITAFL,IRETT)                                      
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
C----------------------------------------------------------------------         
C    CE SUBROUTINE EFFECTUE LA COMBINAISON LINEAIRE DES CHPOINT                 
C    CONTENUS DANS ITACH, AVEC LES FLOTTANTS CONTENUS DANS ITAFL                
C    LE RESULTAT EST UN CHPOINT,MIS DANS IRETT                                  
C    ATTENTION : TAFL EN DOUBLE PRECISION                                       
C----------------------------------------------------------------------         
      SEGMENT ITACH(0)                                                          
      SEGMENT/ITAFL/(TAFL(0)*D)                                                 
C                                                                               
      IRETT=0                                                                   
      SEGACT ITACH,ITAFL                                                        
C                                                                               
C   BOUCLE SUR LES CHPOINTS                                                     
C                                                                               
      NCHPO=ITACH(/1)                                                           
      ICHPO=ITACH(1)
      VAL=TAFL(1)
      CALL MUCHPO(ICHPO,VAL,IRETT,1)
      DO 201 ICH=2,NCHPO
      ICHPO=ITACH(ICH)                                                          
      VAL=TAFL(ICH)                                                             
C                                                                               
      CALL ADCHPO(IRETT,ICHPO,IRETOU,1D0,VAL)
C  DESTRUCTION  ( SANS GEOM )                                                   
      CALL DTCHPO(IRETT)                                                        
      IRETT=IRETOU                                                              
201   CONTINUE                                                                  
      GO TO 299                                                                 
 299  SEGDES ITAFL                                                              
      SEGDES ITACH                                                              
      RETURN                                                                    
      END