| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_set_cs6_facets.F |
152 |
W2_SET_CS6_FACETS |
ll = 2*(jj-1)+(ii+1)/2 |
|
./pkg/exch2/w2_set_cs6_facets.F |
153 |
W2_SET_CS6_FACETS |
IF ( facet_dims(lo).EQ.0 .AND. facet_dims(ll).GT.0 ) THEN |
|
./pkg/exch2/w2_set_cs6_facets.F |
155 |
W2_SET_CS6_FACETS |
facet_dims(lo) = facet_dims(ll) |
|
./pkg/exch2/w2_set_cs6_facets.F |
158 |
W2_SET_CS6_FACETS |
& ' facet',j,'.',edge(i), ' set dim', lo, ' = dim', ll, |
|
./pkg/exch2/w2_set_cs6_facets.F |
159 |
W2_SET_CS6_FACETS |
& ' from',jj,'.',edge(ii),' :',facet_dims(ll) |
|
./pkg/exch2/w2_set_cs6_facets.F |
40 |
W2_SET_CS6_FACETS |
INTEGER i, j, ii, jj, lo, ll |
|
./pkg/exch2/w2_set_f2f_index.F |
111 |
W2_SET_F2F_INDEX |
ll = 2*(jj-1)+(ii+1)/2 |
|
./pkg/exch2/w2_set_f2f_index.F |
112 |
W2_SET_F2F_INDEX |
ll = facet_dims( ll ) |
|
./pkg/exch2/w2_set_f2f_index.F |
113 |
W2_SET_F2F_INDEX |
IF ( lo.NE.ll ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
118 |
W2_SET_F2F_INDEX |
& edge(ii),'.Edge facet #', jj, ' (=',ll,') are different' |
|
./pkg/exch2/w2_set_f2f_index.F |
37 |
W2_SET_F2F_INDEX |
INTEGER i, j, ii, jj, i1, j1, k, lo, ll |