| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/W2_EXCH2_PARAMS.h |
42 |
NO PROCEDURE |
INTEGER nFacets |
|
./pkg/exch2/W2_EXCH2_PARAMS.h |
51 |
NO PROCEDURE |
& nFacets, facet_dims, |
|
./pkg/exch2/w2_e2setup.F |
134 |
W2_E2SETUP |
& 'W2_E2SETUP: Total number of Facets =', nFacets |
|
./pkg/exch2/w2_readparms.F |
88 |
W2_READPARMS |
nFacets = 0 |
|
./pkg/exch2/w2_set_cs6_facets.F |
142 |
W2_SET_CS6_FACETS |
DO j=2,nFacets |
|
./pkg/exch2/w2_set_cs6_facets.F |
147 |
W2_SET_CS6_FACETS |
IF ( jj.GE.1 .AND. jj.LE.nFacets |
|
./pkg/exch2/w2_set_cs6_facets.F |
169 |
W2_SET_CS6_FACETS |
IF ( setDims.NE.nFacets*2 ) THEN |
|
./pkg/exch2/w2_set_cs6_facets.F |
171 |
W2_SET_CS6_FACETS |
& nFacets*2-setDims, ' facet-dims left Unset' |
|
./pkg/exch2/w2_set_cs6_facets.F |
174 |
W2_SET_CS6_FACETS |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_cs6_facets.F |
55 |
W2_SET_CS6_FACETS |
nFacets = 6 |
|
./pkg/exch2/w2_set_cs6_facets.F |
62 |
W2_SET_CS6_FACETS |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_f2f_index.F |
102 |
W2_SET_F2F_INDEX |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_f2f_index.F |
219 |
W2_SET_F2F_INDEX |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_f2f_index.F |
52 |
W2_SET_F2F_INDEX |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_f2f_index.F |
63 |
W2_SET_F2F_INDEX |
ELSEIF ( jj.LT.1 .OR. jj.GT.nFacets |
|
./pkg/exch2/w2_set_gen_facets.F |
114 |
W2_SET_GEN_FACETS |
DO j=nFacets+1,W2_maxNbFacets |
|
./pkg/exch2/w2_set_gen_facets.F |
123 |
W2_SET_GEN_FACETS |
& ' is beyond range (> nFacets=',nFacets,')' |
|
./pkg/exch2/w2_set_gen_facets.F |
50 |
W2_SET_GEN_FACETS |
nFacets = 0 |
|
./pkg/exch2/w2_set_gen_facets.F |
54 |
W2_SET_GEN_FACETS |
IF ( nFacets.EQ.0 .AND. fNx*fNy.EQ.0 ) THEN |
|
./pkg/exch2/w2_set_gen_facets.F |
55 |
W2_SET_GEN_FACETS |
nFacets = j - 1 |
|
./pkg/exch2/w2_set_gen_facets.F |
70 |
W2_SET_GEN_FACETS |
IF ( nFacets.EQ.0 ) nFacets = W2_maxNbFacets |
|
./pkg/exch2/w2_set_gen_facets.F |
80 |
W2_SET_GEN_FACETS |
& 'W2_SET_GEN_FACETS: Number of facets =', nFacets, |
|
./pkg/exch2/w2_set_gen_facets.F |
86 |
W2_SET_GEN_FACETS |
DO jj=2*nFacets+1,2*W2_maxNbFacets |
|
./pkg/exch2/w2_set_gen_facets.F |
95 |
W2_SET_GEN_FACETS |
DO jj=1,2*nFacets |
|
./pkg/exch2/w2_set_map_tiles.F |
108 |
W2_SET_MAP_TILES |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_map_tiles.F |
111 |
W2_SET_MAP_TILES |
divide = FIND_GCD_N( nnx, nFacets) |
|
./pkg/exch2/w2_set_map_tiles.F |
122 |
W2_SET_MAP_TILES |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_map_tiles.F |
144 |
W2_SET_MAP_TILES |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_map_tiles.F |
66 |
W2_SET_MAP_TILES |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_single_facet.F |
44 |
W2_SET_SINGLE_FACET |
nFacets = 1 |