Esope source files

   1 : C MINMAX    SOURCE    CHAT      05/01/13    01:45:21     5004           
   2 :       SUBROUTINE MINMAX (IPTR,AMINI,AMAXI)                                      
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Y)                                                 
   5 : -INC CCOPTIO                                                                    
   6 : -INC SMLREEL                                                                    
   7 : *                                                                               
   8 : * IPTR (E/S) POINTEUR SUR UNE LISTE DE REELS                                    
   9 : * AMINI (S)  MINI DE LA LISTE                                                   
  10 : * AMAXI (S)  MAXI DE LA LISTE                                                   
  11 : *                                                                               
  12 :       MLREEL=IPTR                                                               
  13 :       SEGACT MLREEL                                                             
  14 :       AMINI=PROG(1)                                                             
  15 :       AMAXI=PROG(1)                                                             
  16 :       IFIN=PROG(/1)                                                             
  17 :       DO 1 I=2,IFIN                                                             
  18 :           IF (AMINI .GT. PROG(I)) THEN                                          
  19 :               AMINI=PROG(I)                                                     
  20 :           ENDIF                                                                 
  21 :           IF (AMAXI .LT. PROG(I)) THEN                                          
  22 :               AMAXI=PROG(I)                                                     
  23 :           ENDIF                                                                 
  24 : 1     CONTINUE                                                                  
  25 :       SEGDES MLREEL                                                             
  26 :       END                                                                       
  27 :