fullStop_22 Subroutine

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


Source Code

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

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

    end subroutine fullStop_22