Symbol Description Uses
newConnect 8


File Line number Procedure Code
./pkg/obcs/obcs_set_connect.F 195 OBCS_SET_CONNECT 
          newConnect = 1
./pkg/obcs/obcs_set_connect.F 196 OBCS_SET_CONNECT 
          DO WHILE ( newConnect.NE. 0 )
./pkg/obcs/obcs_set_connect.F 197 OBCS_SET_CONNECT 
           newConnect = 0
./pkg/obcs/obcs_set_connect.F 200 OBCS_SET_CONNECT 
              IF ( newConnect.EQ.0 ) THEN
./pkg/obcs/obcs_set_connect.F 201 OBCS_SET_CONNECT 
               newConnect = tmpConnect(i)
./pkg/obcs/obcs_set_connect.F 204 OBCS_SET_CONNECT 
     &           listLocal(numLocal(bi,bj),bi,bj) = newConnect
./pkg/obcs/obcs_set_connect.F 206 OBCS_SET_CONNECT 
              IF ( tmpConnect(i).EQ.newConnect )
./pkg/obcs/obcs_set_connect.F 45 OBCS_SET_CONNECT 
      INTEGER n, newConnect, maxConnect