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 Dinv_triang(A,uplo,diag)real(8),dimension(:,:)::Acharacter(len=1),optional::uplo,diagcharacter(len=1)::uplo_character(len=1)::diag_integer::n,lda,infouplo_="U";if(present(uplo))uplo_=uplodiag_="N";if(present(diag))diag_=diag!not a unit triangular matrixlda=max(1,size(A,1))n=size(A,2)call dtrtri(uplo_,diag_,n,A,lda,info)if(info/=0)stop"Error MATRIX/D_mat_invertTRIANG: dtrtri"end subroutine Dinv_triang