Example: Re-Writing the Quadratic Solver
This is a re-written version of the Quadratic Equation Solver seen earlier.
It uses a MODULE:
- number and type of parameters in SUBROUTINE CALLs
can be checked by compiler;
- easier to re-use code without error-generating edits.
As before:
- finds the roots of equations of the form ax^2 + bx + c = 0;
- the coefficients a, b and c are assumed to be
real;
- solutions can be real or complex.
Source code:
About this document:
Produced from the SGML: /home/isd/public_html/_course_fortran_90/_reml_grp/index.reml
On: 10/2/2003 at 10:33:52
Options: reml2 -i noindex -l long -o html -p multiple