| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/W2_EXCH2_PARAMS.h |
75 |
NO PROCEDURE |
INTEGER facet_oj(4,W2_maxNbFacets) |
|
./pkg/exch2/W2_EXCH2_PARAMS.h |
78 |
NO PROCEDURE |
& facet_pij, facet_oi, facet_oj |
|
./pkg/exch2/w2_e2setup.F |
59 |
W2_E2SETUP |
facet_oj(i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
138 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = +facet_dims(2*j) |
|
./pkg/exch2/w2_set_f2f_index.F |
142 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = -facet_dims(2*jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
146 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
150 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
160 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = +facet_dims(2*j) |
|
./pkg/exch2/w2_set_f2f_index.F |
169 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = -facet_dims(2*jj-1) |
|
./pkg/exch2/w2_set_f2f_index.F |
178 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = lo+1 |
|
./pkg/exch2/w2_set_f2f_index.F |
187 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = lo+1 |
|
./pkg/exch2/w2_set_f2f_index.F |
203 |
W2_SET_F2F_INDEX |
& ' ; oi,oj=', facet_oi(i,j), facet_oj(i,j) |
|
./pkg/exch2/w2_set_f2f_index.F |
242 |
W2_SET_F2F_INDEX |
& + facet_pij(2,i,j)*facet_oj(ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
245 |
W2_SET_F2F_INDEX |
& + facet_pij(4,i,j)*facet_oj(ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
246 |
W2_SET_F2F_INDEX |
& + facet_oj(i,j) |
|
./pkg/exch2/w2_set_tile2tiles.F |
158 |
W2_SET_TILE2TILES |
& + facet_pij(4,ii,jt)*jj1 + facet_oj(ii,jt) |
|
./pkg/exch2/w2_set_tile2tiles.F |
160 |
W2_SET_TILE2TILES |
& + facet_pij(4,ii,jt)*jj2 + facet_oj(ii,jt) |
|
./pkg/exch2/w2_set_tile2tiles.F |
190 |
W2_SET_TILE2TILES |
exch2_oj(ns,is) = facet_oj(i,js) |
|
./pkg/exch2/w2_set_tile2tiles.F |
205 |
W2_SET_TILE2TILES |
& + facet_pij(4,i,js)*jtbd1 + facet_oj(i,js) |
|
./pkg/exch2/w2_set_tile2tiles.F |
207 |
W2_SET_TILE2TILES |
& + facet_pij(4,i,js)*jtbd2 + facet_oj(i,js) |