to_original_index Module Subroutine

module subroutine to_original_index(self, index_reordered, index_original)

Arguments

Type IntentOptional Attributes Name
class(type_reordering), intent(in) :: self
integer(kind=int32), intent(in) :: index_reordered
integer(kind=int32), intent(inout) :: index_original

Called by

proc~~to_original_index~~CalledByGraph proc~to_original_index to_original_index interface~to_original_index type_reordering%to_original_index interface~to_original_index->proc~to_original_index

Source Code

    module subroutine to_original_index(self, index_reordered, index_original)
        implicit none
        class(type_reordering), intent(in) :: self
        integer(int32), intent(in) :: index_reordered
        integer(int32), intent(inout) :: index_original

        if (self%algorithm_name == "none") then
            index_original = index_reordered
            return
        end if
        if (.not. self%is_reordered_perm) error stop "'perm' not ready. Call 'reorder' first."

        index_original = self%perm(index_reordered)

    end subroutine to_original_index