File: TIMER.FT of Tape: Various/ETH/eth11-1

(Source file text) 

---

	DIMENSION A(1600),L(40),M(40)
	IX=3
2	PAUSE 1
	DO 1 I=1,1600
	CALL RANDU(IX,IY,Y)
	IX=IY
1	A(I)=Y
	PAUSE 2
	CALL MINV(A,10,D,L,M)
	PAUSE 3
	CALL MINV(A,15,D,L,M)
	PAUSE 4
	CALL MINV(A,20,D,L,M)
	PAUSE 5
	CALL MINV(A,30,D,L,M)
	PAUSE 6
	CALL MINV(A,40,D,L,M)
	PAUSE 7
	GO TO 2
	END

---