SUBROUTINE IOERRS
C
C
C  COMPONENT:	IOERRS
C
C  DATE:	05-JUL-79
C
C  AUTHOR:	GR JOHNSON
C		BATTELLE NORTHWEST
C		P O BOX 999
C		RICHLAND WA 99352
C
C  SOURCE:	FORTRAN IV-PLUS
C
C  CALLING SEQUENCE:
C
C		CALL IOERRS
C
C
C  DESCRIPTION:
C
C	"IOERRS" DISABLES RUN-TIME PROCESSING OF I/O ERRORS MOST LIKELY
C  TO BE PROCESSED AS NON-FATAL BY THE USER'S PROGRAM.  SPECIFICALLY,
C  THE ERRORS DISABLED ARE;
C
C	28 -- 'CLOSE ERROR'
C	29 -- 'NO SUCH FILE'
C	30 -- 'OPEN FAILURE'
C	38 -- 'ERROR DURING WRITE'
C	39 -- 'ERROR DURING READ'
C	42 -- 'DEVICE HANDLER NOT RESIDENT'
C	43 -- 'FILE NAME SPECIFICATION ERROR'
C	59 -- 'LIST-DIRECTED I/O SYNTAX ERROR'
C	61 -- 'FORMAT/VARIABLE-TYPE MISMATCH'
C	63 -- 'OUTPUT CONVERSION ERROR'
C	64 -- 'INPUT CONVERSION ERROR'
C
C

C  PARAMETERS AND VARIABLES
C
	PARAMETER T=.TRUE.
	PARAMETER F=.FALSE.
C
C
C  ENTRY POINT -- INITIALIZE I/O ERROR PROCESSING
C
	CALL ERRSET(28,T,F,T,F)
	CALL ERRSET(29,T,F,T,F)
	CALL ERRSET(30,T,F,T,F)
	CALL ERRSET(38,T,F,T,F)
	CALL ERRSET(39,T,F,T,F)
	CALL ERRSET(42,T,F,T,F)
	CALL ERRSET(43,T,F,F,F)
	CALL ERRSET(59,T,F,T,F)
	CALL ERRSET(61,T,F,T,F)
	CALL ERRSET(63,T,F,F,F)
	CALL ERRSET(64,T,F,T,F)
C
	RETURN
	END