C MINMAX    SOURCE    CHAT      05/01/13    01:45:21     5004           
      SUBROUTINE MINMAX (IPTR,AMINI,AMAXI)                                      
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Y)                                                 
-INC CCOPTIO                                                                    
-INC SMLREEL                                                                    
*                                                                               
* IPTR (E/S) POINTEUR SUR UNE LISTE DE REELS                                    
* AMINI (S)  MINI DE LA LISTE                                                   
* AMAXI (S)  MAXI DE LA LISTE                                                   
*                                                                               
      MLREEL=IPTR                                                               
      SEGACT MLREEL                                                             
      AMINI=PROG(1)                                                             
      AMAXI=PROG(1)                                                             
      IFIN=PROG(/1)                                                             
      DO 1 I=2,IFIN                                                             
          IF (AMINI .GT. PROG(I)) THEN                                          
              AMINI=PROG(I)                                                     
          ENDIF                                                                 
          IF (AMAXI .LT. PROG(I)) THEN                                          
              AMAXI=PROG(I)                                                     
          ENDIF                                                                 
1     CONTINUE                                                                  
      SEGDES MLREEL                                                             
      END