| File |
Line number |
Procedure |
Code |
|
./pkg/flt/exch2_recv_get_vec.F |
139 |
EXCH2_RECV_GET_VEC_RL |
jtc=array(imax*(ip-1)+4,bi,bj,dir)+jtb |
|
./pkg/flt/exch2_recv_get_vec.F |
140 |
EXCH2_RECV_GET_VEC_RL |
itmp = pi(1)*itc+pi(2)*jtc+oi-isb |
|
./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 |
148 |
EXCH2_RECV_GET_VEC_RL |
& itc,jtc,itmp,jtmp |
|
./pkg/flt/exch2_recv_get_vec.F |
156 |
EXCH2_RECV_GET_VEC_RL |
jtc=array(imax*(ip-1)+4,bi,bj,dir)+jtb |
|
./pkg/flt/exch2_recv_get_vec.F |
157 |
EXCH2_RECV_GET_VEC_RL |
array(imax*(ip-1)+3,bi,bj,dir) = pi(1)*itc+pi(2)*jtc+oi-isb |
|
./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 |
78 |
EXCH2_RECV_GET_VEC_RL |
_RL itc,jtc, itmp, jtmp |