File: FILNAM.FT of Tape: Various/ETH/f4

(Source file text) 

---

C	FILNAM
C	USED TO CALL USR FROM FIV
	SUBROUTINE FILNAM(UNIT,SIZE,CODE,NAME)
	INTEGER UNIT,CODE
	DIMENSION TEXT(2),NAME(3),ERTXT(2)
1000	FORMAT(2X,A6,'FILE FOR UNIT ',I4,' :',$)
2000	FORMAT(3A6)
3000	FORMAT(' FILE EXISTS USE ANOTHER NAME')
4000	FORMAT(2X,A6,'ERROR IN USR  TRY AGAIN')
	DATA TEXT,ERTXT/'INPUT','OUTPUT','DEVICE','NAME'/
	IF(UNIT.LT.5.OR.UNIT.GT.9)GOTO 100
	IF(CODE.NE.2.AND.CODE.NE.3)GOTO 100
10	WRITE(0,1000)TEXT(CODE-1),UNIT
	READ(4,2000)NAME
	IF(CODE.EQ.2)GOTO 50
	CALL USR(UNIT,NAME,2,IER)
	IF(IER.EQ.2)GOTO 50
	IF(IER.EQ.1)GOTO 70
	IF(IER.NE.0)GOTO100
	WRITE(0,3000)
	GOTO 10
50	CALL USR(UNIT,NAME,CODE,IER)
	IF(IER.EQ.1.OR.IER.EQ.2)GOTO 70
	IF(IER.NE.0)GOTO 100
C	ERROR FREE LOOK UP SIZE
	SIZE=FILSIZ(UNIT)
	RETURN
70	WRITE(0,4000)ERTXT(IER)
	GOTO 10
100	CALL ERROR(-IER,'USR')
	END

---