C MAXIN3 SOURCE KICH 07/10/12 21:15:14 5912 SUBROUTINE MAXIN3 (IPLREE,IPLACE,PGRAND,KPLUS,LABSO) ************************************************************************ * * M A X I N 3 * ----------- * * FONCTION: * --------- * * FOURNIR LA PLUS GRANDE VALEUR D'UN 'LISTREEL' * COMPLETEMENT INSPIRE DE MAXIM3 QUI RECHERCHE LE MAXIMUM * EN VALEUR ABSOLUE ( POUR COMMENTAIRES VOIR MAXIM3 ) * * ************************************************************************ * IMPLICIT INTEGER(I-N) -INC SMLREEL * REAL*8 PGRAND,XVAL * MLREEL = IPLREE SEGACT,MLREEL LDIM = PROG(/1) * PGRAND = 0.D0 IPLACE = 0 IF(LDIM.EQ.0) GO TO 400 * IF(LABSO.EQ.0) THEN PGRAND=PROG(1) ELSE PGRAND=ABS(PROG(1)) ENDIF IPLACE = 1 DO 100 IB100=1,LDIM IF(LABSO.EQ.0) THEN XVAL =PROG(IB100) ELSE XVAL =ABS(PROG(IB100)) ENDIF IF((KPLUS.EQ. 1.AND.XVAL.GT.PGRAND). $ OR.(KPLUS.EQ.-1.AND.XVAL.LT.PGRAND)) THEN PGRAND = XVAL 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. * 400 CONTINUE SEGDES,MLREEL * END