Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

	SUBROUTINE RDATA(FILE,EOF)
C
C	--READ DATA INTO ARRAYS ON FILE 'FILE'
C
	INCLUDE 'WEEKLY.PRM'
	DOUBLE PRECISION FILE,FILEN
	INTEGER EOF
C
C	--MAKE FILE NAME
C
100	FORMAT(A6,'.WEK')
	EOF = 1
	IF (.NOT.(EXIST('DSK   ',FILE,'WEK',0))) GOTO 50
	EOF = 0
	ENCODE(10,100,FILEN) FILE
	OPEN(UNIT=21,FILE=FILEN,MODE='IMAGE',ACCESS='SEQIN')
	DO 10 I1 = 1,30
	READ(21) PLTST(I1)
10	CONTINUE
	DO 20 I1 = 1,20
	DO 20 I2 = 1,49
20	READ(21) PLT(I1,I2)
	DO 30 I1 = 1,4
	DO 30 I2 = 1,20
	DO 30 I3 = 1,49
30	READ(21) PLTD(I1,I2,I3)
	CLOSE(UNIT=21)
	RETURN
40	FORMAT(' [FILE ',A6,' NOT FOUND]')
50	WRITE(5,40) FILE
	RETURN
	END