Symbol Description Uses
lo 15


File Line number Procedure Code
./pkg/exch2/w2_set_cs6_facets.F 150 W2_SET_CS6_FACETS 
           lo = 2*(j-1) + (i+1)/2
./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 158 W2_SET_CS6_FACETS 
     &         ' facet',j,'.',edge(i), ' set dim', lo, ' = dim', ll,
./pkg/exch2/w2_set_cs6_facets.F 40 W2_SET_CS6_FACETS 
      INTEGER i, j, ii, jj, lo, ll
./pkg/exch2/w2_set_f2f_index.F 105 W2_SET_F2F_INDEX 
        lo = 2*(j-1) + (i+1)/2
./pkg/exch2/w2_set_f2f_index.F 106 W2_SET_F2F_INDEX 
        lo = facet_dims( lo )
./pkg/exch2/w2_set_f2f_index.F 113 W2_SET_F2F_INDEX 
         IF ( lo.NE.ll ) THEN
./pkg/exch2/w2_set_f2f_index.F 115 W2_SET_F2F_INDEX 
     &      edge(i), '.Edge facet #', j,  ' (=',lo,')'
./pkg/exch2/w2_set_f2f_index.F 159 W2_SET_F2F_INDEX 
           facet_oi(i,j) = lo+1
./pkg/exch2/w2_set_f2f_index.F 168 W2_SET_F2F_INDEX 
           facet_oi(i,j) = lo+1
./pkg/exch2/w2_set_f2f_index.F 178 W2_SET_F2F_INDEX 
           facet_oj(i,j) = lo+1
./pkg/exch2/w2_set_f2f_index.F 187 W2_SET_F2F_INDEX 
           facet_oj(i,j) = lo+1
./pkg/exch2/w2_set_f2f_index.F 37 W2_SET_F2F_INDEX 
      INTEGER i, j, ii, jj, i1, j1, k, lo, ll