reorder_orb_label Subroutine

public subroutine reorder_orb_label(label)

Arguments

Type IntentOptional Attributes Name
integer, intent(inout) :: label

Contents

Source Code

reorder_orb_label

Source Code

    subroutine reorder_orb_label(label)
        integer, intent(inout) :: label

        if (allocated(orbital_permutation) .and. label > 0) then
            label = orbital_permutation(label)
        end if
    end subroutine reorder_orb_label