Esope source files

   1 : C MAXLRE    SOURCE    CHAT      05/01/13    01:37:03     5004           
   2 :       INTEGER FUNCTION MAXLRE (MLREE1,MLREE2)                                   
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                             M A X L R E                                       
   6 : *                             -----------                                       
   7 : *                                                                               
   8 : * FONCTION:                                                                     
   9 : * ---------                                                                     
  10 : *                                                                               
  11 : *     ANALOGUE AU "MAX" FORTRAN, APPLIQUE A 2 "LISTREEL":                       
  12 : *                                                                               
  13 : *     A PARTIR DE 2 "LISTREEL" DE MEMES LONGUEURS, CREATION D'UN 3IEME          
  14 : *     CONTENANT LES MAXIMA INDICE PAR INDICE.                                   
  15 : *                                                                               
  16 : * MODULES UTILISES:                                                             
  17 : * -----------------                                                             
  18 : *                                                                               
  19 :       IMPLICIT INTEGER(I-N)
  20 : -INC SMLREEL                                                                    
  21 : *                                                                               
  22 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  23 : * -----------                                                                   
  24 : *                                                                               
  25 : *     MLREE1  (E)  1ER "LISTREEL".                                              
  26 : *     MLREE2  (E)  2EME "LISTREEL".                                             
  27 : *     MAXLRE  (S)  "LISTREEL" DES MAXIMA.                                       
  28 : *                                                                               
  29 : * REMARQUES:                                                                    
  30 : * ----------                                                                    
  31 : *                                                                               
  32 : *     LE TEST D'EGALITES ENTRE LONGUEURS DES LISTES N'EST PAS FAIT DANS         
  33 : *     CE SOUS-PROGRAMME.                                                        
  34 : *                                                                               
  35 : * AUTEUR, DATE DE CREATION:                                                     
  36 : * -------------------------                                                     
  37 : *                                                                               
  38 : *     PASCAL MANIGOT     8 SEPTEMBRE 1988                                       
  39 : *                                                                               
  40 : * LANGAGE:                                                                      
  41 : * --------                                                                      
  42 : *                                                                               
  43 : *     ESOPE + FORTRAN77                                                         
  44 : *                                                                               
  45 : ************************************************************************        
  46 : *                                                                               
  47 :       SEGACT,MLREE1,MLREE2                                                      
  48 :       JG = MLREE1.PROG(/1)                                                      
  49 :       SEGINI,MLREE3                                                             
  50 : *                                                                               
  51 :       DO 100 IB=1,JG                                                            
  52 :          MLREE3.PROG(IB) = MAX(MLREE1.PROG(IB),MLREE2.PROG(IB))                 
  53 :   100    CONTINUE                                                               
  54 : *     END DO                                                                    
  55 : *                                                                               
  56 :       SEGDES,MLREE1,MLREE2                                          
  57 :       SEGDES,MLREE3                                                             
  58 :       MAXLRE = MLREE3                                                           
  59 : *                                                                               
  60 :       END                                                                       
  61 :