print_sparsity_pattern Subroutine

private subroutine print_sparsity_pattern(me, iunit)

Print the sparsity pattern in vector form (irow, icol).

Type Bound

numdiff_type

Arguments

Type IntentOptional Attributes Name
class(numdiff_type), intent(inout) :: me
integer, intent(in) :: iunit

file unit to write to. (assumed to be already opened)

Called by

proc~~print_sparsity_pattern~~CalledByGraph proc~print_sparsity_pattern numerical_differentiation_module::numdiff_type%print_sparsity_pattern program~test1 test1 program~test1->proc~print_sparsity_pattern

Source Code

    subroutine print_sparsity_pattern(me,iunit)

    implicit none

    class(numdiff_type),intent(inout) :: me
    integer,intent(in) :: iunit !! file unit to write to.
                                !! (assumed to be already opened)

    call me%sparsity%print(me%n,me%m,iunit,dense=.false.)

    end subroutine print_sparsity_pattern