]>
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 |