LAPACK_dtrsna()

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