| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_set_connect.F |
191 |
OBCS_SET_CONNECT |
numLocal(bi,bj) = 0 |
|
./pkg/obcs/obcs_set_connect.F |
202 |
OBCS_SET_CONNECT |
numLocal(bi,bj) = numLocal(bi,bj) + 1 |
|
./pkg/obcs/obcs_set_connect.F |
203 |
OBCS_SET_CONNECT |
IF ( numLocal(bi,bj).LE.OBCS_maxConnect ) |
|
./pkg/obcs/obcs_set_connect.F |
204 |
OBCS_SET_CONNECT |
& listLocal(numLocal(bi,bj),bi,bj) = newConnect |
|
./pkg/obcs/obcs_set_connect.F |
211 |
OBCS_SET_CONNECT |
IF ( numLocal(bi,bj).GT.OBCS_maxConnect ) THEN |
|
./pkg/obcs/obcs_set_connect.F |
213 |
OBCS_SET_CONNECT |
& 'k=', k, ' numLocal(', bi,',',bj,')=', numLocal(bi,bj), |
|
./pkg/obcs/obcs_set_connect.F |
219 |
OBCS_SET_CONNECT |
IF ( numLocal(bi,bj).EQ.0 ) THEN |
|
./pkg/obcs/obcs_set_connect.F |
221 |
OBCS_SET_CONNECT |
& bi, bj, ' , numLocal=', numLocal(bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
224 |
OBCS_SET_CONNECT |
& bi, bj, ' , numLocal=', numLocal(bi,bj), |
|
./pkg/obcs/obcs_set_connect.F |
229 |
OBCS_SET_CONNECT |
DO j=2,numLocal(bi,bj),15 |
|
./pkg/obcs/obcs_set_connect.F |
230 |
OBCS_SET_CONNECT |
n = MIN(numLocal(bi,bj),j+14) |
|
./pkg/obcs/obcs_set_connect.F |
237 |
OBCS_SET_CONNECT |
DO n=1,numLocal(bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
254 |
OBCS_SET_CONNECT |
DO n=1,numLocal(bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
47 |
OBCS_SET_CONNECT |
INTEGER numLocal(nSx,nSy), listLocal(OBCS_maxConnect,nSx,nSy) |