C #BOUNDS V1A 29-MAY-73 C LAST UPDATE: C SUBROUTINE BOUNDS (A, N, AMIN, AMAX) DIMENSION A(N) C C *PURPOSE. C TO FIND THE UPPER AND LOWER BOUNDS OF A REAL ARRAY OF C NUMBERS A(I). C C *PARAMETERS: C C A - THE REAL ARRAY OF DIMENSION "N" OR MORE WHOSE BOUNDS ARE C REQUIRED. C N - THE INTEGER LOGICAL LENGTH OF THE ARRAY "A" C AMIN- RETURNS THE REAL VALUE OF THE LOWER BOUND. C AMAX- RETURNS THE REAL VALUE OF THE UPPER BOUND. C C INPUT PARAMETERS: C A, N C OUTPUT PARAMETERS: C AMIN, AMAX C C *METHOD. C THE ROUTINE MAKES REPEATED USE OF THE FORTRAN SYSTEM C ROUTINES "AMIN1" AND "AMAX1" TO FIND THE LOWEST AND HIGHEST C VALUES OF THE ARRAY "A". C C *ACCURACY. C C *RESTRICTIONS. C C *ERROR CONDITIONS. C C *NON STANDARD ROUTINES CALLED. C C *TYPICAL TIMES. C C *ORIGIN. M.R.MANNING. C C *COMMENTS. C C #END. C C #START.V AMIN= A(1) AMAX= A(1) IF (N .LT. 2) RETURN DO 20 I= 2, N AMIN= AMIN1(AMIN, A(I)) 20 AMAX= AMAX1(AMAX, A(I)) RETURN END