fullStop_11 Subroutine

private pure subroutine fullStop_11(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_11

Source Code

    pure subroutine fullStop_11(b, x0, x1)
        real(dp), intent(in) :: b
        real(dp), intent(out), optional :: x0, x1

        if (present(x0)) x0 = OverR2
        if (present(x1)) x1 = minFunA_m1_1_overR2(b)

    end subroutine fullStop_11