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 rsolv(a,d,b)real(8),dimension(:,:),intent(in)::areal(8),dimension(:),intent(in)::dreal(8),dimension(:),intent(inout)::binteger::i,nn=assert_eq4(size(a,1),size(a,2),size(b),size(d),'rsolv')b(n)=b(n)/d(n)do i=n-1,1,-1b(i)=(b(i)-dot_product(a(i,i+1:n),b(i+1:n)))/d(i)end do end subroutine rsolv