C Created:  Joe Zachary, October 19, 1992
C Modified:


C The arguments "A", "B", and "C" are the coefficients of a quadratic
C equation.  We require that A be nonzero and that the discriminant formed
C from A, B, and C be nonnegative.  The two solutions to the quadratic
C equations are assigned to RES1 and RES2, and A, B, C are not changed.

      SUBROUTINE QUAD (A, B, C, RES1, RES2)
      IMPLICIT NONE
      REAL A, B, C, RES1, RES2

C Your code goes here

      END


C This test out the QUAD subroutine

      PROGRAM TEST
      IMPLICIT NONE
      REAL A, B, C, ANS1, ANS2

      PRINT *, 'Please enter the coefficients of a quadratic'
      PRINT *, 'equation that has real roots'
      READ *, A, B, C
      CALL QUAD(A, B, C, ANS1, ANS2)
      PRINT *, 'One root is ', ANS1
      PRINT *, 'The other root is ', ANS2

      STOP
      END