C UTMXV     SOURCE    CHAT      05/01/13    04:00:14     5004           
      SUBROUTINE UTMXV(B,M,BMAX)
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
      DIMENSION B(M)
C                                                                               
C     CALCUL DU MAXIMUM BMAX D'UNE MATRICE B
C
      AB = B(1)
      BMAX = DABS(AB)
      DO 1 I= 1,M                                                               
      AB = DABS(B(I))                                                           
      BMAX = DMAX1(BMAX,AB)                                                     
  1   CONTINUE                                                                  
      RETURN
      END