| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
37 |
NO PROCEDURE |
INTEGER npart_tile(nSx,nSy) |
|
./pkg/flt/FLT.h |
38 |
NO PROCEDURE |
common /flt_t/ npart_tile |
|
./pkg/flt/flt_init.F |
195 |
FLT_INIT |
npart_tile(bi,bj) = 0 |
|
./pkg/flt/flt_init.F |
197 |
FLT_INIT |
npart_tile(bi,bj) = INT(npart_read) |
|
./pkg/flt/flt_init.F |
228 |
FLT_INIT |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_init.F |
229 |
FLT_INIT |
if (npart_tile(bi,bj) .gt. max_npart_tile) |
|
./pkg/flt/flt_init.F |
232 |
FLT_INIT |
npart(npart_tile(bi,bj),bi,bj) = tmp(1) |
|
./pkg/flt/flt_init.F |
233 |
FLT_INIT |
tstart(npart_tile(bi,bj),bi,bj) = tmp(2) |
|
./pkg/flt/flt_init.F |
234 |
FLT_INIT |
xpart(npart_tile(bi,bj),bi,bj) = tmp(3) |
|
./pkg/flt/flt_init.F |
235 |
FLT_INIT |
ypart(npart_tile(bi,bj),bi,bj) = tmp(4) |
|
./pkg/flt/flt_init.F |
236 |
FLT_INIT |
kpart(npart_tile(bi,bj),bi,bj) = tmp(5) |
|
./pkg/flt/flt_init.F |
237 |
FLT_INIT |
kfloat(npart_tile(bi,bj),bi,bj) = tmp(6) |
|
./pkg/flt/flt_init.F |
238 |
FLT_INIT |
iup(npart_tile(bi,bj),bi,bj) = tmp(7) |
|
./pkg/flt/flt_init.F |
239 |
FLT_INIT |
itop(npart_tile(bi,bj),bi,bj) = tmp(8) |
|
./pkg/flt/flt_init.F |
240 |
FLT_INIT |
tend(npart_tile(bi,bj),bi,bj) = tmp(9) |
|
./pkg/flt/flt_init.F |
262 |
FLT_INIT |
npart_dist = DBLE(npart_tile(bi,bj)) |
|
./pkg/flt/flt_down.F |
45 |
FLT_DOWN |
do ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_runga2.F |
76 |
FLT_RUNGA2 |
do ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
106 |
FLT_EXCHG |
npart(ip,bi,bj) = npart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
107 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
108 |
FLT_EXCHG |
xpart(ip,bi,bj) = xpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
109 |
FLT_EXCHG |
ypart(ip,bi,bj) = ypart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
110 |
FLT_EXCHG |
kpart(ip,bi,bj) = kpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
111 |
FLT_EXCHG |
kfloat(ip,bi,bj) = kfloat(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
112 |
FLT_EXCHG |
iup(ip,bi,bj) = iup(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
113 |
FLT_EXCHG |
itop(ip,bi,bj) = itop(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
114 |
FLT_EXCHG |
tend(ip,bi,bj) = tend(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
116 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) - 1 |
|
./pkg/flt/flt_exchg.F |
136 |
FLT_EXCHG |
npart(ip,bi,bj) = npart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
137 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
138 |
FLT_EXCHG |
xpart(ip,bi,bj) = xpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
139 |
FLT_EXCHG |
ypart(ip,bi,bj) = ypart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
140 |
FLT_EXCHG |
kpart(ip,bi,bj) = kpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
141 |
FLT_EXCHG |
kfloat(ip,bi,bj) = kfloat(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
142 |
FLT_EXCHG |
iup(ip,bi,bj) = iup(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
143 |
FLT_EXCHG |
itop(ip,bi,bj) = itop(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
144 |
FLT_EXCHG |
tend(ip,bi,bj) = tend(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
146 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) - 1 |
|
./pkg/flt/flt_exchg.F |
170 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
171 |
FLT_EXCHG |
if (npart_tile(bi,bj) .gt. max_npart_tile) |
|
./pkg/flt/flt_exchg.F |
174 |
FLT_EXCHG |
npart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
176 |
FLT_EXCHG |
tstart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
178 |
FLT_EXCHG |
xpart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
180 |
FLT_EXCHG |
ypart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
182 |
FLT_EXCHG |
kpart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
184 |
FLT_EXCHG |
kfloat(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
186 |
FLT_EXCHG |
iup(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
188 |
FLT_EXCHG |
itop(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
190 |
FLT_EXCHG |
tend(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
200 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
201 |
FLT_EXCHG |
if (npart_tile(bi,bj) .gt. max_npart_tile) |
|
./pkg/flt/flt_exchg.F |
204 |
FLT_EXCHG |
npart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
206 |
FLT_EXCHG |
tstart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
208 |
FLT_EXCHG |
xpart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
210 |
FLT_EXCHG |
ypart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
212 |
FLT_EXCHG |
kpart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
214 |
FLT_EXCHG |
kfloat(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
216 |
FLT_EXCHG |
iup(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
218 |
FLT_EXCHG |
itop(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
220 |
FLT_EXCHG |
itop(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
222 |
FLT_EXCHG |
tend(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
259 |
FLT_EXCHG |
do ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
277 |
FLT_EXCHG |
npart(ip,bi,bj) = npart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
278 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
279 |
FLT_EXCHG |
xpart(ip,bi,bj) = xpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
280 |
FLT_EXCHG |
ypart(ip,bi,bj) = ypart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
281 |
FLT_EXCHG |
kpart(ip,bi,bj) = kpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
282 |
FLT_EXCHG |
kfloat(ip,bi,bj) = kfloat(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
283 |
FLT_EXCHG |
iup(ip,bi,bj) = iup(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
284 |
FLT_EXCHG |
itop(ip,bi,bj) = itop(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
285 |
FLT_EXCHG |
tend(ip,bi,bj) = tend(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
287 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) - 1 |
|
./pkg/flt/flt_exchg.F |
306 |
FLT_EXCHG |
npart(ip,bi,bj) = npart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
307 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
308 |
FLT_EXCHG |
xpart(ip,bi,bj) = xpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
309 |
FLT_EXCHG |
ypart(ip,bi,bj) = ypart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
310 |
FLT_EXCHG |
kpart(ip,bi,bj) = kpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
311 |
FLT_EXCHG |
kfloat(ip,bi,bj) = kfloat(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
312 |
FLT_EXCHG |
iup(ip,bi,bj) = iup(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
313 |
FLT_EXCHG |
itop(ip,bi,bj) = itop(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
314 |
FLT_EXCHG |
tend(ip,bi,bj) = tend(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
316 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) - 1 |
|
./pkg/flt/flt_exchg.F |
341 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
342 |
FLT_EXCHG |
if (npart_tile(bi,bj) .gt. max_npart_tile) |
|
./pkg/flt/flt_exchg.F |
345 |
FLT_EXCHG |
npart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
347 |
FLT_EXCHG |
tstart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
349 |
FLT_EXCHG |
xpart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
351 |
FLT_EXCHG |
ypart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
353 |
FLT_EXCHG |
kpart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
355 |
FLT_EXCHG |
kfloat(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
357 |
FLT_EXCHG |
iup(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
359 |
FLT_EXCHG |
itop(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
361 |
FLT_EXCHG |
tend(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
371 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
372 |
FLT_EXCHG |
if (npart_tile(bi,bj) .gt. max_npart_tile) |
|
./pkg/flt/flt_exchg.F |
375 |
FLT_EXCHG |
npart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
377 |
FLT_EXCHG |
tstart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
379 |
FLT_EXCHG |
xpart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
381 |
FLT_EXCHG |
ypart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
383 |
FLT_EXCHG |
kpart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
385 |
FLT_EXCHG |
kfloat(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
387 |
FLT_EXCHG |
iup(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
389 |
FLT_EXCHG |
itop(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
391 |
FLT_EXCHG |
tend(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
88 |
FLT_EXCHG |
do ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_restart.F |
53 |
FLT_RESTART |
tmp(1) = DBLE(npart_tile(bi,bj)) |
|
./pkg/flt/flt_restart.F |
63 |
FLT_RESTART |
do ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_restart.F |
84 |
FLT_RESTART |
npart_dist = DBLE(npart_tile(bi,bj)) |
|
./pkg/flt/flt_up.F |
116 |
FLT_UP |
do ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_up.F |
99 |
FLT_UP |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./pkg/flt/flt_traj.F |
116 |
FLT_TRAJ |
do ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_traj.F |
98 |
FLT_TRAJ |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |