MINICERN/packlib/kernlib/kerngen/tcgen/amaxmu.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:51  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       FUNCTION AMAXMU (A,IDO,IW,NA)
  11 C
  12 C CERN PROGLIB# E103    AMAXMU          .VERSION KERNFOR  1.0   680315
  13 C ORIG. 15/03/68
  14 C
  15       DIMENSION A(99)
  16 C
  17       AM=0.
  18       II=1
  19 C
  20          DO 19 JN=1,IDO
  21       I=II
  22 C
  23          DO 17 JK=1,IW
  24       AM = MAX (AM, ABS(A(I)))
  25    17 I=I+1
  26    19 II=II+NA
  27 C
  28       AMAXMU=AM
  29       RETURN
  30       END