Télécharger la plaquette Cast3M


fr en

Télécharger maxp1.eso

Retour à la liste

Numérotation des lignes : 

maxp1

  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