LAPACK_ztrsna()

void LAPACK_ztrsna	(	char *	job,
		char *	howmny,
		const lapack_logical *	select,
		lapack_int *	n,
		const lapack_complex_double *	t,
		lapack_int *	ldt,
		const lapack_complex_double *	vl,
		lapack_int *	ldvl,
		const lapack_complex_double *	vr,
		lapack_int *	ldvr,
		double *	s,
		double *	sep,
		lapack_int *	mm,
		lapack_int *	m,
		lapack_complex_double *	work,
		lapack_int *	ldwork,
		double *	rwork,
		lapack_int *	info
	)