Télécharger maxp1.eso

Retour à la liste

Numérotation des lignes :

  1. C MAXP1 SOURCE PV 16/11/26 21:16:07 9205
  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 J=1,NUM(/2)
  39. DO 3 I=1,NUM(/1)
  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.  
  53.  
  54.  
  55.  

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