ov_space_ind Function

public function ov_space_ind(a, i)

Arguments

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

Return Value integer


Contents

Source Code

ov_space_ind

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