dgedmd()

subroutine dgedmd	(	character, intent(in)	jobs,
		character, intent(in)	jobz,
		character, intent(in)	jobr,
		character, intent(in)	jobf,
		integer, intent(in)	whtsvd,
		integer, intent(in)	m,
		integer, intent(in)	n,
		real(kind=wp), dimension(ldx,*), intent(inout)	x,
		integer, intent(in)	ldx,
		real(kind=wp), dimension(ldy,*), intent(inout)	y,
		integer, intent(in)	ldy,
		integer, intent(in)	nrnk,
		real(kind=wp), intent(in)	tol,
		integer, intent(out)	k,
		real(kind=wp), dimension(*), intent(out)	reig,
		real(kind=wp), dimension(*), intent(out)	imeig,
		real(kind=wp), dimension(ldz,*), intent(out)	z,
		integer, intent(in)	ldz,
		real(kind=wp), dimension(*), intent(out)	res,
		real(kind=wp), dimension(ldb,*), intent(out)	b,
		integer, intent(in)	ldb,
		real(kind=wp), dimension(ldw,*), intent(out)	w,
		integer, intent(in)	ldw,
		real(kind=wp), dimension(lds,*), intent(out)	s,
		integer, intent(in)	lds,
		real(kind=wp), dimension(*), intent(out)	work,
		integer, intent(in)	lwork,
		integer, dimension(*), intent(out)	iwork,
		integer, intent(in)	liwork,
		integer, intent(out)	info
	)