Trailing-Edge
-
PDP-10 Archives
-
tops20_v6_1_tcpip_installation_tp_ft6
-
uetp/lib/t467.for
There are 11 other files named t467.for in the archive. Click here to see a list.
Program T467
C
C
C This program tests Algorithm 467 of the ACM arithmetic
C algorithms. It uses the file T476.Dat for input, and
C places the transposed inputted array in the file T467.Out.
C
C Copyright 1978 by Digital Equipment Corporation, Maynard MA
C
C
C
C This is the actual array
C
Dimension Arr(300,300)
C
C This is a logical array used in the subroutine
C
Logical Moved
C
C which must be dimension by the average of the indices
C
Dimension Moved(300)
C
C
C Open the input file
C
Open (Unit=10, Device='Dsk', File='T467.Dat', Mode='Binary',
* Record Size=90000)
C
C Read the data in
C
Read (10, Err=666, End=666) Arr (300, 300)
C
C Call the subroutine
C
Call Xpose (Arr, 300, 300, 90000, Moved, 300)
C
C Write the output to the file
C
Open (Unit=11, Device='Dsk', File='T467.Out', Mode='Binary',
* Record Size=90000)
C
Write (11) Arr(300, 300)
C
C Close the files
C
Close (Unit=10)
Close (Unit=11)
C
Goto 999
C
C
C Come here if an error occured on input
C
666 Write (5, 100)
Goto 999
C
C
999 Stop
C
100 Format (' ?Error in input from T467.Dat')
C
C
End