CTITLEMPEAK  -- VECTOR NORMALIZATION                                    00000010
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA     AUTHOR               D. D. THOMPSON                              00000020
CA     DESIGNER             D. D. THOMPSON                              00000030
CA     LANGUAGE             FORTRAN 77                                  00000040
CA     SYSTEM               IBM & CRAY                                  00000041
CA     WRITTEN              1972                                        00000050
C      REVISED              MO-DA-YR                                    00000060
C      REVISED              05-20-85 TWH. ADAPTED TO IBM & CRAY SYSTEMS 00000061
CA                                                                      00000070
CA                                                                      00000080
CA     CALL MPEAK (X, N, VAL, PNT)                                      00000090
CA           INPUT  X     = INPUT ARRAY                            R4   00000100
CA           INPUT  N     = LENGTH OF X                            I4   00000110
CA           OUTPUT VAL   = PEAK VALUE IN X                        R4   00000120
CA           OUTPUT PNT   = SAMPLE NUMBER OF PEAK VALUE            R4   00000130
CA                                                                      00000140
CA                                                                      00000150
CA         THIS ROUTINE FINDS THE PEAK VALUE IN AN ARRAY.               00000160
CA                                                                      00000170
CAEND                                                                   00000180
C                                                                       00000190
C                                                                       00000200
      SUBROUTINE MPEAK (X, N, VAL, PNT)                                 00000210
C                                                                       00000220
      DIMENSION X(1)                                                    00000230
C                                                                       00000240
      Q=0.                                                              00000250
      J=1                                                               00000260
C                                                                       00000270
          DO                                                        20  00000280
     *    I=1,N                                                         00000290
          T=ABS(X(I))                                                   00000300
          IF(Q.GE.T)GO TO                                           20  00000310
          J=I                                                           00000320
          Q=T                                                           00000330
C                                                                       00000340
   20     CONTINUE                                                      00000350
C                                                                       00000360
      VAL=X(J)                                                          00000370
      PNT=J                                                             00000380
      RETURN                                                            00000390
      END                                                               00000400