Télécharger maxp32.eso

Retour à la liste

Numérotation des lignes :

  1. C MAXP32 SOURCE PV 16/11/26 21:16:08 9205
  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
  39. ilissd=ilissp
  40. CALL AJOUN(ITLACC,IMIL,ILISSd,3)
  41. N1=ITLAC(/1)
  42. ENDIF
  43. C
  44. DO 398 I=1,N1
  45. K=ITLAC(I)
  46. IMAX=MAX(IMAX,K)
  47. 398 CONTINUE
  48. 9 CONTINUE
  49. * SEGDES ICOLAC,ILISSE
  50. RETURN
  51. END
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  

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