PROGRAM Tester
    USE Solver
    IMPLICIT NONE

    CALL Newton(1.23)
    CALL Newton(456.7)
    CALL Newton(8.9e5)
END PROGRAM Tester