SUBROUTINE Output_Error_Total(Ierrors,Ilength)
C
C	This subroutine is to be called from TapeCheck
C	Its purpose is to set the total error value discovered
C	by tapecheck and the total length of tape checked as 
C	local DCL symbols, Tape_Errors and Tape_Feet.
C
C	The reason we are interested in total length of
C	tape checked, is because TapeCheck stops writing
C	to tape and starts to read if it encounters a
C	Fatal Write error.  Now, looking at the code makes
C	me realize that a tape with a bad spot early on
C	might get a low error count.  So that the command
C	procedure can have some smarts, I am going to output
C	also the total length so checks for reasonableness
C	can be made and tapes which seem too short rejected.
C
C	By	James G. Downward
C		KMS Fusion, Inc
C		P.O. Box 1567
C		Ann Arbor, Mich 48104
C-
	IMPLICIT 	INTEGER*4 (A-Z) 		!
	INTEGER*2	Ierrors,Ilength			!
	CHARACTER*10	Cvalue				!
	WRITE(Cvalue,10) Ierrors			! Convert integer
10	FORMAT(I10)					!   to a string
	Istatus=LIB$SET_SYMBOL('TAPE_ERRORS',Cvalue)	! Set in local table
	WRITE(Cvalue,10) Ilength			! Convert to string
	Istatus=LIB$SET_SYMBOL('TAPE_LENGTH',Cvalue)	! Set in local table
	RETURN						!
	END