Symbol Description Uses
nRd 17


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