Community
cancel
Showing results for 
Search instead for 
Did you mean: 
Highlighted
Beginner
10 Views

How to call in multiple sub routines.

Hello guys,
I'm developing a demographic plugin for MapWindow GIS in vb.net and happen to have a fortran program (see attatched file)
which I've converted to a dll with intel visual fortran and wish to call the dll into my application.
I went through the mixed examples that come with intel visual fortran but none of the examples treats 
an elaborous application like the program in the attatched file containing so many big sub routines.
I want to use stdcall calling convention bot what you see below is how far I've gone. Please, can anyone help me out on how
to go about calling the dll and making use of its subroutines within my vb.net application?

 


Option Explicit On
Imports System.Math
Imports System.Text
Imports System.Runtime.InteropServices
Imports Microsoft.VisualBasic
Module Module1
    <DllImport("C:\Program Files (x86)\MapWindow\Plugins\WRM\wrmMODEL.dll", CallingConvention:=CallingConvention.StdCall)> _
    Sub INITIA(ByRef NSOIL As Integer, ByRef BDENS As Integer, ByRef ORGMA As Integer, _
      ByRef CLAY As Integer, ByRef SAND As Integer, ByRef SILT As Integer, ByRef WTCF As Integer, _
      ByRef CEC As Integer, ByRef DWBA As Integer, ByRef PSIZE As Integer, ByRef FC As Integer, _
      ByRef WP As Integer, ByRef SAT As Integer, ByRef STAB As Integer, ByRef WDCLAY As Integer, _
      ByRef MG As Integer, ByRef FE As Integer, ByRef AL As Integer, ByRef COND As Integer, ByRef CA As Integer, _
      ByRef NA As Integer, ByRef CECNH4 As Integer, ByRef VFSAND As Integer, ByRef SPSURF As Integer, _
      ByRef CACO3 As Integer, ByRef TOTPOR As Integer, ByRef VOLCF As Integer, ByRef CFCORR As Integer, _
      ByRef EACORR As Integer, ByRef EFFPOR As Integer, ByRef WFCP As Integer, ByRef RSWR As Integer, _
      ByRef KONDS As Integer, ByRef PORFAC As Integer, ByRef WISCHM As Integer, ByRef NVEG As Integer, _
      ByRef CISCAP As Integer, ByRef KC As Integer, ByRef LAI As Integer, ByRef NGRID As Integer, _
      ByRef NSEG As Integer, ByRef KP As Integer, ByRef BETA As Integer, ByRef DELTT As Integer, ByRef RNWL As Integer, _
      ByRef RMWL As Integer, ByRef TSLOPE As Integer, ByRef WSLOPE As Integer, ByRef BFLOW As Integer, ByRef POND As Integer, _
      ByRef MONITO As Integer, ByRef NOUT As Integer, ByRef POLY As Integer, ByRef NEVENT As Integer, ByRef PRIN As Integer, _
      ByRef ENDS As Integer, ByRef KRET As Integer, ByRef GIM As Integer, ByRef GSC As Integer, ByRef SCULV As Integer, _
      ByRef XAREA As Integer, ByRef LCULV As Integer, ByRef EII As Integer, ByRef EOI As Integer, ByRef DCULV As Integer, _
      ByRef KLOSSE As Integer, ByRef KLOSSC As Integer, ByRef KORIF As Integer, ByRef KSPILL As Integer, ByRef LSPILL As Integer, ByRef KB As Integer, _
      ByRef DELTX1 As Integer, ByRef NCULV As Integer, ByRef TWIDTH As Integer, ByRef WWIDTH As Integer, ByRef BACAN As Integer, ByRef CAN As Integer, ByRef OPEN As Integer, _
      ByRef BAOPEN As Integer, ByRef COVER As Integer, ByRef GI As Integer, ByRef PFC As Integer, ByRef SCCOR As Integer, ByRef ASW As Integer, ByRef DELTX2 As Integer, _
      ByRef MANN1 As Integer, ByRef MANN2 As Integer, ByRef MANN3 As Integer, ByRef FSLOPE As Integer, ByRef CWIDTH As Integer, ByRef CSLOPE As Integer, ByRef CANHT As Integer, _
      ByRef PRESD As Integer, ByRef KTC As Integer, ByRef DW As Integer, ByRef DSUB As Integer, ByRef DSURF As Integer, ByRef STRUC1 As Integer, ByRef STRUC2 As Integer, _
      ByRef STRUC3 As Integer, ByRef DUAL As Integer, ByRef NELEMV As Integer, ByRef NELEMC As Integer, ByRef NELEMT As Integer, ByRef NELEMW As Integer, ByRef SOIL As Integer, _
      ByRef VEG As Integer, ByRef GIM1 As Integer, ByRef GSC1 As Integer, ByRef FGCORR As Integer, ByRef KOND As Integer, ByRef CANFAC As Integer, ByRef KONDC As Integer, _
      ByRef KONDO As Integer, ByRef KONDE As Integer, ByRef KRILL As Integer, ByRef TAWC As Integer, ByRef KRILLY As Integer, ByRef FSANG As Integer, ByRef FSFAC As Integer, _
      ByRef PCAN As Integer, ByRef CANEF As Integer, ByRef GRCE As Integer, ByRef KSTO As Integer, ByRef FRI As Integer, ByRef RETAIN As Integer, ByRef MOUT As Integer, _
      ByRef RI As Integer, ByRef ETK As Integer, ByRef CIS As Integer, ByRef CFILT As Integer, ByRef FILT As Integer, ByRef FLOWV As Integer, ByRef FLOWC As Integer, _
      ByRef FLOWT As Integer, ByRef FLOWW As Integer, ByRef QVLAT As Integer, ByRef QCLAT As Integer, ByRef QTLAT As Integer, ByRef QWLAT As Integer, ByRef RFLOW As Integer, _
      ByRef QSUB As Integer, ByRef RSTORE As Integer, ByRef RCOMP As Integer, ByRef QVUP As Integer, ByRef QCUP As Integer, ByRef QTUP As Integer, ByRef QWUP As Integer, _
      ByRef QGUP As Integer, ByRef SEDLDV As Integer, ByRef SEDLDC As Integer, ByRef SEDLDT As Integer, ByRef SEDLDW As Integer, ByRef GVUP As Integer, ByRef GCUP As Integer, _
      ByRef GTUP As Integer, ByRef GWUP As Integer, ByRef SUBS As Integer, ByRef SURFS As Integer, ByRef STIME As Integer, ByRef NEXTE As Integer, ByRef TEST As Integer, _
      ByRef STIMES As Integer, ByRef SAR As Integer)

    End Sub
    <DllImport("C:\Program Files (x86)\MapWindow\Plugins\WRM\wrmMODEL.dll", CallingConvention:=CallingConvention.StdCall)> _
    Public Sub TIMER(ByRef NEXTE As Integer, ByRef STIMES As Integer, ByRef DELTT As Integer, ByRef NSIM As Integer, ByRef ETT As Integer, ByRef EVENT1 As Integer)

    End Sub
    <DllImport("C:\Program Files (x86)\MapWindow\Plugins\WRM\wrmMODEL.dll", CallingConvention:=CallingConvention.StdCall)> _
    Sub RAINFL(ByRef NSIM As Integer, ByRef STIME As Integer, ByRef DELTT As Integer, ByRef NGRID As Integer, ByRef VEG As Integer, ByRef SOIL As Integer, ByRef CIS As Integer, _
    ByRef CISCAP As Integer, ByRef CFILT As Integer, ByRef FILT As Integer, ByRef KONDE As Integer, ByRef EFFPOR As Integer, ByRef ASW As Integer, ByRef WFCP As Integer, _
    ByRef DUAL As Integer, ByRef QVUP As Integer, ByRef DELTX1 As Integer, ByRef QGUP As Integer, ByRef DSUB As Integer, ByRef SAT As Integer, ByRef WP As Integer, _
    ByRef SUBS As Integer, ByRef RAIN As Integer, ByRef RETAIN As Integer, ByRef FLOWV As Integer, ByRef QVLAT As Integer, ByRef MANN1 As Integer, ByRef FSLOPE As Integer, _
    ByRef BETA As Integer, ByRef FLOWC As Integer, ByRef QCLAT As Integer, ByRef FLOWW As Integer, ByRef DELTX2 As Integer, ByRef MANN2 As Integer, ByRef CSLOPE As Integer, _
    ByRef QCUP As Integer, ByRef CWIDTH As Integer, ByRef DWBA As Integer, ByRef DW As Integer, ByRef KTC As Integer, ByRef KRILL As Integer, ByRef TAWC As Integer, ByRef GVUP As Integer, _
    ByRef KRILLY As Integer, ByRef FSFAC As Integer, ByRef CANEF As Integer, ByRef GRCE As Integer, ByRef SEDLDV As Integer, ByRef GCUP As Integer, ByRef PSIZE As Integer, _
    ByRef SEDLDC As Integer, ByRef DSURF As Integer, ByRef KSTO As Integer, ByRef QSUB As Integer, ByRef STRUC1 As Integer, ByRef STRUC2 As Integer, ByRef STRUC3 As Integer, _
    ByRef RFLOW As Integer, ByRef RCOMP As Integer, ByRef RSTORE As Integer, ByRef POLY As Integer, ByRef RNWL As Integer, ByRef RMWL As Integer, ByRef KSPILL As Integer, _
     ByRef LSPILL As Integer, ByRef DCULV As Integer, ByRef EII As Integer, ByRef EOI As Integer, ByRef XAREA As Integer, ByRef KLOSSE As Integer, ByRef KLOSSC As Integer, _
     ByRef LCULV As Integer, ByRef SCULV As Integer, ByRef KORIF As Integer, ByRef NCULV As Integer, ByRef FLOWT As Integer, ByRef QTLAT As Integer, ByRef MANN3 As Integer, _
     ByRef TSLOPE As Integer, ByRef QTUP As Integer, ByRef TWIDTH As Integer, ByRef GTUP As Integer, ByRef RI As Integer, ByRef QWLAT As Integer, ByRef WSLOPE As Integer, _
     ByRef QWUP As Integer, ByRef WWIDTH As Integer, ByRef GWUP As Integer, ByRef MOUT As Integer, ByRef MONITO As Integer, ByRef NELEMV As Integer, ByRef NELEMC As Integer, _
     ByRef NELEMT As Integer, ByRef NELEMW As Integer, ByRef SEDLDT As Integer, ByRef SEDLDW As Integer, ByRef SURFS As Integer, ByRef NAME As Integer, ByRef POND As Integer, _
     ByRef TEST As Integer, ByRef BFLOW As Integer, ByRef NOUT As Integer, ByRef FC As Integer, ByRef NSEG As Integer, ByRef FLOW As Integer)

    End Sub
    <DllImport("C:\Program Files (x86)\MapWindow\Plugins\WRM\wrmMODEL.dll", CallingConvention:=CallingConvention.StdCall)> _
    Sub PONDED(ByRef CFILT1 As Integer, ByRef FILT1 As Integer, ByRef DELTT1 As Integer, ByRef KONDE1 As Integer, ByRef WFCP1 As Integer, ByRef EFFPO1 As Integer, _
                      ByRef ASW1 As Integer)

    End Sub
    <DllImport("C:\Program Files (x86)\MapWindow\Plugins\WRM\wrmMODEL.dll", CallingConvention:=CallingConvention.StdCall)> _
    Sub EVAPT(ByRef STIME As Integer, ByRef DELTT As Integer, ByRef ETK As Integer, ByRef NGRID As Integer, ByRef VEG As Integer, ByRef SOIL As Integer, ByRef FILT As Integer, _
    ByRef CFILT As Integer, ByRef KONDE As Integer, ByRef WFCP As Integer, ByRef EFFPOR As Integer, ByRef ASW As Integer, ByRef DUAL As Integer, ByRef DSUB As Integer, ByRef SAT As Integer, _
    ByRef WP As Integer, ByRef SUBS As Integer, ByRef QVUP As Integer, ByRef FLOWV As Integer, ByRef QVLAT As Integer, ByRef MANN1 As Integer, ByRef MANN2 As Integer, ByRef FSLOPE As Integer, _
    ByRef BETA As Integer, ByRef FLOWC As Integer, ByRef QCLAT As Integer, ByRef FLOWW As Integer, ByRef DELTX1 As Integer, ByRef DELTX2 As Integer, ByRef CSLOPE As Integer, ByRef QCUP As Integer, _
    ByRef CWIDTH As Integer, ByRef DWBA As Integer, ByRef DW As Integer, ByRef KTC As Integer, ByRef KRILL As Integer, ByRef TAWC As Integer, ByRef GVUP As Integer, ByRef KRILLY As Integer, _
    ByRef FSFAC As Integer, ByRef CANEF As Integer, ByRef GRCE As Integer, ByRef SEDLDV As Integer, ByRef GCUP As Integer, ByRef PSIZE As Integer, ByRef SEDLDC As Integer, ByRef DSURF As Integer, _
    ByRef FC As Integer, ByRef QGUP As Integer, ByRef KSTO As Integer, ByRef QSUB As Integer, ByRef STRUC1 As Integer, ByRef STRUC2 As Integer, ByRef STRUC3 As Integer, ByRef RFLOW As Integer, _
    ByRef RCOMP As Integer, ByRef RSTORE As Integer, ByRef POLY As Integer, ByRef RNWL As Integer, ByRef RMWL As Integer, ByRef KSPILL As Integer, ByRef LSPILL As Integer, ByRef DCULV As Integer, _
    ByRef EII As Integer, ByRef EOI As Integer, ByRef XAREA As Integer, ByRef KLOSSE As Integer, ByRef KLOSSC As Integer, ByRef LCULV As Integer, ByRef SCULV As Integer, ByRef KORIF As Integer, _
    ByRef NCULV As Integer, ByRef FLOWT As Integer, ByRef QTLAT As Integer, ByRef MANN3 As Integer, ByRef TWIDTH As Integer, ByRef WWIDTH As Integer, ByRef TSLOPE As Integer, ByRef WSLOPE As Integer, _
    ByRef QTUP As Integer, ByRef GTUP As Integer, ByRef RI As Integer, ByRef QWLAT As Integer, ByRef QWUP As Integer, ByRef GWUP As Integer, ByRef GI As Integer, ByRef PCAN As Integer, _
    ByRef LAI As Integer, ByRef KC As Integer, ByRef KP As Integer, ByRef KB As Integer, ByRef CIS As Integer, ByRef MOUT As Integer, ByRef MONITO As Integer, ByRef NELEMV As Integer, _
    ByRef NELEMC As Integer, ByRef NELEMT As Integer, ByRef NELEMW As Integer, ByRef SEDLDT As Integer, ByRef SEDLDW As Integer, ByRef ETT As Integer, ByRef SURFS As Integer, ByRef TOTPOR As Integer, _
    ByRef NOUT As Integer, ByRef BFLOW As Integer, ByRef CLAY As Integer, ByRef VFSAND As Integer, ByRef CACO3 As Integer, ByRef SAR As Integer, ByRef SPSURF As Integer, ByRef WDCLAY As Integer, _
    ByRef SAND As Integer, ByRef NAME As Integer, ByRef POND As Integer, ByRef TEST As Integer, ByRef RETAIN As Integer, ByRef NSEG As Integer, ByRef FLOW As Integer)

    End Sub
    <DllImport("C:\Program Files (x86)\MapWindow\Plugins\WRM\wrmMODEL.dll", CallingConvention:=CallingConvention.StdCall)> _
    Sub RUNOFF(ByRef SAT1 As Integer, ByRef WP1 As Integer, ByRef DSUB1 As Integer, ByRef DELTT1 As Integer, ByRef FILTX1 As Integer, ByRef QGUP1 As Integer, ByRef DELTX1 As Integer, _
    ByRef SUBS1 As Integer, ByRef KSTO1 As Integer, ByRef QSUB1 As Integer, ByRef POND1 As Integer, ByRef FLOWV1 As Integer, ByRef QVLAT1 As Integer, ByRef MANN As Integer, ByRef SLOPE As Integer, _
    ByRef QVUP1 As Integer, ByRef BETA As Integer, ByRef DWBA1 As Integer, ByRef DW1 As Integer, ByRef KTC1 As Integer, ByRef KRILL1 As Integer, ByRef TAWC1 As Integer, ByRef RAIN As Integer, ByRef GVUP1 As Integer, _
    ByRef KRILL2 As Integer, ByRef FSFAC1 As Integer, ByRef CANEF1 As Integer, ByRef GRCE1 As Integer, ByRef SEDLD1 As Integer, ByRef TEST1 As Integer, ByRef FC1 As Integer, ByRef SURFS1 As Integer, _
    ByRef DSURF1 As Integer, ByRef NOUT As Integer)

    End Sub
    <DllImport("C:\Program Files (x86)\MapWindow\Plugins\WRM\wrmMODEL.dll", CallingConvention:=CallingConvention.StdCall)> _
    Sub KMATIC(ByRef DELTT1 As Integer, ByRef DELTX1 As Integer, ByRef ALPHA As Integer, ByRef BETA As Integer, ByRef FLOW As Integer, ByRef CONST1 As Integer)

    End Sub
    <DllImport("C:\Program Files (x86)\MapWindow\Plugins\WRM\wrmMODEL.dll", CallingConvention:=CallingConvention.StdCall)> _
    Sub SATROF(ByRef DELTT1 As Integer, ByRef QGUP1 As Integer, ByRef DELTX1 As Integer, ByRef DSUB1 As Integer, ByRef SAT1 As Integer, ByRef WP1 As Integer, ByRef SUBS1 As Integer, _
    ByRef RAIN As Integer, ByRef POND1 As Integer, ByRef QVUP1 As Integer, ByRef FILTX1 As Integer, ByRef FLOWV1 As Integer, ByRef QVLAT1 As Integer, ByRef MANN As Integer, ByRef SLOPE As Integer, _
    ByRef BETA As Integer, ByRef FLOWC1 As Integer, ByRef QCLAT1 As Integer, ByRef FLOWW1 As Integer, ByRef DELTX As Integer, ByRef MANNN As Integer, ByRef SLOPE1 As Integer, ByRef QCUP1 As Integer, _
    ByRef WIDTH1 As Integer, ByRef DWBA1 As Integer, ByRef DW1 As Integer, ByRef FC1 As Integer, ByRef KTC1 As Integer, ByRef KRILL1 As Integer, ByRef TAWC1 As Integer, ByRef GVUP1 As Integer, _
    ByRef KRILL2 As Integer, ByRef FSFAC1 As Integer, ByRef CANEF1 As Integer, ByRef GRCE1 As Integer, ByRef SEDLD1 As Integer, ByRef GCUP1 As Integer, ByRef PSIZE1 As Integer, _
    ByRef SEDLD2 As Integer, ByRef DEPTH As Integer, ByRef SURFS1 As Integer, ByRef DSURF1 As Integer, ByRef KSTO1 As Integer, ByRef TEST1 As Integer, ByRef QSUB1 As Integer, ByRef BFLOW As Integer, ByRef NOUT As Integer)

    End Sub
    <DllImport("C:\Program Files (x86)\MapWindow\Plugins\WRM\wrmMODEL.dll", CallingConvention:=CallingConvention.StdCall)> _
    Sub STRUCT(ByRef FLOWT1 As Integer, ByRef QTLAT1 As Integer, ByRef FLOWV1 As Integer, ByRef DELTX1 As Integer, ByRef MANNN As Integer, ByRef TSLOPE As Integer, ByRef DELTT1 As Integer, ByRef QTUP1 As Integer, _
    ByRef BETA As Integer, ByRef TWIDTH As Integer, ByRef GTUP1 As Integer, ByRef SEDLD1 As Integer, ByRef PSIZE1 As Integer, ByRef TAWC1 As Integer, ByRef KRILL1 As Integer, ByRef SEDLD2 As Integer, _
    ByRef STRUC As Integer, ByRef RI As Integer, ByRef FLOWW1 As Integer, ByRef QWLAT1 As Integer, ByRef DELTX As Integer, ByRef WSLOPE As Integer, ByRef QWUP1 As Integer, ByRef WWIDTH As Integer, _
    ByRef GWUP1 As Integer, ByRef SEDLD3 As Integer)

    End Sub
    <DllImport("C:\Program Files (x86)\MapWindow\Plugins\WRM\wrmMODEL.dll", CallingConvention:=CallingConvention.StdCall)> _
    Sub GWWAY(ByRef RI As Integer, ByRef FLOWW1 As Integer, ByRef QWLAT1 As Integer, ByRef FLOWT1 As Integer, ByRef DELTX As Integer, ByRef WSLOPE As Integer, ByRef DELTT1 As Integer, _
    ByRef QWUP1 As Integer, ByRef BETA As Integer, ByRef WWIDTH As Integer, ByRef GWUP1 As Integer, ByRef SEDLD2 As Integer, ByRef PSIZE1 As Integer, ByRef SEDLD3 As Integer)

    End Sub
    <DllImport("C:\Program Files (x86)\MapWindow\Plugins\WRM\wrmMODEL.dll", CallingConvention:=CallingConvention.StdCall)> _
    Sub HSTRUC(ByRef FLOWC1 As Integer, ByRef RFLOW1 As Integer, ByRef RCOMP1 As Integer, ByRef RSTOR As Integer, ByRef POLY As Integer, ByRef RNWL As Integer, ByRef RMWL As Integer, _
    ByRef KSPILL As Integer, ByRef LSPILL As Integer, ByRef SEDLD2 As Integer, ByRef DELTT As Integer, ByRef FLOW As Integer)

    End Sub
    <DllImport("C:\Program Files (x86)\MapWindow\Plugins\WRM\wrmMODEL.dll", CallingConvention:=CallingConvention.StdCall)> _
    Sub CULVT(ByRef DEPTH1 As Integer, ByRef DCULV As Integer, ByRef EII As Integer, ByRef EOI As Integer, ByRef XAREA As Integer, ByRef KLOSSE As Integer, ByRef KLOSSC As Integer, _
    ByRef LCULV As Integer, ByRef SCULV As Integer, ByRef KORIF As Integer, ByRef NCULV As Integer, ByRef FLOWC1 As Integer)

    End Sub
    <DllImport("C:\Program Files (x86)\MapWindow\Plugins\WRM\wrmMODEL.dll", CallingConvention:=CallingConvention.StdCall)> _
    Sub BASEFL(ByRef ETT As Integer, ByRef STIME As Integer, ByRef NGRID As Integer, ByRef VEG As Integer, ByRef SOIL As Integer, ByRef DUAL As Integer, ByRef STRUC1 As Integer, _
    ByRef STRUC3 As Integer, ByRef SEDLDT As Integer, ByRef FLOWW As Integer, ByRef SEDLDW As Integer, ByRef GI As Integer, ByRef PCAN As Integer, ByRef LAI As Integer, ByRef KC As Integer, _
    ByRef KP As Integer, ByRef KB As Integer, ByRef SURFS As Integer, ByRef SUBS As Integer, ByRef TOTPOR As Integer, ByRef DSURF As Integer, ByRef DSUB As Integer, ByRef BFLOW As Integer, _
    ByRef FLOWC As Integer, ByRef MONITO As Integer, ByRef SEDLDC As Integer, ByRef NELEMV As Integer, ByRef NELEMC As Integer, ByRef NELEMT As Integer, ByRef NELEMW As Integer, ByRef QVUP As Integer, _
    ByRef QGUP As Integer, ByRef GVUP As Integer, ByRef FLOWV As Integer, ByRef QSUB As Integer, ByRef SEDLDV As Integer, ByRef QCUP As Integer, ByRef GCUP As Integer, ByRef QTUP As Integer, ByRef GTUP As Integer, _
    ByRef FLOWT As Integer, ByRef QWUP As Integer, ByRef GWUP As Integer, ByRef QCLAT As Integer, ByRef SAT As Integer, ByRef FC As Integer, ByRef WP As Integer, ByRef DELTX1 As Integer, _
    ByRef DELTX2 As Integer, ByRef MANN2 As Integer, ByRef CSLOPE As Integer, ByRef BETA As Integer, ByRef CWIDTH As Integer, ByRef PSIZE As Integer, ByRef TAWC As Integer, ByRef KRILL As Integer, _
    ByRef AET As Integer, ByRef KSTO As Integer, ByRef RFLOW As Integer, ByRef RCOMP As Integer, ByRef RSTORE As Integer, ByRef POLY As Integer, ByRef RNWL As Integer, ByRef RMWL As Integer, _
    ByRef KSPILL As Integer, ByRef LSPILL As Integer, ByRef DCULV As Integer, ByRef EII As Integer, ByRef EOI As Integer, ByRef XAREA As Integer, ByRef KLOSSE As Integer, ByRef KLOSSC As Integer, _
    ByRef LCULV As Integer, ByRef SCULV As Integer, ByRef KORIF As Integer, ByRef NCULV As Integer, ByRef DELTT As Integer, ByRef NSEG As Integer, ByRef FLOW As Integer)

    End Sub
    <DllImport("C:\Program Files (x86)\MapWindow\Plugins\WRM\wrmMODEL.dll", CallingConvention:=CallingConvention.StdCall)> _
    Sub ETONE(ByRef SURFS1 As Integer, ByRef DSURF1 As Integer, ByRef FC1 As Integer, ByRef WP1 As Integer, ByRef QGUP1 As Integer, ByRef DELTX1 As Integer, ByRef SUBS1 As Integer, _
    ByRef DSUB1 As Integer, ByRef KSTO1 As Integer, ByRef QSUB1 As Integer, ByRef FLOWV1 As Integer, ByRef SEDLD1 As Integer, ByRef DELTT As Integer)

    End Sub
    <DllImport("C:\Program Files (x86)\MapWindow\Plugins\WRM\wrmMODEL.dll", CallingConvention:=CallingConvention.StdCall)> _
    Sub ETTWO(ByRef SUBS1 As Integer, ByRef SURFS1 As Integer, ByRef FLOWC1 As Integer, ByRef QCLAT1 As Integer, ByRef SEDLD2 As Integer, ByRef QGUP1 As Integer, ByRef DELTX1 As Integer, _
    ByRef DSUB1 As Integer, ByRef DSURF1 As Integer, ByRef FC1 As Integer, ByRef WP1 As Integer, ByRef DELTX As Integer, ByRef MANNN As Integer, ByRef SLOPE1 As Integer, ByRef QCUP1 As Integer, _
    ByRef BETA As Integer, ByRef WIDTH1 As Integer, ByRef PSIZE1 As Integer, ByRef GCUP1 As Integer, ByRef TAWC1 As Integer, ByRef KRILL1 As Integer, ByRef DEPTH1 As Integer, ByRef KSTO1 As Integer, _
    ByRef QSUB1 As Integer, ByRef DELTT As Integer, ByRef FLOWV1 As Integer, ByRef SEDLD1 As Integer, ByRef BFLOW As Integer)

    End Sub

    End module1

0 Kudos
0 Replies