Generalized-norm conjugate direction solver
Next:
Bibliography
Up:
Appendix B: Fortran codes
Previous:
cgstep.f90
cgnorm.f90
2009-10-19
![[pdf]](icons/pdf.png){kind=icon}
![\begin{lstlisting}[frame=tblr]{}
subroutine cgnorm_init(rthr,norm,psiter)
! In...
...(c0,c1,c2)
deallocate (gdg,sds,gds)
cgnorm = 0
end function
\end{lstlisting}](img57.png){kind=small}