| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/W2_EXCH2_PARAMS.h |
43 |
NO PROCEDURE |
INTEGER facet_dims(2*W2_maxNbFacets) |
|
./pkg/exch2/W2_EXCH2_PARAMS.h |
50 |
NO PROCEDURE |
& nFacets, facet_dims, |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
186 |
W2_CUMULSUM_Z_TILE_RL |
fNx = facet_dims(2*j-1) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
187 |
W2_CUMULSUM_Z_TILE_RL |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_readparms.F |
151 |
W2_READPARMS |
facet_dims(j) = dimsFacets(j) |
|
./pkg/exch2/w2_readparms.F |
91 |
W2_READPARMS |
facet_dims(2*j-1) = 0 |
|
./pkg/exch2/w2_readparms.F |
92 |
W2_READPARMS |
facet_dims( 2*j ) = 0 |
|
./pkg/exch2/w2_set_cs6_facets.F |
134 |
W2_SET_CS6_FACETS |
facet_dims(1) = nRd |
|
./pkg/exch2/w2_set_cs6_facets.F |
135 |
W2_SET_CS6_FACETS |
facet_dims(2) = nGr |
|
./pkg/exch2/w2_set_cs6_facets.F |
136 |
W2_SET_CS6_FACETS |
facet_dims(3) = nBl |
|
./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 |
159 |
W2_SET_CS6_FACETS |
& ' from',jj,'.',edge(ii),' :',facet_dims(ll) |
|
./pkg/exch2/w2_set_cs6_facets.F |
175 |
W2_SET_CS6_FACETS |
IF ( facet_dims(2*j-1)*facet_dims(2*j).EQ.0 ) THEN |
|
./pkg/exch2/w2_set_cs6_facets.F |
177 |
W2_SET_CS6_FACETS |
& ' facets #', j, ' , x-size=', facet_dims(2*j-1), |
|
./pkg/exch2/w2_set_cs6_facets.F |
178 |
W2_SET_CS6_FACETS |
& ' , y-size=', facet_dims(2*j) |
|
./pkg/exch2/w2_set_cs6_facets.F |
85 |
W2_SET_CS6_FACETS |
nRd = facet_dims(1) |
|
./pkg/exch2/w2_set_cs6_facets.F |
86 |
W2_SET_CS6_FACETS |
nGr = facet_dims(2) |
|
./pkg/exch2/w2_set_cs6_facets.F |
87 |
W2_SET_CS6_FACETS |
nBl = facet_dims(3) |
|
./pkg/exch2/w2_set_cs6_facets.F |
89 |
W2_SET_CS6_FACETS |
IF ( facet_dims(j).NE.0 ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
106 |
W2_SET_F2F_INDEX |
lo = facet_dims( lo ) |
|
./pkg/exch2/w2_set_f2f_index.F |
112 |
W2_SET_F2F_INDEX |
ll = facet_dims( ll ) |
|
./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 |
145 |
W2_SET_F2F_INDEX |
facet_oi(i,j) = +facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_f2f_index.F |
149 |
W2_SET_F2F_INDEX |
facet_oi(i,j) = -facet_dims(2*jj-1) |
|
./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 |
177 |
W2_SET_F2F_INDEX |
facet_oi(i,j) = +facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_f2f_index.F |
186 |
W2_SET_F2F_INDEX |
facet_oi(i,j) = -facet_dims(2*jj) |
|
./pkg/exch2/w2_set_gen_facets.F |
102 |
W2_SET_GEN_FACETS |
& ' of facet', j, ' =', facet_dims(jj), ' : invalid (< 0)' |
|
./pkg/exch2/w2_set_gen_facets.F |
53 |
W2_SET_GEN_FACETS |
fNx = facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_gen_facets.F |
54 |
W2_SET_GEN_FACETS |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_set_gen_facets.F |
88 |
W2_SET_GEN_FACETS |
IF ( facet_dims(jj).NE.0 ) THEN |
|
./pkg/exch2/w2_set_gen_facets.F |
91 |
W2_SET_GEN_FACETS |
& facet_dims(jj), ' : beyond end of list (=1rst zero)' |
|
./pkg/exch2/w2_set_gen_facets.F |
97 |
W2_SET_GEN_FACETS |
IF ( facet_dims(jj).LT.0 ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
246 |
W2_SET_MAP_CUMSUM |
fNx = facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_map_cumsum.F |
247 |
W2_SET_MAP_CUMSUM |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
279 |
W2_SET_MAP_CUMSUM |
fNx = facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_map_cumsum.F |
280 |
W2_SET_MAP_CUMSUM |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
86 |
W2_SET_MAP_CUMSUM |
IF ( facet_dims(2*j-1)*facet_dims(2*j).GE.1 ) THEN |
|
./pkg/exch2/w2_set_map_tiles.F |
112 |
W2_SET_MAP_TILES |
IF ( facet_dims(2*j-1).GT.0 ) THEN |
|
./pkg/exch2/w2_set_map_tiles.F |
114 |
W2_SET_MAP_TILES |
nnx(k) = facet_dims(2*j-1)/tNx |
|
./pkg/exch2/w2_set_map_tiles.F |
129 |
W2_SET_MAP_TILES |
exch2_xStack_Nx = exch2_xStack_Nx + facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_map_tiles.F |
130 |
W2_SET_MAP_TILES |
exch2_xStack_Ny = MAX( exch2_xStack_Ny, facet_dims(2*j) ) |
|
./pkg/exch2/w2_set_map_tiles.F |
136 |
W2_SET_MAP_TILES |
exch2_yStack_Nx = MAX( exch2_yStack_Nx, facet_dims(2*j-1) ) |
|
./pkg/exch2/w2_set_map_tiles.F |
137 |
W2_SET_MAP_TILES |
exch2_yStack_Ny = exch2_yStack_Ny + facet_dims(2*j) |
|
./pkg/exch2/w2_set_map_tiles.F |
162 |
W2_SET_MAP_TILES |
fNx = facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_map_tiles.F |
163 |
W2_SET_MAP_TILES |
fNy = facet_dims( 2*j ) |
|
./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 |
68 |
W2_SET_MAP_TILES |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_set_single_facet.F |
58 |
W2_SET_SINGLE_FACET |
IF ( facet_dims(1).EQ.0 .AND. facet_dims(2).EQ.0 ) THEN |
|
./pkg/exch2/w2_set_single_facet.F |
60 |
W2_SET_SINGLE_FACET |
facet_dims(1) = Nx |
|
./pkg/exch2/w2_set_single_facet.F |
61 |
W2_SET_SINGLE_FACET |
facet_dims(2) = Ny |
|
./pkg/exch2/w2_set_single_facet.F |
63 |
W2_SET_SINGLE_FACET |
IF ( facet_dims(1).LE.0 .OR. facet_dims(2).LE.0 ) THEN |
|
./pkg/exch2/w2_set_single_facet.F |
65 |
W2_SET_SINGLE_FACET |
& ' unvalid 1rst 2 dimensions:', facet_dims(1), facet_dims(2) |
|
./pkg/exch2/w2_set_single_facet.F |
72 |
W2_SET_SINGLE_FACET |
IF ( facet_dims(j).NE.0 ) THEN |
|
./pkg/exch2/w2_set_tile2tiles.F |
119 |
W2_SET_TILE2TILES |
nbTx = facet_dims(2*js-1)/tNx |
|
./pkg/exch2/w2_set_tile2tiles.F |
176 |
W2_SET_TILE2TILES |
nbTx = facet_dims(2*jt-1)/tNx |