dlacsg()

subroutine dlacsg	(	integer	M,
		integer	P,
		integer	Q,
		double precision, dimension( * )	THETA,
		integer, dimension( 4 )	ISEED,
		double precision, dimension( ldx, * )	X,
		integer	LDX,
		double precision, dimension( * )	WORK
	)