Sources Esope | Cast3M

maxim3
C MAXIM3    SOURCE    CHAT      05/01/13    01:36:20     5004
      SUBROUTINE MAXIM3 (IPLREE,IPLACE,PGRAND)
************************************************************************
*
*                             M A X I M 3
*                             -----------
*
* FONCTION:
* ---------
*
*     FOURNIR LA PLUS GRANDE VALEUR D'UN 'LISTREEL' (PLUS GRANDE EN
*     VALEUR ABSOLUE, MAIS RETOURNEE AVEC SON SIGNE).
*
* MODE D'APPEL:
* -------------
*
*     CALL MAXIM3 (IPLREE,IPLACE,PGRAND)
*
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE
* -----------
*
*     IPLREE  ENTIER    (E)  POINTEUR SUR LE 'LISTREEL' DONT ON EXTRAIT
*                            LA PLUS GRANDE VALEUR.
*     IPLACE  ENTIER    (S)  RANG DE LA PLUS GRANDE VALEUR DANS LE
*                            'LISTREEL'.
*     PGRAND  REEL DP   (S)  PLUS GRANDE VALEUR (EN VALEUR ABSOLUE)
*                            EXTRAITE DU 'LISTREEL'.
*                            CETTE VALEUR EST RETOURNEE AVEC SON SIGNE.
*
* AUTEUR, DATE DE CREATION:
* -------------------------
*
*     PASCAL MANIGOT     16 AVRIL 1985
*
* LANGAGE:
* --------
*
*     ESOPE + FORTRAN77
*
************************************************************************
*
      IMPLICIT INTEGER(I-N)
-INC SMLREEL
*
      REAL*8 AGRAND,PGRAND
*
      MLREEL = IPLREE
      SEGACT,MLREEL
      LDIM = PROG(/1)
*
      AGRAND = -1.D0
      PGRAND = 0.D0
      IPLACE = 0
      DO 100 IB100=1,LDIM
         IF (ABS(PROG(IB100)) .GT. AGRAND) THEN
            PGRAND = PROG(IB100)
            AGRAND = ABS(PGRAND)
            IPLACE = IB100
         END IF
  100    CONTINUE
*     END DO
*
*     RQ: POUR L'INSTANT, ON DECIDE DE RENVOYER (PGRAND = 0.) ET
*         (IPLACE = 0) SI LE 'LISTREEL' EST VIDE.
*         ON NE FAIT PAS DE MESSAGE D'ERREUR.
*
      SEGDES,MLREEL
*
      END