End of file
Contents
Index

      DOUBLE PRECISION FUNCTION VMNORM (VECTOR,N)
C
C*****************************************************************
C                                                                *
C This FUNCTION routine determines the maximum norm of a vector. *
C                                                                *
C                                                                *
C INPUT PARAMETERS:                                              *
C =================                                              *
C VECTOR  : DOUBLE PRECISION vector VECTOR(1:N)                  *
C N       : size of the vector                                   *
C                                                                *
C                                                                *
C LOCAL VARIABLE:                                                *
C ===============                                                *
C I       : loop variable                                        *
C                                                                *
C                                                                *
C----------------------------------------------------------------*
C                                                                *
C  subroutines required: none                                    *
C                                                                *
C*****************************************************************
C                                                                *
C  Author  : Volker Krüger                                     *
C  Date    : 07.08.1990                                        *
C  Source  : FORTRAN 77                                        *
C                                                                *
C*****************************************************************
C
C Declaration
C
      DOUBLE PRECISION VECTOR(N)
C
C Compute maximum norm
C
      VMNORM=DABS(VECTOR(1))
      DO 10 I=2,N
         VMNORM=DMAX1(VMNORM,DABS(VECTOR(I)))
10    CONTINUE
      RETURN
      END


Begin of file
Contents
Index