Télécharger la plaquette Cast3M


fr en

Télécharger maxlre.eso

Retour à la liste

Numérotation des lignes : 

maxlre

  1. C MAXLRE    SOURCE    CHAT      05/01/13    01:37:03     5004
  2.       INTEGER FUNCTION MAXLRE (MLREE1,MLREE2)
  3. ************************************************************************
  4. *
  5. *                             M A X L R E
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     ANALOGUE AU "MAX" FORTRAN, APPLIQUE A 2 "LISTREEL":
  12. *
  13. *     A PARTIR DE 2 "LISTREEL" DE MEMES LONGUEURS, CREATION D'UN 3IEME
  14. *     CONTENANT LES MAXIMA INDICE PAR INDICE.
  15. *
  16. * MODULES UTILISES:
  17. * -----------------
  18. *
  19.       IMPLICIT INTEGER(I-N)
  20. -INC SMLREEL
  21. *
  22. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  23. * -----------
  24. *
  25. *     MLREE1  (E)  1ER "LISTREEL".
  26. *     MLREE2  (E)  2EME "LISTREEL".
  27. *     MAXLRE  (S)  "LISTREEL" DES MAXIMA.
  28. *
  29. * REMARQUES:
  30. * ----------
  31. *
  32. *     LE TEST D'EGALITES ENTRE LONGUEURS DES LISTES N'EST PAS FAIT DANS
  33. *     CE SOUS-PROGRAMME.
  34. *
  35. * AUTEUR, DATE DE CREATION:
  36. * -------------------------
  37. *
  38. *     PASCAL MANIGOT     8 SEPTEMBRE 1988
  39. *
  40. * LANGAGE:
  41. * --------
  42. *
  43. *     ESOPE + FORTRAN77
  44. *
  45. ************************************************************************
  46. *
  47.       SEGACT,MLREE1,MLREE2
  48.       JG = MLREE1.PROG(/1)
  49.       SEGINI,MLREE3
  50. *
  51.       DO 100 IB=1,JG
  52.          MLREE3.PROG(IB) = MAX(MLREE1.PROG(IB),MLREE2.PROG(IB))
  53.   100    CONTINUE
  54. *     END DO
  55. *
  56.       SEGDES,MLREE1,MLREE2
  57.       SEGDES,MLREE3
  58.       MAXLRE = MLREE3
  59. *
  60.       END
  61.  
  62.  

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