ov_space_ind Function

public function ov_space_ind(a, i)

Arguments

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

Return Value integer

Source Code

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

        ov_space_ind = (i - 1) * (nBasis - NEl) + a - NEl

    end function ov_space_ind