inner_product_complex Function

public function inner_product_complex(u, v) result(inner_product)

Arguments

Type IntentOptional Attributes Name
complex(kind=dp), intent(in) :: u(:)
complex(kind=dp), intent(in) :: v(:)

Return Value complex(kind=dp)


Source Code

    function inner_product_complex(u, v) result(inner_product)
        complex(dp), intent(in) :: u(:), v(:)
        complex(dp) :: inner_product, zdotc
        character(*), parameter :: this_routine = "inner_product_complex"
        ASSERT(size(u) == size(v))
        inner_product = dot_product(u, v)
    end function inner_product_complex