C MAXIN2    SOURCE    CHAT      05/01/13    01:36:44     5004           
      SUBROUTINE MAXIN2 (IPLENT,IPLACE,IGRAND,KPLUS,LABSO)                      
************************************************************************        
*                                                                               
*                             M A X I N 2                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     FOURNIR LA PLUS GRANDE VALEUR D'UN 'LISTENTI'                             
*     COMPLETEMENT INSPIRE DE MAXIM2 QUI RECHERCHE LE MAXIMUM                   
*     EN VALEUR ABSOLUE ( VOIR MAXIM2 POUR COMMENTAIRES )                       
*                                                                               
*                                                                               
************************************************************************        
*                                                                               
      IMPLICIT INTEGER(I-N)
-INC SMLENTI                                                                    
*                                                                               
      MLENTI = IPLENT                                                           
      SEGACT,MLENTI                                                             
      LDIM = LECT(/1)                                                           
*                                                                               
      IPLACE = 0                                                                
      IGRAND=0                                                                  
      IF(LDIM.EQ.0) GO TO 400                                                   
*                                                                               
      IF(LABSO.EQ.0) THEN                                                       
      IGRAND = LECT(1)                                                          
      ELSE                                                                      
      IGRAND = ABS(LECT(1))                                                     
      ENDIF                                                                     
      DO 100 IB100=1,LDIM                                                       
         IF(LABSO.EQ.0) THEN                                                    
         LAVAL = LECT(IB100)                                                    
         ELSE                                                                   
         LAVAL = ABS(LECT(IB100))                                               
         ENDIF                                                                  
         IF((KPLUS.EQ. 1.AND.LAVAL.GT.IGRAND).                                  
     $   OR.(KPLUS.EQ.-1.AND.LAVAL.LT.IGRAND)) THEN                             
            IGRAND = LAVAL                                                      
            IPLACE = IB100                                                      
         END IF                                                                 
  100    CONTINUE                                                               
*     END DO                                                                    
*                                                                               
*     RQ: POUR L'INSTANT, ON DECIDE DE RENVOYER (IGRAND = 0) ET                 
*         (IPLACE = 0) SI LE 'LISTENTI' EST VIDE.                               
*         ON NE FAIT PAS DE MESSAGE D'ERREUR.                                   
*                                                                               
  400 CONTINUE                                                                  
      SEGDES,MLENTI                                                       
*                                                                               
      END