getMixedFullStop Subroutine

public elemental subroutine getMixedFullStop(step1, step2, deltaB, bValue, x0_element, x1_element)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: step1
integer, intent(in) :: step2
integer, intent(in) :: deltaB
real(kind=dp), intent(in) :: bValue
real(kind=dp), intent(out), optional :: x0_element
real(kind=dp), intent(out), optional :: x1_element

Contents

Source Code


Source Code

    elemental subroutine getMixedFullStop(step1, step2, deltaB, bValue, x0_element, &
                                x1_element)
        ! function to access the special mixed generator full-stop elements
        ! which due to storage reasons are stored in a seperate func. pointer
        ! array
        integer, intent(in) :: step1, step2, deltaB
        real(dp), intent(in) :: bValue
        real(dp), intent(out), optional :: x0_element, x1_element
        integer :: ind

        ! get index:
        ind = indArrEnd(step1, step2, deltaB / 2)

        ! with the optional output arguments can also just calc. x0 or x1
        call mixedGenFullStopMatEle(ind)%ptr(bValue, x0_element, x1_element)

    end subroutine getMixedFullStop