1 : C MAXP32 SOURCE CHAT 05/01/13 01:37:32 5004 2 : SUBROUTINE MAXP32(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 32 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(32) 29 : ILISSE=ILISSG 30 : SEGACT ILISSE*MOD 31 : N1=ITLAC(/1) 32 : C 33 : IF (N1.EQ.0) GO TO 9 34 : C 35 : C SI N1 = 0 ON NE SAUVE PAS NSDPGE EN CAS DE DPG 36 : C 37 : IF (IFOUR.EQ.-3.AND.IONIVE.GE.6.AND.NSDPGE.NE.0) THEN 38 : IMIL = NSDPGE 38 : CALL AJOUN(ITLACC,IMIL,ILISSE,3) 39 : N1=ITLAC(/1) 40 : ENDIF 41 : C 42 : DO 398 I=1,N1 43 : K=ITLAC(I) 44 : IMAX=MAX(IMAX,K) 45 : 398 CONTINUE 46 : 9 CONTINUE 47 : * SEGDES ICOLAC,ILISSE 48 : RETURN 49 : END 50 : 51 : 52 : 53 : 54 : 55 :
© Cast3M 2003 - All rights reserved.
Disclaimer