CalcHarPIInts Subroutine

public subroutine CalcHarPIInts(HarInt, nStates)

Uses

Arguments

Type IntentOptional Attributes Name
complex(kind=dp) :: HarInt(nStates,nStates)
integer :: nStates

Source Code

    subroutine CalcHarPIInts(HarInt, nStates)
        use constants, only: dp
        implicit none
        integer nStates
        complex(dp) HarInt(nStates, nStates)

! Eliminate Warnings
        HarInt = HarInt; nStates = nStates
    end subroutine CalcHarPIInts