File |
Line number |
Procedure |
Code |
./pkg/obcs/obcs_set_connect.F |
182 |
OBCS_SET_CONNECT |
tmpConnect(i) = OBN_connect(i,k,bi,bj) |
./pkg/obcs/obcs_set_connect.F |
183 |
OBCS_SET_CONNECT |
tmpConnect(sNx+i) = OBS_connect(i,k,bi,bj) |
./pkg/obcs/obcs_set_connect.F |
186 |
OBCS_SET_CONNECT |
tmpConnect(sNx*2+j) = OBW_connect(j,k,bi,bj) |
./pkg/obcs/obcs_set_connect.F |
187 |
OBCS_SET_CONNECT |
tmpConnect(sNx*2+sNy+j) = OBE_connect(j,k,bi,bj) |
./pkg/obcs/obcs_set_connect.F |
199 |
OBCS_SET_CONNECT |
IF ( tmpConnect(i).GE.1 ) THEN |
./pkg/obcs/obcs_set_connect.F |
201 |
OBCS_SET_CONNECT |
newConnect = tmpConnect(i) |
./pkg/obcs/obcs_set_connect.F |
206 |
OBCS_SET_CONNECT |
IF ( tmpConnect(i).EQ.newConnect ) |
./pkg/obcs/obcs_set_connect.F |
207 |
OBCS_SET_CONNECT |
& tmpConnect(i) = 0 |
./pkg/obcs/obcs_set_connect.F |
295 |
OBCS_SET_CONNECT |
tmpConnect(i) = OBN_connect(i,k,bi,bj) |
./pkg/obcs/obcs_set_connect.F |
296 |
OBCS_SET_CONNECT |
tmpConnect(sNx+i) = OBS_connect(i,k,bi,bj) |
./pkg/obcs/obcs_set_connect.F |
299 |
OBCS_SET_CONNECT |
tmpConnect(sNx*2+j) = OBW_connect(j,k,bi,bj) |
./pkg/obcs/obcs_set_connect.F |
300 |
OBCS_SET_CONNECT |
tmpConnect(sNx*2+sNy+j) = OBE_connect(j,k,bi,bj) |
./pkg/obcs/obcs_set_connect.F |
306 |
OBCS_SET_CONNECT |
IF ( tmpConnect(i).EQ.listConnect(n) ) tmpConnect(i) = n |
./pkg/obcs/obcs_set_connect.F |
312 |
OBCS_SET_CONNECT |
OBN_connect(i,k,bi,bj) = tmpConnect(i) |
./pkg/obcs/obcs_set_connect.F |
313 |
OBCS_SET_CONNECT |
OBS_connect(i,k,bi,bj) = tmpConnect(sNx+i) |
./pkg/obcs/obcs_set_connect.F |
316 |
OBCS_SET_CONNECT |
OBW_connect(j,k,bi,bj) = tmpConnect(sNx*2+j) |
./pkg/obcs/obcs_set_connect.F |
317 |
OBCS_SET_CONNECT |
OBE_connect(j,k,bi,bj) = tmpConnect(sNx*2+sNy+j) |
./pkg/obcs/obcs_set_connect.F |
48 |
OBCS_SET_CONNECT |
INTEGER tmpConnect(sNx+sNx+sNy+sNy) |