Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0025/deted.for
There is 1 other file named deted.for in the archive. Click here to see a list.
	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