| 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 |