print_indices Subroutine

private subroutine print_indices(excitInfo)

Arguments

Type IntentOptional Attributes Name
type(ExcitationInformation_t), intent(in) :: excitInfo

Contents

Source Code

print_indices

Source Code

    subroutine print_indices(excitInfo)
        type(ExcitationInformation_t), intent(in) :: excitInfo

        print *, "ijkl:", excitInfo%i, excitInfo%j, excitInfo%k, excitInfo%l

    end subroutine print_indices