numConnect = 0
numConnect = numConnect + 1
IF ( numConnect.LE.OBCS_maxConnect )
& listConnect(numConnect) = j
IF ( numConnect.GT.OBCS_maxConnect ) THEN
& ' numConnect=', numConnect,
& ', maxConnect=', maxConnect, ' , numConnect=', numConnect
DO j=1,numConnect,15
n = MIN(numConnect,j+14)
DO n=1,numConnect
OB_connectNumber(k) = numConnect
INTEGER numConnect, listConnect(OBCS_maxConnect)