| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/coupsend_r4tiles.F |
19 |
COUPSEND_R4TILES |
integer i,j,ij,n,bibj |
|
./pkg/compon_communic/coupsend_r4tiles.F |
41 |
COUPSEND_R4TILES |
do bibj=1,component_num_tiles(n,compind) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
44 |
COUPSEND_R4TILES |
Io=component_tile_i0(bibj,n,compind) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
45 |
COUPSEND_R4TILES |
Jo=component_tile_j0(bibj,n,compind) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
46 |
COUPSEND_R4TILES |
Ni=component_tile_nx(bibj,n,compind) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
47 |
COUPSEND_R4TILES |
Nj=component_tile_ny(bibj,n,compind) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
65 |
COUPSEND_R4TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
70 |
COUPSEND_R4TILES |
& dest,' proc=',n,'/',numprocs,' tile=',bibj |
|
./pkg/compon_communic/comprecv_r8tiles.F |
17 |
COMPRECV_R8TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
|
./pkg/compon_communic/comprecv_r8tiles.F |
25 |
COMPRECV_R8TILES |
do bibj=1,my_num_tiles |
|
./pkg/compon_communic/comprecv_r8tiles.F |
27 |
COMPRECV_R8TILES |
bi=my_tile_bi(bibj) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
28 |
COMPRECV_R8TILES |
bj=my_tile_bj(bibj) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
33 |
COMPRECV_R8TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
62 |
COMPRECV_R8TILES |
if (Io.ne.my_tile_i0(bibj)) stop 'comprecv_r8tiles: bad Io' |
|
./pkg/compon_communic/comprecv_r8tiles.F |
63 |
COMPRECV_R8TILES |
if (Jo.ne.my_tile_j0(bibj)) stop 'comprecv_r8tiles: bad Jo' |
|
./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_r8tiles.F |
65 |
COMPRECV_R8TILES |
if (ny.ne.my_tile_ny(bibj)) stop 'comprecv_r8tiles: bad ny' |
|
./pkg/compon_communic/coupsend_r8tiles.F |
19 |
COUPSEND_R8TILES |
integer i,j,ij,n,bibj |
|
./pkg/compon_communic/coupsend_r8tiles.F |
41 |
COUPSEND_R8TILES |
do bibj=1,component_num_tiles(n,compind) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
44 |
COUPSEND_R8TILES |
Io=component_tile_i0(bibj,n,compind) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
45 |
COUPSEND_R8TILES |
Jo=component_tile_j0(bibj,n,compind) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
46 |
COUPSEND_R8TILES |
Ni=component_tile_nx(bibj,n,compind) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
47 |
COUPSEND_R8TILES |
Nj=component_tile_ny(bibj,n,compind) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
65 |
COUPSEND_R8TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
70 |
COUPSEND_R8TILES |
& dest,' proc=',n,'/',numprocs,' tile=',bibj |
|
./pkg/compon_communic/mitcomponent_register.F |
20 |
MITCOMPONENT_REGISTER |
integer bi,bj,num_tiles,bibj |
|
./pkg/compon_communic/compsend_r8tiles.F |
16 |
COMPSEND_R8TILES |
integer i,j,ij,bi,bj,k,bibj |
|
./pkg/compon_communic/compsend_r8tiles.F |
23 |
COMPSEND_R8TILES |
do bibj=1,my_num_tiles |
|
./pkg/compon_communic/compsend_r8tiles.F |
25 |
COMPSEND_R8TILES |
bi=my_tile_bi(bibj) |
|
./pkg/compon_communic/compsend_r8tiles.F |
26 |
COMPSEND_R8TILES |
bj=my_tile_bj(bibj) |
|
./pkg/compon_communic/compsend_r8tiles.F |
28 |
COMPSEND_R8TILES |
if (Ni.ne.my_tile_nx(bibj)) |
|
./pkg/compon_communic/compsend_r8tiles.F |
30 |
COMPSEND_R8TILES |
if (Nj.ne.my_tile_ny(bibj)) |
|
./pkg/compon_communic/compsend_r8tiles.F |
34 |
COMPSEND_R8TILES |
r8buf(1)=float( my_tile_i0(bibj) ) |
|
./pkg/compon_communic/compsend_r8tiles.F |
35 |
COMPSEND_R8TILES |
r8buf(2)=float( my_tile_nx(bibj) ) |
|
./pkg/compon_communic/compsend_r8tiles.F |
36 |
COMPSEND_R8TILES |
r8buf(3)=float( my_tile_j0(bibj) ) |
|
./pkg/compon_communic/compsend_r8tiles.F |
37 |
COMPSEND_R8TILES |
r8buf(4)=float( my_tile_ny(bibj) ) |
|
./pkg/compon_communic/compsend_r8tiles.F |
53 |
COMPSEND_R8TILES |
tag=generate_tag(103,bibj,dataname) |
|
./pkg/compon_communic/compsend_r8tiles.F |
58 |
COMPSEND_R8TILES |
& 'compsend_r8tiles: calling MPI_Send dest=',dest,' tile=',bibj |
|
./pkg/compon_communic/couprecv_r8tiles.F |
20 |
COUPRECV_R8TILES |
integer i,j,ij,n,bibj |
|
./pkg/compon_communic/couprecv_r8tiles.F |
43 |
COUPRECV_R8TILES |
do bibj=1,component_num_tiles(n,compind) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
48 |
COUPRECV_R8TILES |
tag=generate_tag(103,bibj,dataname) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
54 |
COUPRECV_R8TILES |
& ' proc=',n,'/',numprocs,' tile=',bibj |
|
./pkg/compon_communic/couprecv_r8tiles.F |
84 |
COUPRECV_R8TILES |
if (Io.ne.component_tile_i0(bibj,n,compind)) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
86 |
COUPRECV_R8TILES |
if (Jo.ne.component_tile_j0(bibj,n,compind)) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
88 |
COUPRECV_R8TILES |
if (Ni.ne.component_tile_nx(bibj,n,compind)) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
90 |
COUPRECV_R8TILES |
if (Nj.ne.component_tile_ny(bibj,n,compind)) |
|
./pkg/compon_communic/compsend_r4tiles.F |
16 |
COMPSEND_R4TILES |
integer i,j,ij,bi,bj,k,bibj |
|
./pkg/compon_communic/compsend_r4tiles.F |
23 |
COMPSEND_R4TILES |
do bibj=1,my_num_tiles |
|
./pkg/compon_communic/compsend_r4tiles.F |
25 |
COMPSEND_R4TILES |
bi=my_tile_bi(bibj) |
|
./pkg/compon_communic/compsend_r4tiles.F |
26 |
COMPSEND_R4TILES |
bj=my_tile_bj(bibj) |
|
./pkg/compon_communic/compsend_r4tiles.F |
28 |
COMPSEND_R4TILES |
if (Ni.ne.my_tile_nx(bibj)) |
|
./pkg/compon_communic/compsend_r4tiles.F |
30 |
COMPSEND_R4TILES |
if (Nj.ne.my_tile_ny(bibj)) |
|
./pkg/compon_communic/compsend_r4tiles.F |
34 |
COMPSEND_R4TILES |
r4buf(1)=float( my_tile_i0(bibj) ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
35 |
COMPSEND_R4TILES |
r4buf(2)=float( my_tile_nx(bibj) ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
36 |
COMPSEND_R4TILES |
r4buf(3)=float( my_tile_j0(bibj) ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
37 |
COMPSEND_R4TILES |
r4buf(4)=float( my_tile_ny(bibj) ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
53 |
COMPSEND_R4TILES |
tag=generate_tag(103,bibj,dataname) |
|
./pkg/compon_communic/compsend_r4tiles.F |
58 |
COMPSEND_R4TILES |
& 'compsend_r4tiles: calling MPI_Send dest=',dest,' tile=',bibj |
|
./pkg/compon_communic/comprecv_r4tiles.F |
17 |
COMPRECV_R4TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
|
./pkg/compon_communic/comprecv_r4tiles.F |
25 |
COMPRECV_R4TILES |
do bibj=1,my_num_tiles |
|
./pkg/compon_communic/comprecv_r4tiles.F |
27 |
COMPRECV_R4TILES |
bi=my_tile_bi(bibj) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
28 |
COMPRECV_R4TILES |
bj=my_tile_bj(bibj) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
33 |
COMPRECV_R4TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
62 |
COMPRECV_R4TILES |
if (Io.ne.my_tile_i0(bibj)) stop 'comprecv_r4tiles: bad Io' |
|
./pkg/compon_communic/comprecv_r4tiles.F |
63 |
COMPRECV_R4TILES |
if (Jo.ne.my_tile_j0(bibj)) stop 'comprecv_r4tiles: bad Jo' |
|
./pkg/compon_communic/comprecv_r4tiles.F |
64 |
COMPRECV_R4TILES |
if (nx.ne.my_tile_nx(bibj)) stop 'comprecv_r4tiles: bad nx' |
|
./pkg/compon_communic/comprecv_r4tiles.F |
65 |
COMPRECV_R4TILES |
if (ny.ne.my_tile_ny(bibj)) stop 'comprecv_r4tiles: bad ny' |
|
./pkg/compon_communic/couprecv_r4tiles.F |
20 |
COUPRECV_R4TILES |
integer i,j,ij,n,bibj |
|
./pkg/compon_communic/couprecv_r4tiles.F |
43 |
COUPRECV_R4TILES |
do bibj=1,component_num_tiles(n,compind) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
48 |
COUPRECV_R4TILES |
tag=generate_tag(103,bibj,dataname) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
54 |
COUPRECV_R4TILES |
& ' proc=',n,'/',numprocs,' tile=',bibj |
|
./pkg/compon_communic/couprecv_r4tiles.F |
84 |
COUPRECV_R4TILES |
if (Io.ne.component_tile_i0(bibj,n,compind)) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
86 |
COUPRECV_R4TILES |
if (Jo.ne.component_tile_j0(bibj,n,compind)) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
88 |
COUPRECV_R4TILES |
if (Ni.ne.component_tile_nx(bibj,n,compind)) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
90 |
COUPRECV_R4TILES |
if (Nj.ne.component_tile_ny(bibj,n,compind)) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
22 |
MITCOMPONENT_TILE_REGISTER |
integer bi,bj,num_tiles,bibj |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
75 |
MITCOMPONENT_TILE_REGISTER |
do bibj=1,my_num_tiles |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
78 |
MITCOMPONENT_TILE_REGISTER |
bi=my_tile_bi(bibj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
79 |
MITCOMPONENT_TILE_REGISTER |
bj=my_tile_bj(bibj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
80 |
MITCOMPONENT_TILE_REGISTER |
ibuf(1)=my_tile_nx(bibj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
81 |
MITCOMPONENT_TILE_REGISTER |
ibuf(2)=my_tile_ny(bibj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
82 |
MITCOMPONENT_TILE_REGISTER |
ibuf(3)=my_tile_i0(bibj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
83 |
MITCOMPONENT_TILE_REGISTER |
ibuf(4)=my_tile_j0(bibj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
89 |
MITCOMPONENT_TILE_REGISTER |
tag=generate_tag(113,bibj,'Register each tile') |