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