| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(ExcitGenSessionType), | intent(in) | :: | session |
function GetHolePosIdentifier(session) result(posId) implicit none type(excitGenSessionType), intent(in) :: session integer :: posId posId = GetPosIdentifier(session%holeIndices, session%rank, nBasis - nEl) end function GetHolePosIdentifier