Roots of a quadratic function: Difference between revisions

← Older editNewer edit →
Content deleted Content added
PatGarrett (talk | contribs)
1,392 edits
PatGarrett (talk | contribs)
1,392 edits
Line 618: Line 618:
Root1 = 0.999999999999000E+06 Root2 = 0.100000000000100E-05
Root1 = 0.999999999999000E+06 Root2 = 0.100000000000100E-05


=={{{header|Fortran I}}}==
===Fortran I===
Source code written in FORTRAN I (october 1956) for the IBM 704.
Source code written in FORTRAN I (october 1956) for the IBM 704.
<lang fortran>
<lang fortran>
Retrieved from "https://rosettacode.org/wiki/Roots_of_a_quadratic_function"