File |
Line number |
Procedure |
Code |
./pkg/exch2/w2_print_comm_sequence.F |
56 |
W2_PRINT_COMM_SEQUENCE |
INTEGER pi(2), pj(2), oi, oj, tN |
./pkg/exch2/w2_print_comm_sequence.F |
76 |
W2_PRINT_COMM_SEQUENCE |
pj(1) =exch2_pij(3,N,myTileId) |
./pkg/exch2/w2_print_comm_sequence.F |
77 |
W2_PRINT_COMM_SEQUENCE |
pj(2) =exch2_pij(4,N,myTileId) |
./pkg/exch2/w2_print_comm_sequence.F |
92 |
W2_PRINT_COMM_SEQUENCE |
sourceJlo=pj(1)*(targetIlo+itb)+pj(2)*(targetJlo+jtb)+oj-jsb |
./pkg/exch2/w2_print_comm_sequence.F |
94 |
W2_PRINT_COMM_SEQUENCE |
sourceJhi=pj(1)*(targetIhi+itb)+pj(2)*(targetJhi+jtb)+oj-jsb |
./pkg/flt/exch2_recv_get_vec.F |
130 |
EXCH2_RECV_GET_VEC_RL |
pj(1)=exch2_pij(3,nN,thisTile) |
./pkg/flt/exch2_recv_get_vec.F |
131 |
EXCH2_RECV_GET_VEC_RL |
pj(2)=exch2_pij(4,nN,thisTile) |
./pkg/flt/exch2_recv_get_vec.F |
141 |
EXCH2_RECV_GET_VEC_RL |
jtmp = pj(1)*itc+pj(2)*jtc+oj-jsb |
./pkg/flt/exch2_recv_get_vec.F |
158 |
EXCH2_RECV_GET_VEC_RL |
array(imax*(ip-1)+4,bi,bj,dir) = pj(1)*itc+pj(2)*jtc+oj-jsb |
./pkg/flt/exch2_recv_get_vec.F |
77 |
EXCH2_RECV_GET_VEC_RL |
INTEGER pi(2), pj(2), oi, oj, ip, itb, jtb, isb, jsb |