1SUBROUTINE SCANBUFR (LBUFRIGNOREERROR, LBOPRPRO, LLSPLIT)
2LOGICAL :: LBUFRIGNOREERROR, LBOPRPRO, LLSPLIT
3INTEGER :: IBOTYP, IBSTYP
4IF ((IBOTYP.eq.0).AND.(IBSTYP.eq.1)) GO TO 251
5IF ((IBOTYP.eq.0).AND.(IBSTYP.eq.3)) GO TO 251
6IF(LBUFRIGNOREERROR) THEN
7 goto 360
8ENDIF
9251  CONTINUE
10IF(LBOPRPRO.AND.LLSPLIT) THEN
11  CALL OBSCREEN
12ENDIF
13360 CONTINUE
14END SUBROUTINE SCANBUFR
15
16