1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
#include "PACKAGES_CONFIG.h" |
5 |
#include "CPP_OPTIONS.h" |
6 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
7 |
CBOP 0 |
8 |
C !ROUTINE: ASKPARAMRL |
9 |
|
10 |
C !INTERFACE: |
11 |
FUNCTION ASKPARAMRL(NAME) |
12 |
|
13 |
C !DESCRIPTION: |
14 |
C Real function askparam queries common blocks in PARAMS.h |
15 |
C Function is called with a character name to interrogate a |
16 |
C real value. |
17 |
|
18 |
C !USES: |
19 |
implicit none |
20 |
#include "SIZE.h" |
21 |
#include "EEPARAMS.h" |
22 |
#include "PARAMS.h" |
23 |
|
24 |
C !INPUT PARAMETERS: |
25 |
CHARACTER*(*) NAME |
26 |
CEOP |
27 |
|
28 |
integer I |
29 |
INTEGER MAXCON |
30 |
C So far we can query no values - the routine can be taught |
31 |
PARAMETER (MAXCON=1) |
32 |
CHARACTER*16 ANAME(MAXCON) |
33 |
data ANAME(1)/' '/ |
34 |
_RL ASKPARAMRL |
35 |
|
36 |
DO I=1,MAXCON |
37 |
IF(NAME.EQ.ANAME(1)) THEN |
38 |
ASKPARAMRL = 0. |
39 |
RETURN |
40 |
ENDIF |
41 |
ENDDO |
42 |
|
43 |
900 PRINT *,' ASKPARAMRL CANNOT FIND - ',NAME |
44 |
RETURN |
45 |
END |
46 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
47 |
CBOP 0 |
48 |
C !ROUTINE: ASKPARAML |
49 |
|
50 |
C !INTERFACE: |
51 |
FUNCTION ASKPARAML(NAME) |
52 |
|
53 |
C !DESCRIPTION: |
54 |
C Logical function askparam queries common blocks in PARAMS.h |
55 |
C Function is called with a character name to interrogate a |
56 |
C logical value. |
57 |
|
58 |
C !USES: |
59 |
implicit none |
60 |
#include "SIZE.h" |
61 |
#include "EEPARAMS.h" |
62 |
#include "PARAMS.h" |
63 |
|
64 |
C !INPUT PARAMETERS: |
65 |
CHARACTER*(*) NAME |
66 |
CEOP |
67 |
|
68 |
integer I |
69 |
INTEGER MAXCON |
70 |
C So far we can query 1 value only - the routine can be taught more |
71 |
PARAMETER (MAXCON=1) |
72 |
CHARACTER*16 ANAME(MAXCON) |
73 |
data ANAME(1)/'useMNC '/ |
74 |
logical ASKPARAML |
75 |
|
76 |
DO I=1,MAXCON |
77 |
IF(NAME.EQ.ANAME(1)) THEN |
78 |
ASKPARAML = useMNC |
79 |
RETURN |
80 |
ENDIF |
81 |
ENDDO |
82 |
|
83 |
900 PRINT *,' ASKPARAML CANNOT FIND - ',NAME |
84 |
RETURN |
85 |
END |
86 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
87 |
CBOP 0 |
88 |
C !ROUTINE: ASKPARAMI |
89 |
|
90 |
C !INTERFACE: |
91 |
FUNCTION ASKPARAMI(NAME) |
92 |
|
93 |
C !DESCRIPTION: |
94 |
C Integer function askparam queries common blocks in PARAMS.h |
95 |
C Function is called with a character name to interrogate an |
96 |
C integer value. |
97 |
|
98 |
C !USES: |
99 |
implicit none |
100 |
#include "SIZE.h" |
101 |
#include "EEPARAMS.h" |
102 |
#include "PARAMS.h" |
103 |
|
104 |
C !INPUT PARAMETERS: |
105 |
CHARACTER*(*) NAME |
106 |
CEOP |
107 |
|
108 |
integer I |
109 |
INTEGER MAXCON |
110 |
C So far we can query 1 value only - the routine can be taught more |
111 |
PARAMETER (MAXCON=1) |
112 |
CHARACTER*16 ANAME(MAXCON) |
113 |
data ANAME(1)/'NITER0 '/ |
114 |
integer ASKPARAMI |
115 |
|
116 |
DO I=1,MAXCON |
117 |
IF(NAME.EQ.ANAME(1)) THEN |
118 |
ASKPARAMI = nIter0 |
119 |
RETURN |
120 |
ENDIF |
121 |
ENDDO |
122 |
|
123 |
900 PRINT *,' ASKPARAMI CANNOT FIND - ',NAME |
124 |
RETURN |
125 |
END |