Esope source files

   1 : C UTMXV     SOURCE    CHAT      05/01/13    04:00:14     5004           
   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 = DABS(AB)
  12 :       DO 1 I= 1,M                                                               
  13 :       AB = DABS(B(I))                                                           
  14 :       BMAX = DMAX1(BMAX,AB)                                                     
  15 :   1   CONTINUE                                                                  
  16 :       RETURN
  17 :       END
  18 :