clacsg()

subroutine clacsg	(	integer	m,
		integer	p,
		integer	q,
		real, dimension( * )	theta,
		integer, dimension( 4 )	iseed,
		complex, dimension( ldx, * )	x,
		integer	ldx,
		complex, dimension( * )	work
	)