Google
 

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