1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
|
c
c efcn_set_work_array_dims.F
c
c Jonathan Callahan
c Sep 22nd 1998
c
c
c This subroutine is called by efcn_compute_ inside EF_ExternalUtil.c.
c It sets all of the dimensioning information for the work spaces in
c ef_mem_subsc.cmn.
c
SUBROUTINE EFCN_SET_WORK_ARRAY_DIMS(iarray, xlo, ylo, zlo, tlo,
. elo, flo, xhi, yhi, zhi, thi, ehi, fhi)
IMPLICIT NONE
INCLUDE 'EF_mem_subsc.cmn'
INTEGER iarray, xlo, ylo, zlo, tlo, elo, flo,
. xhi, yhi, zhi, thi, ehi, fhi
IF (iarray .EQ. 1) THEN
wrk1lox = xlo
wrk1loy = ylo
wrk1loz = zlo
wrk1lot = tlo
wrk1loe = elo
wrk1lof = flo
wrk1hix = xhi
wrk1hiy = yhi
wrk1hiz = zhi
wrk1hit = thi
wrk1hie = ehi
wrk1hif = fhi
ELSE IF (iarray .EQ. 2) THEN
wrk2lox = xlo
wrk2loy = ylo
wrk2loz = zlo
wrk2lot = tlo
wrk2loe = elo
wrk2lof = flo
wrk2hix = xhi
wrk2hiy = yhi
wrk2hiz = zhi
wrk2hit = thi
wrk2hie = ehi
wrk2hif = fhi
ELSE IF (iarray .EQ. 3) THEN
wrk3lox = xlo
wrk3loy = ylo
wrk3loz = zlo
wrk3lot = tlo
wrk3loe = elo
wrk3lof = flo
wrk3hix = xhi
wrk3hiy = yhi
wrk3hiz = zhi
wrk3hit = thi
wrk3hie = ehi
wrk3hif = fhi
ELSE IF (iarray .EQ. 4) THEN
wrk4lox = xlo
wrk4loy = ylo
wrk4loz = zlo
wrk4lot = tlo
wrk4loe = elo
wrk4lof = flo
wrk4hix = xhi
wrk4hiy = yhi
wrk4hiz = zhi
wrk4hit = thi
wrk4hie = ehi
wrk4hif = fhi
ELSE IF (iarray .EQ. 5) THEN
wrk5lox = xlo
wrk5loy = ylo
wrk5loz = zlo
wrk5lot = tlo
wrk5loe = elo
wrk5lof = flo
wrk5hix = xhi
wrk5hiy = yhi
wrk5hiz = zhi
wrk5hit = thi
wrk5hie = ehi
wrk5hif = fhi
ELSE IF (iarray .EQ. 6) THEN
wrk6lox = xlo
wrk6loy = ylo
wrk6loz = zlo
wrk6lot = tlo
wrk6loe = elo
wrk6lof = flo
wrk6hix = xhi
wrk6hiy = yhi
wrk6hiz = zhi
wrk6hit = thi
wrk6hie = ehi
wrk6hif = fhi
ELSE IF (iarray .EQ. 7) THEN
wrk7lox = xlo
wrk7loy = ylo
wrk7loz = zlo
wrk7lot = tlo
wrk7loe = elo
wrk7lof = flo
wrk7hix = xhi
wrk7hiy = yhi
wrk7hiz = zhi
wrk7hit = thi
wrk7hie = ehi
wrk7hif = fhi
ELSE IF (iarray .EQ. 8) THEN
wrk8lox = xlo
wrk8loy = ylo
wrk8loz = zlo
wrk8lot = tlo
wrk8loe = elo
wrk8lof = flo
wrk8hix = xhi
wrk8hiy = yhi
wrk8hiz = zhi
wrk8hit = thi
wrk8hie = ehi
wrk8hif = fhi
ELSE IF (iarray .EQ. 9) THEN
wrk9lox = xlo
wrk9loy = ylo
wrk9loz = zlo
wrk9lot = tlo
wrk9loe = elo
wrk9lof = flo
wrk9hix = xhi
wrk9hiy = yhi
wrk9hiz = zhi
wrk9hit = thi
wrk9hie = ehi
wrk9hif = fhi
ELSE IF (iarray .EQ. 10) THEN
wrk10lox = xlo
wrk10loy = ylo
wrk10loz = zlo
wrk10lot = tlo
wrk10loe = elo
wrk10lof = flo
wrk10hix = xhi
wrk10hiy = yhi
wrk10hiz = zhi
wrk10hit = thi
wrk10hie = ehi
wrk10hif = fhi
ELSE IF (iarray .EQ. 11) THEN
wrk11lox = xlo
wrk11loy = ylo
wrk11loz = zlo
wrk11lot = tlo
wrk11loe = elo
wrk11lof = flo
wrk11hix = xhi
wrk11hiy = yhi
wrk11hiz = zhi
wrk11hit = thi
wrk11hie = ehi
wrk11hif = fhi
ELSE IF (iarray .EQ. 12) THEN
wrk12lox = xlo
wrk12loy = ylo
wrk12loz = zlo
wrk12lot = tlo
wrk12loe = elo
wrk12lof = flo
wrk12hix = xhi
wrk12hiy = yhi
wrk12hiz = zhi
wrk12hit = thi
wrk12hie = ehi
wrk12hif = fhi
END IF
RETURN
END
|
