MINICERN/packlib/kernlib/kerngen/tcgens/lvmaxa.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:50:12  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       FUNCTION LVMAXA (A,N)
  11 C
  12 C CERN PROGLIB# F121    LVMAXA          .VERSION KERNFOR  1.0   710701
  13 C ORIG. 01/07/71
  14 C
  15       DIMENSION A(*)
  16 C
  17 C
  18       IF (N.LE.0)  GO TO 100
  19       J= 1
  20       AMAX = 0.
  21       DO 9 I= 1,N
  22       CA= ABS (A(I))
  23       IF (CA.LE.AMAX)  GO TO 9
  24       AMAX= CA
  25       J= I
  26     9 CONTINUE
  27       LVMAXA = J
  28       RETURN
  29   100 LVMAXA = 0
  30       RETURN
  31       END