order_quad_indices_3_1 Subroutine

private subroutine order_quad_indices_3_1(ijk_abc, l_d, phase, ijab_klcd)

Arguments

Type IntentOptional Attributes Name
integer, intent(inout) :: ijk_abc(2,3)
integer, intent(inout) :: l_d(2,1)
real(kind=dp), intent(out) :: phase
integer, intent(out) :: ijab_klcd(8)

Source Code

    subroutine order_quad_indices_3_1(ijk_abc, l_d, phase, ijab_klcd)
        integer, intent(inout) :: ijk_abc(2, 3), l_d(2, 1)
        real(dp), intent(out) :: phase
        integer, intent(out) :: ijab_klcd(8)
        character(*), parameter :: this_routine = "order_quad_indices_3_1"

        call stop_all(this_routine, "TODO")
        unused_var(ijk_abc)
        unused_var(l_d)
        phase = 0.0_dp
        ijab_klcd = 0

    end subroutine order_quad_indices_3_1