Télécharger maxim3.eso

Retour à la liste

Numérotation des lignes :

  1. C MAXIM3 SOURCE CHAT 05/01/13 01:36:20 5004
  2. SUBROUTINE MAXIM3 (IPLREE,IPLACE,PGRAND)
  3. ************************************************************************
  4. *
  5. * M A X I M 3
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * FOURNIR LA PLUS GRANDE VALEUR D'UN 'LISTREEL' (PLUS GRANDE EN
  12. * VALEUR ABSOLUE, MAIS RETOURNEE AVEC SON SIGNE).
  13. *
  14. * MODE D'APPEL:
  15. * -------------
  16. *
  17. * CALL MAXIM3 (IPLREE,IPLACE,PGRAND)
  18. *
  19. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  20. * -----------
  21. *
  22. * IPLREE ENTIER (E) POINTEUR SUR LE 'LISTREEL' DONT ON EXTRAIT
  23. * LA PLUS GRANDE VALEUR.
  24. * IPLACE ENTIER (S) RANG DE LA PLUS GRANDE VALEUR DANS LE
  25. * 'LISTREEL'.
  26. * PGRAND REEL DP (S) PLUS GRANDE VALEUR (EN VALEUR ABSOLUE)
  27. * EXTRAITE DU 'LISTREEL'.
  28. * CETTE VALEUR EST RETOURNEE AVEC SON SIGNE.
  29. *
  30. * AUTEUR, DATE DE CREATION:
  31. * -------------------------
  32. *
  33. * PASCAL MANIGOT 16 AVRIL 1985
  34. *
  35. * LANGAGE:
  36. * --------
  37. *
  38. * ESOPE + FORTRAN77
  39. *
  40. ************************************************************************
  41. *
  42. IMPLICIT INTEGER(I-N)
  43. -INC SMLREEL
  44. *
  45. REAL*8 AGRAND,PGRAND
  46. *
  47. MLREEL = IPLREE
  48. SEGACT,MLREEL
  49. LDIM = PROG(/1)
  50. *
  51. AGRAND = -1.D0
  52. PGRAND = 0.D0
  53. IPLACE = 0
  54. DO 100 IB100=1,LDIM
  55. IF (ABS(PROG(IB100)) .GT. AGRAND) THEN
  56. PGRAND = PROG(IB100)
  57. AGRAND = ABS(PGRAND)
  58. IPLACE = IB100
  59. END IF
  60. 100 CONTINUE
  61. * END DO
  62. *
  63. * RQ: POUR L'INSTANT, ON DECIDE DE RENVOYER (PGRAND = 0.) ET
  64. * (IPLACE = 0) SI LE 'LISTREEL' EST VIDE.
  65. * ON NE FAIT PAS DE MESSAGE D'ERREUR.
  66. *
  67. SEGDES,MLREEL
  68. *
  69. END
  70.  
  71.  

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