| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
104 |
NO PROCEDURE |
_RL kfloat(max_npart_tile,nSx,nSy) |
|
./pkg/flt/FLT.h |
111 |
NO PROCEDURE |
& kfloat, iup, itop |
|
./pkg/flt/flt_down.F |
59 |
FLT_DOWN |
& kpart(ip,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
124 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_EAST) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
153 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_WEST) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
199 |
FLT_EXCH2 |
kfloat(ip,bi,bj) = kfloat(jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
239 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_NORTH) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
273 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_SOUTH) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
326 |
FLT_EXCH2 |
kfloat(ip,bi,bj) = kfloat(jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
400 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
429 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
458 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
487 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exchg.F |
114 |
FLT_EXCHG |
fltbuf_sendW(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
160 |
FLT_EXCHG |
kfloat(ip,bi,bj) = kfloat(jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
209 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvE(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
238 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvW(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
301 |
FLT_EXCHG |
fltbuf_sendE(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
330 |
FLT_EXCHG |
fltbuf_sendW(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
381 |
FLT_EXCHG |
kfloat(ip,bi,bj) = kfloat(jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
430 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvE(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
459 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvW(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
90 |
FLT_EXCHG |
fltbuf_sendE(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_init_varia.F |
142 |
FLT_INIT_VARIA |
kfloat(npart_tile(bi,bj),bi,bj) = tmp(6) |
|
./pkg/flt/flt_init_varia.F |
202 |
FLT_INIT_VARIA |
kfloat(ip,bi,bj) = tmp(6) |
|
./pkg/flt/flt_up.F |
105 |
FLT_UP |
& kpart(ip,bi,bj).EQ.kfloat(ip,bi,bj) .AND. |
|
./pkg/flt/flt_write_pickup.F |
85 |
FLT_WRITE_PICKUP |
tmp(6) = kfloat(ip,bi,bj) |
|
./verification/flt_example/extra/write_float.F |
101 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tstart,tend |
|
./verification/flt_example/extra/write_float.F |
113 |
NO PROCEDURE |
kfloat = kpart |
|
./verification/flt_example/extra/write_float.F |
118 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tend |
|
./verification/flt_example/extra/write_float.F |
123 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tstart,tend |
|
./verification/flt_example/extra/write_float.F |
140 |
NO PROCEDURE |
kfloat = 5. |
|
./verification/flt_example/extra/write_float.F |
145 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tend |
|
./verification/flt_example/extra/write_float.F |
150 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tstart,tend |
|
./verification/flt_example/extra/write_float.F |
166 |
NO PROCEDURE |
kfloat = 5. |
|
./verification/flt_example/extra/write_float.F |
171 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tend |
|
./verification/flt_example/extra/write_float.F |
176 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tstart,tend |
|
./verification/flt_example/extra/write_float.F |
188 |
NO PROCEDURE |
kfloat = kpart |
|
./verification/flt_example/extra/write_float.F |
193 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tend |
|
./verification/flt_example/extra/write_float.F |
196 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tstart,tend |
|
./verification/flt_example/extra/write_float.F |
210 |
NO PROCEDURE |
kfloat = DBLE(ip) |
|
./verification/flt_example/extra/write_float.F |
215 |
NO PROCEDURE |
& write(1,rec=1) npart,tstart,xpart,ypart,kpart,kfloat,iup,itop,tend |
|
./verification/flt_example/extra/write_float.F |
3 |
NO PROCEDURE |
double precision npart,xpart,ypart,kpart,kfloat,iup,itop |
|
./verification/flt_example/extra/write_float.F |
62 |
NO PROCEDURE |
kfloat = 0. |
|
./verification/flt_example/extra/write_float.F |
67 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tend |
|
./verification/flt_example/extra/write_float.F |
91 |
NO PROCEDURE |
kfloat = kpart |
|
./verification/flt_example/extra/write_float.F |
96 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tend |