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.
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 fdjac(x,fvec,df)real(8),dimension(:),intent(in)::fvecreal(8),dimension(:),intent(inout)::xreal(8),dimension(:,:),intent(out)::dfinteger::j,nreal(8),parameter::eps=1.0d-4real(8),dimension(size(x))::xsav,xph,hn=assert_eq4(size(x),size(fvec),size(df,1),size(df,2),'fdjac')xsav=xh=eps*abs(xsav)where(h==0.0)h=epsxph=xsav+hh=xph-xsavdo j=1,nx(j)=xph(j)df(:,j)=(funcv(x)-fvec(:))/h(j)x(j)=xsav(j)end do end subroutine fdjac