dopla()

doublereal F77NAME() dopla	(	char *	subname,
		integer *	m,
		integer *	n,
		integer *	kl,
		integer *	ku,
		integer *	nb
	)