Télécharger la plaquette Cast3M


fr en

Télécharger maxp32.eso

Retour à la liste

Numérotation des lignes : 

maxp32

  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.  
  19. -INC PPARAM
  20. -INC CCOPTIO
  21. -INC TMCOLAC
  22.  
  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.  
  26.       IMAX = 0
  27.  
  28.       SEGACT ICOLAC
  29.       ITLACC = KCOLA(32)
  30.       N1 = ITLAC(/1)
  31.  
  32.       IF (N1.EQ.0) GO TO 9
  33.  
  34.       DO I = 1, N1
  35.         K    = ITLAC(I)
  36.         IMAX = MAX(IMAX,K)
  37.       ENDDO
  38.  
  39.  9    CONTINUE
  40. *      SEGDES ICOLAC
  41.  
  42.       RETURN
  43.       END
  44.  
  45.  
  46.  
  47.  

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