check_root_inputs Subroutine

private pure subroutine check_root_inputs(nx, kx, iflag)

Check the inputs to db1root, db1min, and db1max.

Arguments

Type IntentOptional Attributes Name
integer(kind=ip), intent(in) :: nx

number of b-spline coefficients
integer(kind=ip), intent(in) :: kx

order of the b-spline
integer(kind=ip), intent(out) :: iflag

status flag

Called by

proc~~check_root_inputs~~CalledByGraph proc~check_root_inputs check_root_inputs proc~db1extremum db1extremum proc~db1extremum->proc~check_root_inputs proc~db1root db1root proc~db1root->proc~check_root_inputs proc~db1max db1max proc~db1max->proc~db1extremum proc~db1min db1min proc~db1min->proc~db1extremum proc~roots_1d bspline_1d%roots_1d proc~roots_1d->proc~db1root proc~inverse_1d bspline_1d%inverse_1d proc~inverse_1d->proc~roots_1d proc~maximum_1d bspline_1d%maximum_1d proc~maximum_1d->proc~db1max proc~minimum_1d bspline_1d%minimum_1d proc~minimum_1d->proc~db1min

Source Code

    pure subroutine check_root_inputs(nx,kx,iflag)

    implicit none

    integer(ip),intent(in)  :: nx     !! number of b-spline coefficients
    integer(ip),intent(in)  :: kx     !! order of the b-spline
    integer(ip),intent(out) :: iflag  !! status flag

    if (kx<2_ip) then
        iflag = 4001_ip
    else if (nx<kx) then
        iflag = 4002_ip
    else
        iflag = 0_ip
    end if

    end subroutine check_root_inputs