fullStop_12 Subroutine

private pure subroutine fullStop_12(b, x0, x1)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: b
real(kind=dp), intent(out), optional :: x0
real(kind=dp), intent(out), optional :: x1

Contents

Source Code

fullStop_12

Source Code

    pure subroutine fullStop_12(b, x0, x1)
        ! is the same for switched stepvector values
        real(dp), intent(in) :: b
        real(dp), intent(out), optional :: x0, x1

        unused_var(b)

        if (present(x0)) x0 = 0.0_dp
        if (present(x1)) x1 = 1.0_dp

    end subroutine fullStop_12