Télécharger utmxv.eso

Retour à la liste

Numérotation des lignes :

utmxv
  1. C UTMXV SOURCE CB215821 17/11/30 21:17:24 9639
  2. SUBROUTINE UTMXV(B,M,BMAX)
  3. C
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8 (A-H,O-Z)
  6. DIMENSION B(M)
  7. C
  8. C CALCUL DU MAXIMUM BMAX D'UNE MATRICE B
  9. C
  10. AB = B(1)
  11. BMAX = ABS(AB)
  12. DO 1 I= 1,M
  13. AB = ABS(B(I))
  14. BMAX = MAX(BMAX,AB)
  15. 1 CONTINUE
  16. RETURN
  17. END
  18.  
  19.  
  20.  
  21.  
  22.  

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