fullStop_00 Subroutine

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

Source Code

    pure subroutine fullStop_00(b, x0, x1)
        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 = 0.0_dp

    end subroutine fullStop_00