Télécharger maxp1.eso

Retour à la liste

Numérotation des lignes :

  1. C MAXP1 SOURCE CB215821 19/08/20 21:19:41 10287
  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.  
  19. -INC PPARAM
  20. -INC CCOPTIO
  21. -INC SMELEME
  22. -INC TMCOLAC
  23. C
  24. C
  25. C **** LES POINTS SONT CLASSES AVEC EN TETE CEUX DES OBJETS QUI NOUS
  26. C **** INTERESSENT. ON RECHERCHE LE PLUS GRAND POINT A SORTIR: IMAX
  27. C
  28. IMAX=0
  29. SEGACT ICOLAC
  30. ITLACC=KCOLA(1)
  31. N1=ITLAC(/1)
  32. SEGDES ICOLAC
  33. C
  34. IF (N1.EQ.0) GO TO 9
  35. DO 398 INN=1,N1
  36. MELEME=ITLAC(INN)
  37. IF (MELEME.EQ.0) GO TO 398
  38. SEGACT MELEME
  39. IF(LISOUS(/1).NE.0)GO TO 6
  40. DO 3 J=1,NUM(/2)
  41. DO 4 I=1,NUM(/1)
  42. IMAX=MAX(IMAX,NUM(I,J))
  43. 4 CONTINUE
  44. 3 CONTINUE
  45. 6 CONTINUE
  46. 398 CONTINUE
  47. 9 CONTINUE
  48. END
  49.  
  50.  
  51.  

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