OB_indexUnset = 0
OB_Jnorth(i) = OB_indexUnset
OB_Jsouth(i) = OB_indexUnset
OB_Ieast(j) = OB_indexUnset
OB_Iwest(j) = OB_indexUnset
OB_singleJnorth = OB_indexUnset
OB_singleJsouth = OB_indexUnset
OB_singleIeast = OB_indexUnset
OB_singleIwest = OB_indexUnset
IF ( OB_singleIeast.NE.OB_indexUnset ) THEN
IF ( OB_Ieast(j).EQ.OB_indexUnset ) THEN
IF ( OB_singleIwest.NE.OB_indexUnset ) THEN
IF ( OB_Iwest(j).EQ.OB_indexUnset ) THEN
IF ( OB_singleJnorth.NE.OB_indexUnset ) THEN
IF ( OB_Jnorth(i).EQ.OB_indexUnset ) THEN
IF ( OB_singleJsouth.NE.OB_indexUnset ) THEN
IF ( OB_Jsouth(i).EQ.OB_indexUnset ) THEN
IF ( OB_Ieast(j) .NE.OB_indexUnset .AND.
IF ( OB_Jnorth(i).NE.OB_indexUnset .AND.
CALL WRITE_0D_I( OB_indexUnset, INDEX_NONE,' OB_indexUnset =',
IF ( OB_Jnorth(iG).NE.OB_indexUnset ) THEN
IF ( OB_Jsouth(iG).NE.OB_indexUnset ) THEN
INTEGER OB_indexUnset
IF ( OB_Ieast(jG).NE.OB_indexUnset ) THEN
IF ( OB_Iwest(jG).NE.OB_indexUnset ) THEN
IF ( OB_Ieast(jGm).NE.OB_indexUnset ) THEN
IF ( OB_Iwest(jGm).NE.OB_indexUnset ) THEN
IF ( OB_Jnorth(iGm).NE.OB_indexUnset ) THEN
IF ( OB_Jsouth(iGm).NE.OB_indexUnset ) THEN