Option Explicit ' Force declaration of all variables
Option Base 1 ' Start all arrays at index 1
Option Compare Text ' Use text sort order to compare strings

' Solutionize
Declare Sub solutionize Lib "xppsv235.dll" ( _
	ByVal pathB As String, ByRef intpack As Long, ByRef realpack As Double, _
	ByRef time_p As Double, temp_p As Double, _
	ByRef wtpr As Double, ByRef wtmatr As Double, ByVal Celtrname As String, _
	ByVal Cpopname As String, ByRef popint As Long, ByRef popnum As Double, _
	ByRef neltt As Long, ByVal Ctabelt As String, ByRef eltpropt As Double, _
	ByRef npht As Long, ByVal Ctabph As String, ByRef fampht As Long, _
	ByVal Cfamname As String, ByRef popvp_p As Double, ByRef popdv_p As Double, ByRef wtpsol_p As Double, ByRef eciacs_p As Double, _
	ByRef rkerr_p As Double, _
	ByRef popsolvpf As Double, ByRef popsolvae As Double, ByRef popsolverr As Double, ByRef popsolvexp As Double, _
	ByRef Serrflg As Long, ByVal Cerrmsg As String)


Call solutionize(pathB, intpack(1), realpack(1), _
          time_p(1), temp_p(1), _
          wtpr(1), wtmatr(1), Celtrname, _
          Cpopname, popint(1, 1), popnum(1, 1), _
          neltt, Ctabelt, eltpropt(1, 1), _
          npht, Ctabph, fampht(1, 1), _
          Cfamname, popvp_p(1, 1, 1), popdv_p(1, 1), wtpsol_p(1, 1), eciacs_p(1), _
          rkerr_p(1), _
          popsolvpf(1, 1), popsolvae(1, 1), popsolverr(1, 1), popsolvexp(1, 1, 1), _
          Serrflg, Cerrmsg)