slacsg()

subroutine slacsg	(	integer	M,
		integer	P,
		integer	Q,
		real, dimension( * )	THETA,
		integer, dimension( 4 )	ISEED,
		real, dimension( ldx, * )	X,
		integer	LDX,
		real, dimension( * )	WORK
	)