LAPACK  3.6.0
LAPACK: Linear Algebra PACKage
subroutine zlacsg ( integer  M,
integer  P,
integer  Q,
double precision, dimension( * )  THETA,
integer, dimension( 4 )  ISEED,
complex*16, dimension( ldx, * )  X,
integer  LDX,
complex*16, dimension( * )  WORK 
)