Attribute VB_Name = "Module1"
Option Explicit
Option Base 0

Public Type nagstrg
    name As String * 250
End Type
    
Public Declare Sub xml_data_size Lib "esys.dll" (ByVal xdr_file As String, _
n As Long, m As Long, max_name As Long, info As Long)
 
Public Declare Sub xml_read Lib "esys.dll" (ByVal xml_file As String, _
ByVal xdr_file As String, ByVal miss_val As Double, ByVal n As Long, _
ByVal m As Long, data As Double, ByVal name_ptr As Long, n_cat As Long, _
cat_val As Long, ByVal max_cat As Long, ByVal mset As Long, nmiss As Long, info As Long)
 
Public Declare Sub xml_update Lib "esys.dll" (ByVal xml_file As String, _
ByVal xdr_file As String, ByVal xsl_file As String, ByVal miss_val As Double, _
ByVal n As Long, ByVal m As Long, data As Double, ByVal u_status As Long, _
nrepl As Long, irow As Long, icol As Long, rval As Double, info As Long)
 
Public Declare Sub summ_stats Lib "esys.dll" (ByVal n As Long, ByVal m As Long, _
ByVal miss_val As Double, data As Double, n_cat As Long, cat_val As Long, _
ByVal max_cat As Long, mean As Double, sd As Double, vmin As Double, _
vmax As Double, n_valid As Long, mid_pts As Double, counts As Long, info As Long)
 
Public Declare Sub bar_chart Lib "esys.dll" (ByVal svg_file As String, _
ByVal m As Long, ByVal name_ptr As Long, n_cat As Long, cat_val As Long, _
counts As Long, ByVal max_cat As Long, mid_pts As Double, height As Long, _
info As Long)
 
Public Declare Sub list_names Lib "esys.dll" (ptr As Long, _
ByVal n As Long, ByVal i As Long, ByVal i_name As String)

Public Declare Sub alloc_names Lib "esys.dll" (ptr As Long, _
ByVal n As Long, ByVal i As Long, ByVal maxname As Long)

Public Declare Sub get_names Lib "esys.dll" (ptr As Long, _
ByVal i As Long, i_name As nagstrg)

Public Declare Sub free_list Lib "esys.dll" (ptr As Long, _
ByVal n As Long)

Public cat_val() As Long, n_cat() As Long
Public var_name() As String
Public n As Long, m As Long, maxname As Long, maxcat As Long, name_ptr As Long
Public nmiss As Long, mset As Long, var_num As Long, plots_done As Long
Public plot_height As Long
Public miss_val As Double
Public data() As Double
Public mean() As Double, sd() As Double, vmin() As Double, vmax() As Double
Public n_valid() As Long, counts() As Long
Public data_file As String, xml_file As String, xdr_file As String
Public xsl_file As String
Public work_dir As String, data_name As String, svg_file As String
