SUBROUTINE FTNERR(TSKNAM)
	BYTE TSKNAM(3)			!NAME OF CALLING TASK
	CALL ERRSNS(IERR)
	IF(IERR .NE. 29)GO TO 20
	TYPE 10,TSKNAM
10	FORMAT(1X,3A1,' -- No such file')
	CALL EXIT
20	IF(IERR .NE. 30)GO TO 40
	TYPE 30,TSKNAM
30	FORMAT(1X,3A1,' -- Open failure')
	CALL EXIT
40	IF(IERR .NE. 43)GO TO 60
	TYPE 50,TSKNAM
50	FORMAT(1X,3A1,' -- Invalid file specifacation')
	CALL EXIT
60	IF(IERR .NE. 64)GO TO 80
	TYPE 70,TSKNAM
70	FORMAT(1X,3A1,' -- Input conversion error in header or checksum')
	CALL EXIT
80	TYPE 90,TSKNAM,IERR
90	FORMAT(1X,3A1,' -- FORTRAN ERROR ',I3)
	CALL EXIT
	END