set_num_sparsity_points Subroutine

private subroutine set_num_sparsity_points(me, num_sparsity_points)

Set the number of points used to estimate the sparsity pattern when sparsity_mode=4. Must be in the range [1, max_num_sparsity_points].

Type Bound

numdiff_type

Arguments

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

number of points

Calls

proc~~set_num_sparsity_points~~CallsGraph proc~set_num_sparsity_points numdiff_type%set_num_sparsity_points proc~integer_to_string integer_to_string proc~set_num_sparsity_points->proc~integer_to_string proc~raise_exception numdiff_type%raise_exception proc~set_num_sparsity_points->proc~raise_exception

Called by

proc~~set_num_sparsity_points~~CalledByGraph proc~set_num_sparsity_points numdiff_type%set_num_sparsity_points proc~initialize_numdiff numdiff_type%initialize_numdiff proc~initialize_numdiff->proc~set_num_sparsity_points proc~initialize_numdiff_for_diff numdiff_type%initialize_numdiff_for_diff proc~initialize_numdiff_for_diff->proc~set_num_sparsity_points

Source Code

    subroutine set_num_sparsity_points(me,num_sparsity_points)

    implicit none

    class(numdiff_type),intent(inout) :: me
    integer,intent(in) :: num_sparsity_points !! number of points

    if (me%exception_raised) return ! check for exceptions

    if (num_sparsity_points<1 .or. num_sparsity_points>max_num_sparsity_points) then
        call me%raise_exception(32,'set_num_sparsity_points',&
                                   'num_sparsity_points must be between 1 and '//&
                                   integer_to_string(max_num_sparsity_points)//'.')
    else
        me%num_sparsity_points = num_sparsity_points
    end if

    end subroutine set_num_sparsity_points