| File |
Line number |
Procedure |
Code |
|
./pkg/flt/exch2_recv_get_vec.F |
102 |
EXCH2_RECV_GET_VEC_RL |
tgT = exch2_neighbourId(nN, thisTile ) |
|
./pkg/flt/exch2_recv_get_vec.F |
110 |
EXCH2_RECV_GET_VEC_RL |
theProc = W2_tileProc(tgT) - 1 |
|
./pkg/flt/exch2_recv_get_vec.F |
111 |
EXCH2_RECV_GET_VEC_RL |
theTag = (tgT-1)*W2_maxNeighbours + oNb |
|
./pkg/flt/exch2_recv_get_vec.F |
124 |
EXCH2_RECV_GET_VEC_RL |
itb = exch2_tBasex(tgT) |
|
./pkg/flt/exch2_recv_get_vec.F |
125 |
EXCH2_RECV_GET_VEC_RL |
jtb = exch2_tBasey(tgT) |
|
./pkg/flt/exch2_recv_get_vec.F |
142 |
EXCH2_RECV_GET_VEC_RL |
write(ioUnit,'(A,3I6)') 'LOC,1 :',thisTile,tgT,dir |
|
./pkg/flt/exch2_recv_get_vec.F |
69 |
EXCH2_RECV_GET_VEC_RL |
INTEGER thisTile, nN, tgT, oNb, dir |
|
./pkg/flt/exch2_send_put_vec.F |
112 |
EXCH2_SEND_PUT_VEC_RL |
tgT = exch2_neighbourId(nN, thisTile ) |
|
./pkg/flt/exch2_send_put_vec.F |
115 |
EXCH2_SEND_PUT_VEC_RL |
sDir = exch2_neighbourDir(tgN,tgT) |
|
./pkg/flt/exch2_send_put_vec.F |
121 |
EXCH2_SEND_PUT_VEC_RL |
IF ( W2_myTileList(i,j).EQ.tgT ) THEN |
|
./pkg/flt/exch2_send_put_vec.F |
134 |
EXCH2_SEND_PUT_VEC_RL |
theProc = W2_tileProc(tgT) - 1 |
|
./pkg/flt/exch2_send_put_vec.F |
67 |
EXCH2_SEND_PUT_VEC_RL |
INTEGER I,J,sBi,sBj, nN, thisTile, tgT, tgN, dir, sDir |