C....*...1.........2.........3.........4.........5.........6.........7.*.......8 C DVMAX 9/14/74 C C PURPOSE C FUNCTION SUBPROGRAM TO FIND THE MAXIMUM VALUE OF A GIVEN VECTOR. C C USAGE C AMAX=DVMAX(A,N) C C ARGUMENTS C A - INPUT VECTOR C REAL*8 C N - LENGTH OF A C INTEGER*4 C C real*8 FUNCTION DVMAX(A,N) implicit real*8 (a-h,o-z) save REAL*8 A(1),AMAX AMAX=A(1) DO 10 I=1,N 10 IF(A(I).GT.AMAX) AMAX=A(I) DVMAX=AMAX RETURN END