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
	)