Télécharger mtabl.eso

Retour à la liste

Numérotation des lignes :

  1. C MTABL SOURCE CB215821 16/04/21 21:17:51 8920
  2. SUBROUTINE MTABL (V,VMAX,IMA,NL)
  3. C
  4. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  5. C C
  6. C MAX D'UN TABLEAU DE LONGUEUR NL C
  7. C C
  8. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  9. C
  10. IMPLICIT INTEGER(I-N)
  11. IMPLICIT REAL*8 (A-H,O-Z)
  12. DIMENSION V(1)
  13. C
  14. IMA=1
  15. VMAX=0.
  16. AVMAX=0.
  17. DO 10 I=1,NL
  18. A=ABS(V(I))
  19. IF (A.GT.AVMAX) THEN
  20. IMA=I
  21. AVMAX=A
  22. VMAX=V(I)
  23. ENDIF
  24. 10 CONTINUE
  25. RETURN
  26. END
  27.  
  28.  
  29.  
  30.  
  31.  

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