Sources Esope | Cast3M

maxin2
C MAXIN2    SOURCE    PV        21/04/26    21:15:13     10978          
      SUBROUTINE MAXIN2 (IPLENT,IPLACE,KGRAND,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
      KGRAND=0
      IF(LDIM.EQ.0) GO TO 400
*
      IF(LABSO.EQ.0) THEN
      KGRAND = LECT(1)
      ELSE
      KGRAND = 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.KGRAND).
     $   OR.(KPLUS.EQ.-1.AND.LAVAL.LT.KGRAND)) THEN
            KGRAND = LAVAL
            IPLACE = IB100
         END IF
  100    CONTINUE
*     END DO
*
*     RQ: POUR L'INSTANT, ON DECIDE DE RENVOYER (KGRAND = 0) ET
*         (IPLACE = 0) SI LE 'LISTENTI' EST VIDE.
*         ON NE FAIT PAS DE MESSAGE D'ERREUR.
*
  400 CONTINUE
      SEGDES,MLENTI
*
      END