21 |
C :: = 3 : 6-face Cube (3 face-dims: nRed, nGreen, nBlue). |
C :: = 3 : 6-face Cube (3 face-dims: nRed, nGreen, nBlue). |
22 |
C nFacets :: Number of facets (or domains) in this topology |
C nFacets :: Number of facets (or domains) in this topology |
23 |
C facet_dims :: facet pair of dimensions (n1x,n1y, n2x,n2y, ...) |
C facet_dims :: facet pair of dimensions (n1x,n1y, n2x,n2y, ...) |
24 |
C nTiles :: Number of tiles in this topology |
C nTiles :: Number of tiles in this topology <- moved to W2_EXCH2_TOPOLOGY.h |
25 |
C nBlankTiles :: Number of "Blank-Tiles" |
C nBlankTiles :: Number of "Blank-Tiles" |
26 |
C blankList :: List of "Blank-Tiles" (non active) |
C blankList :: List of "Blank-Tiles" (non active) |
27 |
C-- |
C-- |
41 |
INTEGER preDefTopol |
INTEGER preDefTopol |
42 |
INTEGER nFacets |
INTEGER nFacets |
43 |
INTEGER facet_dims(2*W2_maxNbFacets) |
INTEGER facet_dims(2*W2_maxNbFacets) |
|
INTEGER nTiles |
|
44 |
INTEGER nBlankTiles |
INTEGER nBlankTiles |
45 |
INTEGER blankList(W2_maxNbTiles) |
INTEGER blankList(W2_maxNbTiles) |
46 |
INTEGER W2_mapIO |
INTEGER W2_mapIO |
48 |
COMMON /W2_EXCH2_PARM_I/ |
COMMON /W2_EXCH2_PARM_I/ |
49 |
& preDefTopol, |
& preDefTopol, |
50 |
& nFacets, facet_dims, |
& nFacets, facet_dims, |
51 |
& nTiles, nBlankTiles, |
& nBlankTiles, blankList, |
|
& blankList, |
|
52 |
& W2_mapIO, |
& W2_mapIO, |
53 |
& W2_oUnit, W2_printMsg |
& W2_oUnit, W2_printMsg |
54 |
|
|