MINICERN/mathlib/gen/e/maxdze.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:24  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       FUNCTION MAXDZE(DA,N)
  11 #if !defined(CERNLIB_DOUBLE)
  12       CHARACTER*6 NAME
  13       NAME = 'MAXDZE'
  14       CALL MTLPRT(NAME,'E102',
  15      +'not available on this machine - see documentation')
  16       MAXDZE = 0
  17       RETURN
  18
  19       FUNCTION MAXDZE(DA,N)
  20       NAME = 'MINDZE'
  21       CALL MTLPRT(NAME,'E102',
  22      +'not available on this machine - see documentation')
  23       MINDZE = 0
  24       RETURN
  25       END
  26
  27 #endif
  28 #if defined(CERNLIB_DOUBLE)
  29       DOUBLE PRECISION DA,D
  30
  31       DIMENSION DA(*)
  32
  33       J=1
  34       D=DA(1)
  35       DO 5 K = 2, N
  36       IF(DA(K) .LE. D) GO TO 5
  37       J=K
  38       D=DA(K)
  39     5 CONTINUE
  40       MAXDZE=J
  41       RETURN
  42
  43       ENTRY MINDZE(DA,N)
  44
  45       J=1
  46       D=DA(1)
  47       DO 6 K = 2,N
  48       IF(DA(K) .GE. D) GO TO 6
  49       J=K
  50       D=DA(K)
  51     6 CONTINUE
  52       MINDZE=J
  53       RETURN
  54       END
  55 #endif