Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - decus/20-0150/tstau2.for
There is 1 other file named tstau2.for in the archive. Click here to see a list.
00100		PROGRAM TSTAU2
00200	C	PROGRAM TO TEST MACRO SUBROUTINE "TAUS" WITH FORTRAN MAIN
00300	C       REQUIRES EXTERNAL TAUS
00400		INTEGER A(7)
00500		REAL RX
00600	 6	FORMAT (' NUMBR OF ITERATIONS > ')
00700	10	FORMAT (7(1X,O12),2X,O12)
00800		WRITE(5,6)
00900		READ (5,*) K
01000		WRITE(5,15)(I,I=1,7)
01100	15	FORMAT (/7('      A(',I1,')    '),'      RX    ')
01200		DO 20 I=1,6
01300	20	A(I)=0
01400		A(7)=1
01500	  	WRITE (5,10)(A(I),I=1,7)
01600		DO 50 J=1,K
01700		CALL TAUS(A,RX)
01800	50	WRITE (5,10)(A(I),I=1,7), RX
01900		END