Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50144/deted.f4
There are no other files named deted.f4 in the archive.
	DIMENSION A(25,4)
	DATA A(1,1),A(3,3),A(2,1),A(3,2),A(3,1),A(1,4)
	1,A(4,1),A(1,2),A(4,3),A(2,4),A(2,2),A(4,2),A(1,3)
	2,A(4,4),A(2,3),A(3,4)/2*2.0,2*4.0,2*-3.0,4*0.0,4*1.0
	3,-2.0,5.0/
	X=DETE(A,4)
	TYPE 10,X
10	FORMAT(/' VALUE OF THE DETERMINANT =',1PE20.7)
	STOP
	END