Esope source files

   1 : C COMBIL    SOURCE    CHAT      05/01/12    22:13:57     5004           
   2 :       SUBROUTINE COMBIL(ITACH,ITAFL,IRETT)                                      
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   5 : C----------------------------------------------------------------------         
   6 : C    CE SUBROUTINE EFFECTUE LA COMBINAISON LINEAIRE DES CHPOINT                 
   7 : C    CONTENUS DANS ITACH, AVEC LES FLOTTANTS CONTENUS DANS ITAFL                
   8 : C    LE RESULTAT EST UN CHPOINT,MIS DANS IRETT                                  
   9 : C    ATTENTION : TAFL EN DOUBLE PRECISION                                       
  10 : C----------------------------------------------------------------------         
  11 :       SEGMENT ITACH(0)                                                          
  12 :       SEGMENT/ITAFL/(TAFL(0)*D)                                                 
  13 : C                                                                               
  14 :       IRETT=0                                                                   
  15 :       SEGACT ITACH,ITAFL                                                        
  16 : C                                                                               
  17 : C   BOUCLE SUR LES CHPOINTS                                                     
  18 : C                                                                               
  19 :       NCHPO=ITACH(/1)                                                           
  20 :       ICHPO=ITACH(1)
  21 :       VAL=TAFL(1)
  21 :       CALL MUCHPO(ICHPO,VAL,IRETT,1)
  22 :       DO 201 ICH=2,NCHPO
  23 :       ICHPO=ITACH(ICH)                                                          
  24 :       VAL=TAFL(ICH)                                                             
  25 : C                                                                               
  25 :       CALL ADCHPO(IRETT,ICHPO,IRETOU,1D0,VAL)
  26 : C  DESTRUCTION  ( SANS GEOM )                                                   
  26 :       CALL DTCHPO(IRETT)                                                        
  27 :       IRETT=IRETOU                                                              
  28 : 201   CONTINUE                                                                  
  29 :       GO TO 299                                                                 
  30 :  299  SEGDES ITAFL                                                              
  31 :       SEGDES ITACH                                                              
  32 :       RETURN                                                                    
  33 :       END                                                                       
  34 :