sladiv1()

subroutine sladiv1	(	real	a,
		real	b,
		real	c,
		real	d,
		real	p,
		real	q
	)