Télécharger maxp32.eso

Retour à la liste

Numérotation des lignes :

  1. C MAXP32 SOURCE PV 17/12/05 21:16:43 9646
  2.  
  3. SUBROUTINE MAXP32(ICOLAC,IMAX)
  4.  
  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 : VOIR LE SOUS-PROGRAMME TYPFIL POUR SA DESCRIPTION
  13. C=======================================================================
  14.  
  15. IMPLICIT INTEGER(I-N)
  16. IMPLICIT REAL*8(A-H,O-Z)
  17.  
  18. -INC CCOPTIO
  19. -INC TMCOLAC
  20.  
  21. C **** LES POINTS SONT CLASSES AVEC EN TETE CEUX DES OBJETS QUI NOUS
  22. C **** INTERESSENT. ON RECHERCHE LE PLUS GRAND POINT A SORTIR: IMAX
  23.  
  24. IMAX = 0
  25.  
  26. SEGACT ICOLAC
  27. ITLACC = KCOLA(32)
  28. N1 = ITLAC(/1)
  29.  
  30. IF (N1.EQ.0) GO TO 9
  31.  
  32. DO I = 1, N1
  33. K = ITLAC(I)
  34. IMAX = MAX(IMAX,K)
  35. ENDDO
  36.  
  37. 9 CONTINUE
  38. * SEGDES ICOLAC
  39.  
  40. RETURN
  41. END
  42.  
  43.  
  44.  
  45.  

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