Numérotation des lignes :

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

© Cast3M 2003 - Tous droits réservés.
Mentions légales