Esope source files

   1 : C ETAPE5    SOURCE    CHAT      05/01/12    23:46:21     5004           
   2 :       SUBROUTINE ETAPE5 (MLREEL,MLREE1,MXMAT,M)                                 
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : *                                                                               
   6 : *  CONJUGUAISON DES DIRECTIONS DE RECHERCHES                                    
   7 : *                                                                               
   8 : -INC SMLREEL                                                                    
   9 : -INC TMXMAT                                                                     
   9 :       CALL TXAY(MLREEL,MXMAT,MLREE1,M,M,AA)                                     
   9 :       CALL TXAY(MLREE1,MXMAT,MLREE1,M,M,BB)                                     
  10 :       BETA = - AA / BB                                                          
  11 :       DO 1 I=1,M                                                                
  12 :       PROG(I)=MLREE1.PROG(I) * BETA + PROG(I)                                   
  13 :     1 CONTINUE                                                                  
  14 :       RETURN                                                                    
  15 :       END                                                                       
  16 :