C	FILIO -- ROUTINE TO OPEN USER DEFINED FILES
C
C
	SUBROUTINE FILIO(LUN,ISWICH,FSPECA,FNC,IERR)
	INTEGER LUN,ISWICH,IERR,FNC,UIC(5),DLNT,ULNT
	BYTE FSPECA(24)
	REAL DEV
	IERR=.FALSE.
	IF(ISWICH.EQ.1)GOTO100
	IF(FNC.LE.0)GOTO1000
	CALL TERDEF(DEV,DLNT,UIC,ULNT)
	CALL FSPEC(FSPECA,FNC,UIC,ULNT,DEV,DLNT,1)
	I=LSTRNG(FSPECA,1,24,"40,1,1)
	FSPECA(I)="0
C	TYPE 5,FSPECA,FSPECA,FNC
C5	FORMAT(1X,24A1/,1X,24(O3,1X),'FNC=',I5)
	IF(LUN.EQ.11)GOTO200
	OPEN(UNIT=10,NAME=FSPECA,TYPE='OLD',ACCESS='SEQUENTIAL',
     +        READONLY,ERR=1000)
	GOTO300
200	OPEN(UNIT=11,NAME=FSPECA,TYPE='NEW',ACCESS='SEQUENTIAL',
     +        CARRIAGECONTROL='LIST',ERR=1000)
300	ISWICH=1
	RETURN
100	IF(LUN.EQ.11)CLOSE(UNIT=11)
	IF(LUN.EQ.10)CLOSE(UNIT=10)
	ISWICH=0
	RETURN
1000	IERR=.TRUE.
	RETURN
	END