| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_print_e2setup.F |
133 |
W2_PRINT_E2SETUP |
jt = exch2_myFace(it) |
|
./pkg/exch2/w2_print_e2setup.F |
141 |
W2_PRINT_E2SETUP |
& edge(ii), '.Edge Facet', jt, |
|
./pkg/exch2/w2_print_e2setup.F |
42 |
W2_PRINT_E2SETUP |
INTEGER i, j, js, jp, jt, ii, is, it, ns, nt, k, tx, ty |
|
./pkg/exch2/w2_print_e2setup.F |
76 |
W2_PRINT_E2SETUP |
jt = exch2_myFace(it) |
|
./pkg/exch2/w2_print_e2setup.F |
84 |
W2_PRINT_E2SETUP |
& edge(ii), '.Edge Facet', jt, |
|
./pkg/exch2/w2_set_tile2tiles.F |
148 |
W2_SET_TILE2TILES |
jt = INT(facet_link(i,js)) |
|
./pkg/exch2/w2_set_tile2tiles.F |
150 |
W2_SET_TILE2TILES |
IF ( jt.GT.0 ) THEN |
|
./pkg/exch2/w2_set_tile2tiles.F |
153 |
W2_SET_TILE2TILES |
ibnd1 = facet_pij(1,ii,jt)*ii1 |
|
./pkg/exch2/w2_set_tile2tiles.F |
154 |
W2_SET_TILE2TILES |
& + facet_pij(2,ii,jt)*jj1 + facet_oi(ii,jt) |
|
./pkg/exch2/w2_set_tile2tiles.F |
155 |
W2_SET_TILE2TILES |
ibnd2 = facet_pij(1,ii,jt)*ii2 |
|
./pkg/exch2/w2_set_tile2tiles.F |
156 |
W2_SET_TILE2TILES |
& + facet_pij(2,ii,jt)*jj2 + facet_oi(ii,jt) |
|
./pkg/exch2/w2_set_tile2tiles.F |
157 |
W2_SET_TILE2TILES |
jbnd1 = facet_pij(3,ii,jt)*ii1 |
|
./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 |
159 |
W2_SET_TILE2TILES |
jbnd2 = facet_pij(3,ii,jt)*ii2 |
|
./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 |
176 |
W2_SET_TILE2TILES |
nbTx = facet_dims(2*jt-1)/tNx |
|
./pkg/exch2/w2_set_tile2tiles.F |
179 |
W2_SET_TILE2TILES |
it = facet_owns(1,jt) + tx + ty*nbTx |
|
./pkg/exch2/w2_set_tile2tiles.F |
44 |
W2_SET_TILE2TILES |
INTEGER is, js, ns, it, jt, nt, tx, ty |