Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Source Code
SUBROUTINE linmin(p,xi,fret,ftol)real(8),intent(out)::fretreal(8),dimension(:),target,intent(inout)::p,xireal(8),optional::ftolreal(8)::tolreal(8)::ax,bx,fa,fb,fx,xmin,xxtol=1.d-6;if(present(ftol))tol=ftolncom=size(p);if(ncom/=size(xi))stop"Error in LinMin"pcom=>pxicom=>xiax=0.d0xx=1.d0call mnbrak(ax,xx,bx,fa,fx,fb,f1dim)fret=brent_(ax,xx,bx,f1dim,tol,xmin)xi=xmin*xip=p+xireturn end subroutine linmin