| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_set_cs6_facets.F |
100 |
W2_SET_CS6_FACETS |
nGr = nRd |
|
./pkg/exch2/w2_set_cs6_facets.F |
101 |
W2_SET_CS6_FACETS |
nBl = nRd |
|
./pkg/exch2/w2_set_cs6_facets.F |
102 |
W2_SET_CS6_FACETS |
ELSEIF ( nRd+nGr+nBl.EQ.0 ) THEN |
|
./pkg/exch2/w2_set_cs6_facets.F |
107 |
W2_SET_CS6_FACETS |
nRd = NINT(tmpVar) |
|
./pkg/exch2/w2_set_cs6_facets.F |
108 |
W2_SET_CS6_FACETS |
IF ( nRd*nRd*6 .EQ. nGr ) THEN |
|
./pkg/exch2/w2_set_cs6_facets.F |
109 |
W2_SET_CS6_FACETS |
nGr = nRd |
|
./pkg/exch2/w2_set_cs6_facets.F |
110 |
W2_SET_CS6_FACETS |
nBl = nRd |
|
./pkg/exch2/w2_set_cs6_facets.F |
112 |
W2_SET_CS6_FACETS |
& ' facet-dims Unset; assume nRd=nGr=nBl=', nRd |
|
./pkg/exch2/w2_set_cs6_facets.F |
119 |
W2_SET_CS6_FACETS |
& ' not equal to: 6 x',nRd,'^2 =', nRd*nRd*6 |
|
./pkg/exch2/w2_set_cs6_facets.F |
127 |
W2_SET_CS6_FACETS |
IF ( nRd*nGr*nBl.EQ.0 ) THEN |
|
./pkg/exch2/w2_set_cs6_facets.F |
134 |
W2_SET_CS6_FACETS |
facet_dims(1) = nRd |
|
./pkg/exch2/w2_set_cs6_facets.F |
41 |
W2_SET_CS6_FACETS |
INTEGER nRd, nGr, nBl |
|
./pkg/exch2/w2_set_cs6_facets.F |
85 |
W2_SET_CS6_FACETS |
nRd = facet_dims(1) |
|
./pkg/exch2/w2_set_cs6_facets.F |
98 |
W2_SET_CS6_FACETS |
IF ( nRd.GT.0 .AND. nGr+nBl.EQ.0 ) THEN |