| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_print_e2setup.F |
175 |
W2_PRINT_E2SETUP |
fNx = exch2_mydNx(is) |
|
./pkg/exch2/w2_print_e2setup.F |
177 |
W2_PRINT_E2SETUP |
nbTx = fNx/tNx |
|
./pkg/exch2/w2_print_e2setup.F |
181 |
W2_PRINT_E2SETUP |
& '- facet', js, ' : X-size=', fNx, ' , Y-size=', fNy, |
|
./pkg/exch2/w2_print_e2setup.F |
39 |
W2_PRINT_E2SETUP |
INTEGER tNx, tNy, fNx, fNy |
|
./pkg/exch2/w2_print_e2setup.F |
64 |
W2_PRINT_E2SETUP |
fNx = exch2_mydNx(is) |
|
./pkg/exch2/w2_print_e2setup.F |
66 |
W2_PRINT_E2SETUP |
nbTx = fNx/tNx |
|
./pkg/exch2/w2_set_gen_facets.F |
38 |
W2_SET_GEN_FACETS |
INTEGER i,j,jj,fNx,fNy |
|
./pkg/exch2/w2_set_gen_facets.F |
52 |
W2_SET_GEN_FACETS |
fNx = facet_dims(2*j-1) |
|
./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 |
56 |
W2_SET_GEN_FACETS |
IF ( fNx.NE.0 .OR. fNy.NE.0 ) THEN |
|
./pkg/exch2/w2_set_gen_facets.F |
60 |
W2_SET_GEN_FACETS |
& ' :',fNx,fNy |
|
./pkg/exch2/w2_set_map_tiles.F |
145 |
W2_SET_MAP_TILES |
fNx = facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_map_tiles.F |
147 |
W2_SET_MAP_TILES |
nbTx = fNx/tNx |
|
./pkg/exch2/w2_set_map_tiles.F |
150 |
W2_SET_MAP_TILES |
& '- facet', j, ' : X-size=', fNx, ' , Y-size=', fNy, |
|
./pkg/exch2/w2_set_map_tiles.F |
162 |
W2_SET_MAP_TILES |
exch2_mydNx ( tId ) = fNx |
|
./pkg/exch2/w2_set_map_tiles.F |
175 |
W2_SET_MAP_TILES |
ii = nbPts + exch2_tBasex(tId) + exch2_tBasey(tId)*fNx |
|
./pkg/exch2/w2_set_map_tiles.F |
180 |
W2_SET_MAP_TILES |
ii = nbPts + exch2_tBasex(tId) + exch2_tBasey(tId)*fNx |
|
./pkg/exch2/w2_set_map_tiles.F |
191 |
W2_SET_MAP_TILES |
fBaseX = fBaseX + fNx |
|
./pkg/exch2/w2_set_map_tiles.F |
192 |
W2_SET_MAP_TILES |
nbPts = nbPts + fNx*fNy |
|
./pkg/exch2/w2_set_map_tiles.F |
45 |
W2_SET_MAP_TILES |
INTEGER tNx, tNy, fNx, fNy, nbPts, fBaseX |
|
./pkg/exch2/w2_set_map_tiles.F |
67 |
W2_SET_MAP_TILES |
fNx = facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_map_tiles.F |
69 |
W2_SET_MAP_TILES |
nbTx = fNx/tNx |
|
./pkg/exch2/w2_set_map_tiles.F |
71 |
W2_SET_MAP_TILES |
IF ( nbTx*tNx .NE. fNx ) THEN |
|
./pkg/exch2/w2_set_map_tiles.F |
73 |
W2_SET_MAP_TILES |
& ' : X-size=', fNx, ' not multiple of sNx=', tNx |
|
./pkg/exch2/w2_set_map_tiles.F |
86 |
W2_SET_MAP_TILES |
nbPts = nbPts + fNx*fNy |