| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/mitcomponent_register.F |
23 |
MITCOMPONENT_REGISTER |
integer bi,bj,num_tiles,bibj |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
25 |
MITCOMPONENT_TILE_REGISTER |
integer bi,bj,num_tiles,bibj |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
30 |
MITCOMPONENT_TILE_REGISTER |
num_tiles=0 |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
34 |
MITCOMPONENT_TILE_REGISTER |
num_tiles=num_tiles+1 |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
35 |
MITCOMPONENT_TILE_REGISTER |
my_tile_nx(num_tiles)=ireg(1,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
36 |
MITCOMPONENT_TILE_REGISTER |
my_tile_ny(num_tiles)=ireg(2,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
37 |
MITCOMPONENT_TILE_REGISTER |
my_tile_i0(num_tiles)=ireg(3,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
38 |
MITCOMPONENT_TILE_REGISTER |
my_tile_j0(num_tiles)=ireg(4,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
39 |
MITCOMPONENT_TILE_REGISTER |
my_tile_bi(num_tiles)=bi |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
40 |
MITCOMPONENT_TILE_REGISTER |
my_tile_bj(num_tiles)=bj |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
50 |
MITCOMPONENT_TILE_REGISTER |
my_num_tiles=num_tiles |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
52 |
MITCOMPONENT_TILE_REGISTER |
& 'MITCOMPONENT_tile_register: num_tiles =',num_tiles |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
54 |
MITCOMPONENT_TILE_REGISTER |
if (num_tiles.lt.1) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
56 |
MITCOMPONENT_TILE_REGISTER |
if (num_tiles.gt.MAX_TILES) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
60 |
MITCOMPONENT_TILE_REGISTER |
ibuf(1)=num_tiles |