cgedmdq()

subroutine cgedmdq	(	character, intent(in)	jobs,
		character, intent(in)	jobz,
		character, intent(in)	jobr,
		character, intent(in)	jobq,
		character, intent(in)	jobt,
		character, intent(in)	jobf,
		integer, intent(in)	whtsvd,
		integer, intent(in)	m,
		integer, intent(in)	n,
		complex(kind=wp), dimension(ldf,*), intent(inout)	f,
		integer, intent(in)	ldf,
		complex(kind=wp), dimension(ldx,*), intent(out)	x,
		integer, intent(in)	ldx,
		complex(kind=wp), dimension(ldy,*), intent(out)	y,
		integer, intent(in)	ldy,
		integer, intent(in)	nrnk,
		real(kind=wp), intent(in)	tol,
		integer, intent(out)	k,
		complex(kind=wp), dimension(*), intent(out)	eigs,
		complex(kind=wp), dimension(ldz,*), intent(out)	z,
		integer, intent(in)	ldz,
		real(kind=wp), dimension(*), intent(out)	res,
		complex(kind=wp), dimension(ldb,*), intent(out)	b,
		integer, intent(in)	ldb,
		complex(kind=wp), dimension(ldv,*), intent(out)	v,
		integer, intent(in)	ldv,
		complex(kind=wp), dimension(lds,*), intent(out)	s,
		integer, intent(in)	lds,
		complex(kind=wp), dimension(*), intent(out)	zwork,
		integer, intent(in)	lzwork,
		real(kind=wp), dimension(*), intent(out)	work,
		integer, intent(in)	lwork,
		integer, dimension(*), intent(out)	iwork,
		integer, intent(in)	liwork,
		integer, intent(out)	info
	)