C MAXP32 SOURCE PV 17/12/05 21:16:43 9646 SUBROUTINE MAXP32(ICOLAC,IMAX) C======================================================================= C CE SUBROUTINE CHERCHE DANS LA PILE 32 LE PLUS GRAND C NUMERO DE POINT C ENTREE ICOLAC C SORTIE IMAX C APPELE PAR SAUV C======================================================================= C TABLEAU KCOLA : VOIR LE SOUS-PROGRAMME TYPFIL POUR SA DESCRIPTION C======================================================================= IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) -INC PPARAM -INC CCOPTIO -INC TMCOLAC C **** LES POINTS SONT CLASSES AVEC EN TETE CEUX DES OBJETS QUI NOUS C **** INTERESSENT. ON RECHERCHE LE PLUS GRAND POINT A SORTIR: IMAX IMAX = 0 SEGACT ICOLAC ITLACC = KCOLA(32) N1 = ITLAC(/1) IF (N1.EQ.0) GO TO 9 DO I = 1, N1 K = ITLAC(I) IMAX = MAX(IMAX,K) ENDDO 9 CONTINUE * SEGDES ICOLAC RETURN END