File: FTESTM.FT of Disk: Disks/MyPDP/m8-1-rka1-rkb1

(Source file text) 

---

	SUBROUTINE FTEST(IMP,TIME,TEMP)

C	AUFBAU DES FILENAMENS
	DIMENSION TIME(100)
	DIMENSION TEMP(100)
	DIMENSION FNAME(6)
	ITERM=4
	DO 1 I=1,6
	DO 1 II=1,3
1	CALL CPUT3(FNAME(I),II,32)
	CALL CPUT3(FNAME(5),1,46)
	CALL CPUT3(FNAME(5),2,70)
	CALL CPUT3(FNAME(5),3,68)
	WRITE(ITERM,2001)
	READ(ITERM,1006) FNAME(1),FNAM
	CALL CGET3(FNAM,1,NAM)
	CALL CPUT3(FNAME(2),1,NAM)
	IF (NAM.EQ.58) GOTO 20
	CALL CGET3(FNAM,2,NAM)
	CALL CPUT3(FNAME(2),2,NAM)
	IF (NAM.EQ.58) GOTO 20
	CALL CGET3(FNAM,3,NAM)
	CALL CPUT3(FNAME(2),3,NAM)
20 	WRITE(ITERM,2002)
	READ(ITERM,1001)FNAME(3)
	WRITE(ITERM,2003)
	READ(ITERM,1002) DEPUCO
	CALL CGET3(DEPUCO,1,COPUDE)
	CALL CPUT3(FNAME(4),1,COPUDE)
	CALL CPUT3(FNAME(4),2,49)
	CALL CPUT3(FNAME(4),3,51)

	WRITE(ITERM,2004) FNAME

	IERR=-1
	CALL USR3(5,FNAME,3,IERR)
	WRITE(5,2004) FNAME
	DO 2 I=1,IMP
2	WRITE(5,1000) I,TIME(I),TEMP(I)
1000	FORMAT(2X,I5,2E16.6)
	ENDFILE 5
	IERR=0
	CALL USR3(5,FNAME,4,IERR)

1001	FORMAT(A3)
1002	FORMAT(A1)
1006	FORMAT(2A3)
2001	FORMAT(/1X,'OUTPUT DEVICE (e.g.RKA1:,DSK:,...)',T70,$)
2002	FORMAT(/1X,'SAMPLE:',T70,$)
2003	FORMAT(1X,'CONTIN (C),PULS (P),DECAY (D)',T70,$)
2004	FORMAT(1X,6A3)
	RETURN
	END

---