Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50437/getfil.for
There are 3 other files named getfil.for in the archive. Click here to see a list.
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