	SUBROUTINE GETFIL(K71)
	IMPLICIT INTEGER(A-Z)
C
C	GET FILE NAME TO GET PLOT DATA FROM
C	DEFAULT IS 'PLTDAT'
C	IF DEFAULT K71 = 0, ELSE 1
C
	DOUBLE PRECISION FIL1,FIL2
10	FORMAT(' FILE(NO EXT): ',$)
20	FORMAT(A10)
	WRITE(5,10); READ(5,20) FIL1
	K71 = 0
	IF (FIL1 .EQ. 'STOP') STOP
	IF (FIL1 .EQ. 'PLTDAT') GOTO 30
	IF (FIL1 .EQ. ' ') GOTO 30
C
C	--MUST BE '.WEK' FILE
C
40	FORMAT(A6,'.WEK')
	ENCODE(10,40,FIL2) FIL1
	K71 = 1
	GOTO 50
C
C	--DEFAULT
C
30	FIL2 = 'PLTDAT'
50	OPEN(UNIT=21,FILE=FIL2,MODE='IMAGE',ACCESS='SEQIN')
	RETURN
	END

