Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

BEGIN
	LONG REAL	X1,X2,X3,X4,X,Y,Z,T,T1,T2;
	LONG REAL ARRAY	A1[1:4];
	INTEGER	I,J,K,L,N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12;
	PROCEDURE PA(A);
	LONG REAL ARRAY A;
	BEGIN INTEGER J;
		J:=0;
	LAB:	A[1]:=(A[1]+A[2]+A[3]-A[4])*T;
		A[2]:=(A[1]+A[2]-A[3]+A[4])*T;
		A[3]:=(A[1]-A[2]+A[3]+A[4])*T;
		A[4]:=(-A[1]+A[2]+A[3]+A[4])*T;
		J:=J+1;
		IF J<6 THEN GOTO LAB;
	END	PROCEDURE PA;
	PROCEDURE PO;
	BEGIN	A1[J]:=A1[K];
		A1[K]:=A1[L];
		A1[L]:=A1[J];
	END	PROCEDURE PO;
	PROCEDURE P3(X,Y,Z);
	VALUE X,Y;
	LONG REAL	X,Y,Z;
	BEGIN	X:=T*(X+Y);
		Y:=T*(X+Y);
		Z:=(X+Y)/T2;
	END 	PROCEDURE P3;
	PROCEDURE POUT(N,J,K,X1,X2,X3,X4);
	VALUE	N,J,K,X1,X2,X3,X4;
	INTEGER	N,J,K;
	LONG REAL	X1,X2,X3,X4;
	BEGIN
COMMENT		THIS PROCEDURE PRINTS OUT THE VALUES OF N,J,K,
		X1,X2,X3,X4 FORMAT AND MEDIUM ARE UNIMPORTANT;
		PRINT(N);
		SPACE(2);
		PRINT(J);
		SPACE(2);
		PRINT(K);
		SPACE(2);
		PRINT(X1);
		SPACE(2);
		PRINT(X2);
		SPACE(2);
		PRINT(X3);
		SPACE(2);
		PRINT(X4);
		NEWLINE(1)