1 : C MAXP1 SOURCE CHAT 05/01/13 01:37:16 5004 2 : SUBROUTINE MAXP1 (ICOLAC,IMAX) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8(A-H,O-Z) 5 : C======================================================================= 6 : C CE SUBROUTINE CHERCHE DANS LA PILE 1 LE PLUS GRAND 7 : C NUMERO DE POINT 8 : C ENTREE ICOLAC 9 : C SORTIE IMAX 10 : C APPELE PAR SAUV 11 : C======================================================================= 12 : C TABLEAU KCOLA : 13 : C 1 MELEME 2 CHPOIN 3 MRIGID 4 MCHAFF 5 MCHELM 6 14 : C 7 8 MSOLUT 9 MSTRUC 10 11 MAFFEC 12 MSOSTU 15 : C 13 IMATRI 14 MJONCT 15 MATTAC 16 MMATRI 17 MDEFOR 18 MLREEL 16 : C 19 MLENTI 20 MCHARG 21 MODELE 22 MEVOLL 17 : C======================================================================= 18 : -INC CCOPTIO 19 : -INC SMELEME 20 : -INC TMCOLAC 21 : C 22 : C 23 : C **** LES POINTS SONT CLASSES AVEC EN TETE CEUX DES OBJETS QUI NOUS 24 : C **** INTERESSENT. ON RECHERCHE LE PLUS GRAND POINT A SORTIR: IMAX 25 : C 26 : IMAX=0 27 : SEGACT ICOLAC 28 : ITLACC=KCOLA(1) 29 : N1=ITLAC(/1) 30 : SEGDES ICOLAC 31 : C 32 : IF (N1.EQ.0) GO TO 9 33 : DO 398 INN=1,N1 34 : MELEME=ITLAC(INN) 35 : IF (MELEME.EQ.0) GO TO 398 36 : SEGACT MELEME 37 : IF(LISOUS(/1).NE.0)GO TO 6 38 : DO 3 I=1,NUM(/1) 39 : DO 3 J=1,NUM(/2) 40 : IMAX=MAX(IMAX,NUM(I,J)) 41 : 3 CONTINUE 42 : 6 CONTINUE 43 : SEGDES MELEME 44 : 398 CONTINUE 45 : 9 CONTINUE 46 : RETURN 47 : END 48 : 49 : 50 : 51 : 52 :
© Cast3M 2003 - All rights reserved.
Disclaimer