File |
Line number |
Procedure |
Code |
./pkg/compon_communic/comprecv_r4tiles.F |
20 |
COMPRECV_R4TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
./pkg/compon_communic/comprecv_r4tiles.F |
28 |
COMPRECV_R4TILES |
do bibj=1,my_num_tiles |
./pkg/compon_communic/comprecv_r4tiles.F |
30 |
COMPRECV_R4TILES |
bi=my_tile_bi(bibj) |
./pkg/compon_communic/comprecv_r4tiles.F |
31 |
COMPRECV_R4TILES |
bj=my_tile_bj(bibj) |
./pkg/compon_communic/comprecv_r4tiles.F |
36 |
COMPRECV_R4TILES |
tag=generate_tag(123,bibj,dataname) |
./pkg/compon_communic/comprecv_r4tiles.F |
65 |
COMPRECV_R4TILES |
if (Io.ne.my_tile_i0(bibj)) stop 'comprecv_r4tiles: bad Io' |
./pkg/compon_communic/comprecv_r4tiles.F |
66 |
COMPRECV_R4TILES |
if (Jo.ne.my_tile_j0(bibj)) stop 'comprecv_r4tiles: bad Jo' |
./pkg/compon_communic/comprecv_r4tiles.F |
67 |
COMPRECV_R4TILES |
if (nx.ne.my_tile_nx(bibj)) stop 'comprecv_r4tiles: bad nx' |
./pkg/compon_communic/comprecv_r4tiles.F |
68 |
COMPRECV_R4TILES |
if (ny.ne.my_tile_ny(bibj)) stop 'comprecv_r4tiles: bad ny' |
./pkg/compon_communic/comprecv_r8tiles.F |
20 |
COMPRECV_R8TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
./pkg/compon_communic/comprecv_r8tiles.F |
28 |
COMPRECV_R8TILES |
do bibj=1,my_num_tiles |
./pkg/compon_communic/comprecv_r8tiles.F |
30 |
COMPRECV_R8TILES |
bi=my_tile_bi(bibj) |
./pkg/compon_communic/comprecv_r8tiles.F |
31 |
COMPRECV_R8TILES |
bj=my_tile_bj(bibj) |
./pkg/compon_communic/comprecv_r8tiles.F |
36 |
COMPRECV_R8TILES |
tag=generate_tag(123,bibj,dataname) |
./pkg/compon_communic/comprecv_r8tiles.F |
65 |
COMPRECV_R8TILES |
if (Io.ne.my_tile_i0(bibj)) stop 'comprecv_r8tiles: bad Io' |
./pkg/compon_communic/comprecv_r8tiles.F |
66 |
COMPRECV_R8TILES |
if (Jo.ne.my_tile_j0(bibj)) stop 'comprecv_r8tiles: bad Jo' |
./pkg/compon_communic/comprecv_r8tiles.F |
67 |
COMPRECV_R8TILES |
if (nx.ne.my_tile_nx(bibj)) stop 'comprecv_r8tiles: bad nx' |
./pkg/compon_communic/comprecv_r8tiles.F |
68 |
COMPRECV_R8TILES |
if (ny.ne.my_tile_ny(bibj)) stop 'comprecv_r8tiles: bad ny' |
./pkg/compon_communic/compsend_r4tiles.F |
19 |
COMPSEND_R4TILES |
integer i,j,ij,bi,bj,k,bibj |
./pkg/compon_communic/compsend_r4tiles.F |
26 |
COMPSEND_R4TILES |
do bibj=1,my_num_tiles |
./pkg/compon_communic/compsend_r4tiles.F |
28 |
COMPSEND_R4TILES |
bi=my_tile_bi(bibj) |
./pkg/compon_communic/compsend_r4tiles.F |
29 |
COMPSEND_R4TILES |
bj=my_tile_bj(bibj) |
./pkg/compon_communic/compsend_r4tiles.F |
31 |
COMPSEND_R4TILES |
if (Ni.ne.my_tile_nx(bibj)) |
./pkg/compon_communic/compsend_r4tiles.F |
33 |
COMPSEND_R4TILES |
if (Nj.ne.my_tile_ny(bibj)) |
./pkg/compon_communic/compsend_r4tiles.F |
37 |
COMPSEND_R4TILES |
r4buf(1)=float( my_tile_i0(bibj) ) |
./pkg/compon_communic/compsend_r4tiles.F |
38 |
COMPSEND_R4TILES |
r4buf(2)=float( my_tile_nx(bibj) ) |
./pkg/compon_communic/compsend_r4tiles.F |
39 |
COMPSEND_R4TILES |
r4buf(3)=float( my_tile_j0(bibj) ) |
./pkg/compon_communic/compsend_r4tiles.F |
40 |
COMPSEND_R4TILES |
r4buf(4)=float( my_tile_ny(bibj) ) |
./pkg/compon_communic/compsend_r4tiles.F |
56 |
COMPSEND_R4TILES |
tag=generate_tag(103,bibj,dataname) |
./pkg/compon_communic/compsend_r4tiles.F |
61 |
COMPSEND_R4TILES |
& 'compsend_r4tiles: calling MPI_Send dest=',dest,' tile=',bibj |
./pkg/compon_communic/compsend_r8tiles.F |
19 |
COMPSEND_R8TILES |
integer i,j,ij,bi,bj,k,bibj |
./pkg/compon_communic/compsend_r8tiles.F |
26 |
COMPSEND_R8TILES |
do bibj=1,my_num_tiles |
./pkg/compon_communic/compsend_r8tiles.F |
28 |
COMPSEND_R8TILES |
bi=my_tile_bi(bibj) |
./pkg/compon_communic/compsend_r8tiles.F |
29 |
COMPSEND_R8TILES |
bj=my_tile_bj(bibj) |
./pkg/compon_communic/compsend_r8tiles.F |
31 |
COMPSEND_R8TILES |
if (Ni.ne.my_tile_nx(bibj)) |
./pkg/compon_communic/compsend_r8tiles.F |
33 |
COMPSEND_R8TILES |
if (Nj.ne.my_tile_ny(bibj)) |
./pkg/compon_communic/compsend_r8tiles.F |
37 |
COMPSEND_R8TILES |
r8buf(1)=float( my_tile_i0(bibj) ) |
./pkg/compon_communic/compsend_r8tiles.F |
38 |
COMPSEND_R8TILES |
r8buf(2)=float( my_tile_nx(bibj) ) |
./pkg/compon_communic/compsend_r8tiles.F |
39 |
COMPSEND_R8TILES |
r8buf(3)=float( my_tile_j0(bibj) ) |
./pkg/compon_communic/compsend_r8tiles.F |
40 |
COMPSEND_R8TILES |
r8buf(4)=float( my_tile_ny(bibj) ) |
./pkg/compon_communic/compsend_r8tiles.F |
56 |
COMPSEND_R8TILES |
tag=generate_tag(103,bibj,dataname) |
./pkg/compon_communic/compsend_r8tiles.F |
61 |
COMPSEND_R8TILES |
& 'compsend_r8tiles: calling MPI_Send dest=',dest,' tile=',bibj |
./pkg/compon_communic/couprecv_r4tiles.F |
23 |
COUPRECV_R4TILES |
integer i,j,ij,n,bibj |
./pkg/compon_communic/couprecv_r4tiles.F |
46 |
COUPRECV_R4TILES |
do bibj=1,component_num_tiles(n,compind) |
./pkg/compon_communic/couprecv_r4tiles.F |
51 |
COUPRECV_R4TILES |
tag=generate_tag(103,bibj,dataname) |
./pkg/compon_communic/couprecv_r4tiles.F |
57 |
COUPRECV_R4TILES |
& ' proc=',n,'/',numprocs,' tile=',bibj |
./pkg/compon_communic/couprecv_r4tiles.F |
87 |
COUPRECV_R4TILES |
if (Io.ne.component_tile_i0(bibj,n,compind)) |
./pkg/compon_communic/couprecv_r4tiles.F |
89 |
COUPRECV_R4TILES |
if (Jo.ne.component_tile_j0(bibj,n,compind)) |
./pkg/compon_communic/couprecv_r4tiles.F |
91 |
COUPRECV_R4TILES |
if (Ni.ne.component_tile_nx(bibj,n,compind)) |
./pkg/compon_communic/couprecv_r4tiles.F |
93 |
COUPRECV_R4TILES |
if (Nj.ne.component_tile_ny(bibj,n,compind)) |
./pkg/compon_communic/couprecv_r8tiles.F |
23 |
COUPRECV_R8TILES |
integer i,j,ij,n,bibj |
./pkg/compon_communic/couprecv_r8tiles.F |
46 |
COUPRECV_R8TILES |
do bibj=1,component_num_tiles(n,compind) |
./pkg/compon_communic/couprecv_r8tiles.F |
51 |
COUPRECV_R8TILES |
tag=generate_tag(103,bibj,dataname) |
./pkg/compon_communic/couprecv_r8tiles.F |
57 |
COUPRECV_R8TILES |
& ' proc=',n,'/',numprocs,' tile=',bibj |
./pkg/compon_communic/couprecv_r8tiles.F |
87 |
COUPRECV_R8TILES |
if (Io.ne.component_tile_i0(bibj,n,compind)) |
./pkg/compon_communic/couprecv_r8tiles.F |
89 |
COUPRECV_R8TILES |
if (Jo.ne.component_tile_j0(bibj,n,compind)) |
./pkg/compon_communic/couprecv_r8tiles.F |
91 |
COUPRECV_R8TILES |
if (Ni.ne.component_tile_nx(bibj,n,compind)) |
./pkg/compon_communic/couprecv_r8tiles.F |
93 |
COUPRECV_R8TILES |
if (Nj.ne.component_tile_ny(bibj,n,compind)) |
./pkg/compon_communic/coupsend_r4tiles.F |
24 |
COUPSEND_R4TILES |
integer i,j,ij,n,bibj |
./pkg/compon_communic/coupsend_r4tiles.F |
46 |
COUPSEND_R4TILES |
do bibj=1,component_num_tiles(n,compind) |
./pkg/compon_communic/coupsend_r4tiles.F |
49 |
COUPSEND_R4TILES |
Io=component_tile_i0(bibj,n,compind) |
./pkg/compon_communic/coupsend_r4tiles.F |
50 |
COUPSEND_R4TILES |
Jo=component_tile_j0(bibj,n,compind) |
./pkg/compon_communic/coupsend_r4tiles.F |
51 |
COUPSEND_R4TILES |
Ni=component_tile_nx(bibj,n,compind) |
./pkg/compon_communic/coupsend_r4tiles.F |
52 |
COUPSEND_R4TILES |
Nj=component_tile_ny(bibj,n,compind) |
./pkg/compon_communic/coupsend_r4tiles.F |
70 |
COUPSEND_R4TILES |
tag=generate_tag(123,bibj,dataname) |
./pkg/compon_communic/coupsend_r4tiles.F |
75 |
COUPSEND_R4TILES |
& dest,' proc=',n,'/',numprocs,' tile=',bibj |
./pkg/compon_communic/coupsend_r8tiles.F |
24 |
COUPSEND_R8TILES |
integer i,j,ij,n,bibj |
./pkg/compon_communic/coupsend_r8tiles.F |
46 |
COUPSEND_R8TILES |
do bibj=1,component_num_tiles(n,compind) |
./pkg/compon_communic/coupsend_r8tiles.F |
49 |
COUPSEND_R8TILES |
Io=component_tile_i0(bibj,n,compind) |
./pkg/compon_communic/coupsend_r8tiles.F |
50 |
COUPSEND_R8TILES |
Jo=component_tile_j0(bibj,n,compind) |
./pkg/compon_communic/coupsend_r8tiles.F |
51 |
COUPSEND_R8TILES |
Ni=component_tile_nx(bibj,n,compind) |
./pkg/compon_communic/coupsend_r8tiles.F |
52 |
COUPSEND_R8TILES |
Nj=component_tile_ny(bibj,n,compind) |
./pkg/compon_communic/coupsend_r8tiles.F |
70 |
COUPSEND_R8TILES |
tag=generate_tag(123,bibj,dataname) |
./pkg/compon_communic/coupsend_r8tiles.F |
75 |
COUPSEND_R8TILES |
& dest,' proc=',n,'/',numprocs,' tile=',bibj |