P
Patrick Sullivan
dim s_err as stringbuilder
dim xx(6) as double
dim ret_flag as integer
' This is a function to call an unmanaged C-style library function.
' The lib function fills an array of 6 doubles or error string.
Declare Auto Function calc Lib "calc32.dll" Alias "calc32.dll"( ByRef xx()
As Double, ByVal serr As System.Text.StringBuilder) As Integer
' Using the unmanaged function:
ret_flag = swe_calc(tjd_et, planet, iflag, xx(6), serr)
If I take out the 6 in the above line, I get error "number of indices is
less than the number of dimensions in the indexed array."
If I put it in, or put a zero in, like xx(0) or xx(6), I get the error
"value of type double cannot be converted to '1 dimensional array of
double'"
What is wrong here? TIA
dim xx(6) as double
dim ret_flag as integer
' This is a function to call an unmanaged C-style library function.
' The lib function fills an array of 6 doubles or error string.
Declare Auto Function calc Lib "calc32.dll" Alias "calc32.dll"( ByRef xx()
As Double, ByVal serr As System.Text.StringBuilder) As Integer
' Using the unmanaged function:
ret_flag = swe_calc(tjd_et, planet, iflag, xx(6), serr)
If I take out the 6 in the above line, I get error "number of indices is
less than the number of dimensions in the indexed array."
If I put it in, or put a zero in, like xx(0) or xx(6), I get the error
"value of type double cannot be converted to '1 dimensional array of
double'"
What is wrong here? TIA