| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/mitcoupler_register.F |
30 |
MITCOUPLER_REGISTER |
integer numtiles,nx,ny,i0,j0 |
|
./pkg/compon_communic/mitcoupler_register.F |
64 |
MITCOUPLER_REGISTER |
numtiles=ibuf(1) |
|
./pkg/compon_communic/mitcoupler_register.F |
70 |
MITCOUPLER_REGISTER |
if (numtiles.ne.1) then |
|
./pkg/compon_communic/mitcoupler_register.F |
71 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_tile_register: #tiles = ',numtiles |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
131 |
MITCOUPLER_TILE_REGISTER |
& ' , rank = ',rank, ' , num_tiles = ', numtiles |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
30 |
MITCOUPLER_TILE_REGISTER |
integer j, numtiles |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
69 |
MITCOUPLER_TILE_REGISTER |
numtiles=ibuf(1) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
70 |
MITCOUPLER_TILE_REGISTER |
if (numtiles.lt.1 .or. numtiles.gt.MAX_TILES) then |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
71 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,*) 'MITCOUPLER_tile_register: #tiles = ',numtiles |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
74 |
MITCOUPLER_TILE_REGISTER |
component_num_tiles(n,compind)=numtiles |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
77 |
MITCOUPLER_TILE_REGISTER |
& ' ; rank=', rank, ' ; numtiles=', numtiles, ' -------' |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
78 |
MITCOUPLER_TILE_REGISTER |
do j=1,numtiles |