Option Explicit On ' Force declaration of all variables
Option Compare Text ' Use text sort order to compare strings
Imports System.Runtime.InteropServices
Public Class Form1

    <VBFixedString(256)> Dim pathB As String
    Dim intpack(10 - 1) As Integer
    Dim realpack(10 - 1) As Double
    Dim time_p(50 - 1) As Double
    Dim temp_p(50 - 1) As Double
    Dim wtpmseg(5 - 1, 14 - 1) As Double
    Dim wtpr(14 - 1) As Double
    <VBFixedString(28)> Dim Celtrname As String
    <VBFixedString(192)> Dim Cpopname As String
    Dim popint(8 - 1, 3 + 3 - 1) As Integer
    Dim popnum(8 - 1, 15 + 3 * 14 - 1) As Double
    Dim neltt As Integer
    <VBFixedString(100)> Dim Ctabelt As String
    Dim eltpropt(50, 8) As Double
    Dim npht As Integer
    <VBFixedString(9600)> Dim Ctabph As String
    Dim fampht(200 - 1, 9 + 1 - 1) As Integer
    Dim wtmatr(14 - 1) As Double
    <VBFixedString(8)> Dim Cfamname As String
    Dim popvp_p(50 - 1, 8 - 1, 3 - 1) As Double
    Dim popdv_p(50 - 1, 8 - 1) As Double
    Dim wtpsol_p(50 - 1, 14 - 1) As Double
    Dim eciacs_p(50 - 1) As Double
    Dim rkerr_p(50 - 1) As Double
    Dim popsolvpf(8 - 1, 3 - 1) As Double
    Dim popsolvae(8 - 1, 3 - 1) As Double
    Dim popsolverr(8 - 1, 3 - 1) As Double
    Dim popsolvexp(8 - 1, 3 - 1, 14 - 1) As Double
    Dim Serrflg As Integer
    <VBFixedString(480)> Dim Cerrmsg As String

    Public Declare Sub solutionize Lib "XPPSV235.dll" Alias "_solutionize@116" (
         ByVal pathB As String, ByRef intpack() As Integer,
         ByRef realpack() As Double, ByRef time_p() As Double,
         ByRef temp_p() As Double, ByRef wtpr() As Double,
         ByRef wtmatr() As Double, ByVal Celtrname As String,
         ByVal Cpopname As String, ByRef popint(,) As Integer,
         ByRef popnum(,) As Double, ByRef neltt As Integer,
         ByVal Ctabelt As String, ByRef eltpropt(,) As Double,
         ByRef npht As Integer, ByVal Ctabph As String,
         ByRef fampht(,) As Integer, 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 Integer,
         ByVal Cerrmsg As String)


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim input_line As String = ""

        FileOpen(1, "mehdi.txt", OpenMode.Input)


        pathB = LineInput(1)
        input_line = LineInput(1)

        For i = 1 To 10
            intpack(i - 1) = Val(LineInput(1))
            'MsgBox(intpack(i - 1))
        Next i
        input_line = LineInput(1)
        For i = 1 To 10
            realpack(i - 1) = Val(LineInput(1))
        Next i
        input_line = LineInput(1)
        For i = 1 To 50
            time_p(i - 1) = Val(LineInput(1))
        Next i
        input_line = LineInput(1)
        For i = 1 To 50
            temp_p(i - 1) = Val(LineInput(1))
        Next i
        input_line = LineInput(1)
        For i = 1 To 14
            wtpr(i - 1) = Val(LineInput(1))
        Next i
        input_line = LineInput(1)
        For i = 1 To 14
            wtmatr(i - 1) = Val(LineInput(1))
        Next i
        input_line = LineInput(1)
        Celtrname = LineInput(1)
        input_line = LineInput(1)
        Cpopname = LineInput(1)
        input_line = LineInput(1)
        For i = 1 To 8
            For j = 1 To 3 + 3
                popint(i - 1, j - 1) = Val(LineInput(1))
            Next j
        Next i
        input_line = LineInput(1)

        For i = 1 To 8
            For j = 1 To 15 + 3 * 14
                popnum(i - 1, j - 1) = Val(LineInput(1))
            Next j
        Next i
        input_line = LineInput(1)
        neltt = Val(LineInput(1))
        input_line = LineInput(1)
        Ctabelt = LineInput(1)
        input_line = LineInput(1)
        For i = 1 To 50
            For j = 1 To 8
                eltpropt(i - 1, j - 1) = Val(LineInput(1))
            Next j
        Next i
        input_line = LineInput(1)
        npht = Val(LineInput(1))
        input_line = LineInput(1)
        Ctabph = LineInput(1)
        input_line = LineInput(1)
        For i = 1 To 200
            For j = 1 To 9 + 1
                fampht(i - 1, j - 1) = Val(LineInput(1))
            Next j
        Next i
        input_line = LineInput(1)
        Cfamname = LineInput(1)
        'Cfamname = ""
        MsgBox(Cfamname)
        MsgBox("done")

        For i = 1 To 50
            For j = 1 To 8
                For k = 1 To 3
                    popvp_p(i - 1, j - 1, k - 1) = 0
                Next k
            Next j
        Next i
        For i = 1 To 50
            For j = 1 To 8
                popdv_p(i - 1, j - 1) = 0
            Next j
        Next i
        For i = 1 To 50
            For j = 1 To 14
                wtpsol_p(i - 1, j - 1) = 0
            Next j
        Next i
        For i = 1 To 50
            eciacs_p(i - 1) = 0
        Next i
        For i = 1 To 50
            rkerr_p(i - 1) = 0
        Next i
        For i = 1 To 8
            For j = 1 To 3
                popsolvpf(i - 1, j - 1) = 0
            Next j
        Next i
        For i = 1 To 8
            For j = 1 To 3
                popsolvae(i - 1, j - 1) = 0
            Next j
        Next i
        For i = 1 To 8
            For j = 1 To 3
                popsolverr(i - 1, j - 1) = 0
            Next j
        Next i
        For i = 1 To 8
            For j = 1 To 3
                For k = 1 To 14
                    popsolvexp(i - 1, j - 1, k - 1) = 0
                Next k
            Next j
        Next i

        Serrflg = 0
        Cerrmsg = ""

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

        MsgBox("boooom")

    End Sub
End Class