next up previous [pdf]

Next: cgnorm.f90 Up: Appendix B: Fortran codes Previous: Appendix B: Fortran codes

cgstep.f90


\begin{lstlisting}[frame=tblr]{}
integer function cgstep(forget, x, g, rr, gg)
...
... ! update residual
forget = .false.
cgstep = 0
end function
\end{lstlisting}



2009-10-19