Attribute VB_Name = "modParameter"
'绘等值线图
Option Explicit
Public intRow As Integer '行数
Public intRowAll As Integer '总行数
Public intCol As Integer '列数
Public strFileName As String '数据文件
Public strLabelName As String '图形标题
Public intM As Integer, intN As Integer
Public I As Integer, J As Integer, K As Integer
Public I1 As Integer, I2 As Integer, I3 As Integer
Public J1 As Integer, J2 As Integer, J3 As Integer
Public A1X As Double, A2X As Double, A3X As Double
Public A1Y As Double, A2Y As Double, A3Y As Double
Public W As Double
Public H() As Double, S() As Double, V() As Double, V1() As Double
Public G(1 To 300, 1 To 3) As Double
Public M As Integer, N As Integer '数据点的行数和列数
'数据点在X和Y方向上的间距,读者可以通过菜单修改
Public DX As Double, DY As Double
'PA是初始等值线，缺省以最小值作为初始等值线值。读者可以给定初始值
'PB是终止等值线，缺省以最大值作为终止等值线值。读者可以给定终止值
'PC是等值线间距，缺省按10条等值线计算。读者可以给定间距
Public PA As Double, PB As Double, PC As Double
