| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/CPLR_SIG.h |
76 |
NO PROCEDURE |
integer my_tile_nx(MAX_TILES) |
|
./pkg/compon_communic/CPLR_SIG.h |
94 |
NO PROCEDURE |
& my_tile_nx, |
|
./pkg/compon_communic/comprecv_r8tiles.F |
64 |
COMPRECV_R8TILES |
if (nx.ne.my_tile_nx(bibj)) stop 'comprecv_r8tiles: bad nx' |
|
./pkg/compon_communic/comprecv_r8.F |
58 |
COMPRECV_R8 |
if (nx.ne.my_tile_nx(1)) stop 'comprecv_r8: bad nx' |
|
./pkg/compon_communic/mitcomponent_register.F |
33 |
MITCOMPONENT_REGISTER |
my_tile_nx(1)=nx |
|
./pkg/compon_communic/compsend_r8tiles.F |
28 |
COMPSEND_R8TILES |
if (Ni.ne.my_tile_nx(bibj)) |
|
./pkg/compon_communic/compsend_r8tiles.F |
35 |
COMPSEND_R8TILES |
r8buf(2)=float( my_tile_nx(bibj) ) |
|
./pkg/compon_communic/comprecv_r4.F |
58 |
COMPRECV_R4 |
if (nx.ne.my_tile_nx(1)) stop 'comprecv_r4: bad nx' |
|
./pkg/compon_communic/compsend_r4tiles.F |
28 |
COMPSEND_R4TILES |
if (Ni.ne.my_tile_nx(bibj)) |
|
./pkg/compon_communic/compsend_r4tiles.F |
35 |
COMPSEND_R4TILES |
r4buf(2)=float( my_tile_nx(bibj) ) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
64 |
COMPRECV_R4TILES |
if (nx.ne.my_tile_nx(bibj)) stop 'comprecv_r4tiles: bad nx' |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
32 |
MITCOMPONENT_TILE_REGISTER |
my_tile_nx(num_tiles)=ireg(1,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
80 |
MITCOMPONENT_TILE_REGISTER |
ibuf(1)=my_tile_nx(bibj) |