[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / e / maxdze.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:24  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      FUNCTION MAXDZE(DA,N)
#if !defined(CERNLIB_DOUBLE)
      CHARACTER*6 NAME
      NAME = 'MAXDZE'
      CALL MTLPRT(NAME,'E102',
     +'not available on this machine - see documentation')
      MAXDZE = 0
      RETURN

      FUNCTION MAXDZE(DA,N)
      NAME = 'MINDZE'
      CALL MTLPRT(NAME,'E102',
     +'not available on this machine - see documentation')
      MINDZE = 0
      RETURN
      END

#endif
#if defined(CERNLIB_DOUBLE)
      DOUBLE PRECISION DA,D
 
      DIMENSION DA(*)
 
      J=1
      D=DA(1)
      DO 5 K = 2, N
      IF(DA(K) .LE. D) GO TO 5
      J=K
      D=DA(K)
    5 CONTINUE
      MAXDZE=J
      RETURN
 
      ENTRY MINDZE(DA,N)
 
      J=1
      D=DA(1)
      DO 6 K = 2,N
      IF(DA(K) .GE. D) GO TO 6
      J=K
      D=DA(K)
    6 CONTINUE
      MINDZE=J
      RETURN
      END
#endif
Commit	Line	Data
fe4da5cc	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