Quadratic Root Equation Solver in Fortran