| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
189 |
W2_CUMULSUM_Z_TILE_RL |
nbTx = fNx/sNx |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
192 |
W2_CUMULSUM_Z_TILE_RL |
DO bi=1,nbTx-1 |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
197 |
W2_CUMULSUM_Z_TILE_RL |
tS = facet_owns(1,j) - 1 + (bj-1)*nbTx |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
198 |
W2_CUMULSUM_Z_TILE_RL |
DO bi=1,nbTx |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
200 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(3,tN+nbTx) = globalBuf(3,tN) + globalBuf(2,tN) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
205 |
W2_CUMULSUM_Z_TILE_RL |
DO bi=1,nbTx |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
210 |
W2_CUMULSUM_Z_TILE_RL |
tN = facet_owns(1,j) + (bj-1)*nbTx |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
68 |
W2_CUMULSUM_Z_TILE_RL |
INTEGER fNx, fNy, nbTx, nbTy |
|
./pkg/exch2/w2_print_e2setup.F |
177 |
W2_PRINT_E2SETUP |
nbTx = fNx/tNx |
|
./pkg/exch2/w2_print_e2setup.F |
182 |
W2_PRINT_E2SETUP |
& ' ;', nbTx*nbTy, ' tiles (Tx,Ty=', nbTx,',',nbTy,')' |
|
./pkg/exch2/w2_print_e2setup.F |
40 |
W2_PRINT_E2SETUP |
INTEGER nbTx, nbTy |
|
./pkg/exch2/w2_print_e2setup.F |
66 |
W2_PRINT_E2SETUP |
nbTx = fNx/tNx |
|
./pkg/exch2/w2_set_map_cumsum.F |
249 |
W2_SET_MAP_CUMSUM |
nbTx = fNx/sNx |
|
./pkg/exch2/w2_set_map_cumsum.F |
251 |
W2_SET_MAP_CUMSUM |
tN = facet_owns(1,j) - 1 + nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
254 |
W2_SET_MAP_CUMSUM |
tN = facet_owns(1,j) + (nbTy-1)*nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
282 |
W2_SET_MAP_CUMSUM |
nbTx = fNx/sNx |
|
./pkg/exch2/w2_set_map_cumsum.F |
286 |
W2_SET_MAP_CUMSUM |
DO bi=1,nbTx-1 |
|
./pkg/exch2/w2_set_map_cumsum.F |
288 |
W2_SET_MAP_CUMSUM |
tN = tS + 1 + (bj-1)*nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
294 |
W2_SET_MAP_CUMSUM |
tN = facet_owns(1,j) - 1 + nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
301 |
W2_SET_MAP_CUMSUM |
DO bi=1,nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
303 |
W2_SET_MAP_CUMSUM |
tN = tS + bj*nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
305 |
W2_SET_MAP_CUMSUM |
l = tS + (k-1)*nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
310 |
W2_SET_MAP_CUMSUM |
tN = facet_owns(1,j) + (nbTy-1)*nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
36 |
W2_SET_MAP_CUMSUM |
INTEGER fNx, fNy, nbTx, nbTy |
|
./pkg/exch2/w2_set_map_tiles.F |
164 |
W2_SET_MAP_TILES |
nbTx = fNx/tNx |
|
./pkg/exch2/w2_set_map_tiles.F |
168 |
W2_SET_MAP_TILES |
& ' ;', nbTx*nbTy, ' tiles (Tx,Ty=', nbTx,',',nbTy,')' |
|
./pkg/exch2/w2_set_map_tiles.F |
171 |
W2_SET_MAP_TILES |
DO tx=1,nbTx |
|
./pkg/exch2/w2_set_map_tiles.F |
46 |
W2_SET_MAP_TILES |
INTEGER nbTx, nbTy |
|
./pkg/exch2/w2_set_map_tiles.F |
69 |
W2_SET_MAP_TILES |
nbTx = fNx/tNx |
|
./pkg/exch2/w2_set_map_tiles.F |
71 |
W2_SET_MAP_TILES |
IF ( nbTx*tNx .NE. fNx ) THEN |
|
./pkg/exch2/w2_set_map_tiles.F |
84 |
W2_SET_MAP_TILES |
tCnt = tCnt + nbTx*nbTy |
|
./pkg/exch2/w2_set_tile2tiles.F |
119 |
W2_SET_TILE2TILES |
nbTx = facet_dims(2*js-1)/tNx |
|
./pkg/exch2/w2_set_tile2tiles.F |
123 |
W2_SET_TILE2TILES |
it = is + it*nbTx |
|
./pkg/exch2/w2_set_tile2tiles.F |
176 |
W2_SET_TILE2TILES |
nbTx = facet_dims(2*jt-1)/tNx |
|
./pkg/exch2/w2_set_tile2tiles.F |
179 |
W2_SET_TILE2TILES |
it = facet_owns(1,jt) + tx + ty*nbTx |
|
./pkg/exch2/w2_set_tile2tiles.F |
42 |
W2_SET_TILE2TILES |
INTEGER tNx, tNy, nbTx, nbNeighb |