| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/CPLR_SIG.h |
81 |
NO PROCEDURE |
integer my_tile_j0(MAX_TILES) |
|
./pkg/compon_communic/CPLR_SIG.h |
99 |
NO PROCEDURE |
& my_tile_j0, |
|
./pkg/compon_communic/comprecv_r4.F |
60 |
COMPRECV_R4 |
if (Jo.ne.my_tile_j0(1)) stop 'comprecv_r4: bad Jo' |
|
./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_r8.F |
60 |
COMPRECV_R8 |
if (Jo.ne.my_tile_j0(1)) stop 'comprecv_r8: bad Jo' |
|
./pkg/compon_communic/comprecv_r8tiles.F |
66 |
COMPRECV_R8TILES |
if (Jo.ne.my_tile_j0(bibj)) stop 'comprecv_r8tiles: bad Jo' |
|
./pkg/compon_communic/compsend_r4.F |
27 |
COMPSEND_R4 |
Jo=my_tile_j0(1) |
|
./pkg/compon_communic/compsend_r4tiles.F |
39 |
COMPSEND_R4TILES |
r4buf(3)=float( my_tile_j0(bibj) ) |
|
./pkg/compon_communic/compsend_r8.F |
27 |
COMPSEND_R8 |
Jo=my_tile_j0(1) |
|
./pkg/compon_communic/compsend_r8tiles.F |
39 |
COMPSEND_R8TILES |
r8buf(3)=float( my_tile_j0(bibj) ) |
|
./pkg/compon_communic/mitcomponent_register.F |
41 |
MITCOMPONENT_REGISTER |
my_tile_j0(1)=j0 |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
49 |
MITCOMPONENT_TILE_REGISTER |
my_tile_j0(n) = iReg(6,n) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
84 |
MITCOMPONENT_TILE_REGISTER |
ibuf(4) = my_tile_j0(n) |