Generalized-norm conjugate direction solver
Next:
cgnorm.f90
Up:
Appendix B: Fortran codes
Previous:
Appendix B: Fortran codes
cgstep.f90
2009-10-19
![[pdf]](icons/pdf.png){kind=icon}
![\begin{lstlisting}[frame=tblr]{}
integer function cgstep(forget, x, g, rr, gg)
...
... ! update residual
forget = .false.
cgstep = 0
end function
\end{lstlisting}](img56.png)