quadratic Subroutine

public subroutine quadratic(a, b, c, r1, r2)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	a
real(kind=r8),	intent(in)			::	b
real(kind=r8),	intent(in)			::	c
real(kind=r8),	intent(out)			::	r1
real(kind=r8),	intent(out)			::	r2