ind1 Function

private pure function ind1(i, a)

Arguments

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

Return Value integer

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