Skip to content

Commit

Permalink
fix getv complex
Browse files Browse the repository at this point in the history
  • Loading branch information
mattsignorelli committed Apr 6, 2024
1 parent a4c9d80 commit e980385
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/low_level/ctpsa.jl
Original file line number Diff line number Diff line change
Expand Up @@ -1042,7 +1042,7 @@ end


"""
mad_ctpsa_getv!(t::Ptr{CTPSA}, i::Cint, n::Cint, v::Vector{ComplexF64})
mad_ctpsa_getv!(t::Ptr{CTPSA}, i::Cint, n::Cint, v::Union{Ptr{ComplexF64},Vector{ComplexF64}})
Vectorized getter of the coefficients for monomials with indices `i..i+n`. Useful for extracting the 1st order parts of
a TPSA to construct a matrix (`i = 1`, `n = nv+np = nn`).
Expand All @@ -1055,7 +1055,7 @@ a TPSA to construct a matrix (`i = 1`, `n = nv+np = nn`).
### Output
- `v` -- Array of coefficients for monomials `i..i+n`
"""
function mad_ctpsa_getv!(t::Ptr{CTPSA}, i::Cint, n::Cint, v::Vector{ComplexF64})
function mad_ctpsa_getv!(t::Ptr{CTPSA}, i::Cint, n::Cint, v::Union{Ptr{ComplexF64},Vector{ComplexF64}})
@ccall MAD_TPSA.mad_ctpsa_getv(t::Ptr{CTPSA}, i::Cint, n::Cint, v::Ptr{ComplexF64})::Cvoid
end

Expand Down

0 comments on commit e980385

Please sign in to comment.