ind1 Function

private pure function ind1(i, a)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: i
integer, intent(in) :: a

Return Value integer


Contents

Source Code

ind1

Source Code

    pure integer function ind1(i, a)

        implicit none
        integer, intent(in) :: i, a

        ind1 = (i - 1) * (nbasis - nel) + a

        return
    end function ind1