| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
22 |
MITCOMPONENT_TILE_REGISTER |
integer bi,bj,num_tiles,bibj |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
27 |
MITCOMPONENT_TILE_REGISTER |
num_tiles=0 |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
31 |
MITCOMPONENT_TILE_REGISTER |
num_tiles=num_tiles+1 |
|
./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 |
33 |
MITCOMPONENT_TILE_REGISTER |
my_tile_ny(num_tiles)=ireg(2,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
34 |
MITCOMPONENT_TILE_REGISTER |
my_tile_i0(num_tiles)=ireg(3,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
35 |
MITCOMPONENT_TILE_REGISTER |
my_tile_j0(num_tiles)=ireg(4,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
36 |
MITCOMPONENT_TILE_REGISTER |
my_tile_bi(num_tiles)=bi |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
37 |
MITCOMPONENT_TILE_REGISTER |
my_tile_bj(num_tiles)=bj |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
47 |
MITCOMPONENT_TILE_REGISTER |
my_num_tiles=num_tiles |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
49 |
MITCOMPONENT_TILE_REGISTER |
& 'MITCOMPONENT_tile_register: num_tiles =',num_tiles |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
51 |
MITCOMPONENT_TILE_REGISTER |
if (num_tiles.lt.1) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
53 |
MITCOMPONENT_TILE_REGISTER |
if (num_tiles.gt.MAX_TILES) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
57 |
MITCOMPONENT_TILE_REGISTER |
ibuf(1)=num_tiles |