Trailing-Edge
-
PDP-10 Archives
-
decuslib20-05
-
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