Attribute VB_Name = "Mod_LINGO"
'*****************************************************************************/
'*
'*    LINGO Version 10.0
'*
'*    LINGO DLL definitions header for Visual Basic
'*
'*    Copyright (c) 2004-2005
'*
'*    LINDO Systems, Inc.            312.988.7422
'*    1415 North Dayton St.          info@lindo.com
'*    Chicago, IL 60622              http://www.lindo.com
'*
'*    Last Updated: 2-28-2006
'*
'*****************************************************************************/

Public Enum LSerrorCodeLng
   LSERR_NO_ERROR_LNG = 0
   LSERR_OUT_OF_MEMORY_LNG = 1
   LSERR_UNABLE_TO_OPEN_LOG_FILE_LNG = 2
   LSERR_INVALID_NULL_POINTER_LNG = 3
   LSERR_INVALID_INPUT_LNG = 4
End Enum

Public Enum LScallbackInfoCodeLng
   LS_IINFO_VARIABLES_LNG = 0
   LS_IINFO_VARIABLES_INTEGER_LNG = 1
   LS_IINFO_VARIABLES_NONLINEAR_LNG = 2
   LS_IINFO_CONSTRAINTS_LNG = 3
   LS_IINFO_CONSTRAINTS_NONLINEAR_LNG = 4
   LS_IINFO_NONZEROS_LNG = 5
   LS_IINFO_NONZEROS_NONLINEAR_LNG = 6
   LS_IINFO_ITERATIONS_LNG = 7
   LS_IINFO_BRANCHES_LNG = 8
   LS_DINFO_SUMINF_LNG = 9
   LS_DINFO_OBJECTIVE_LNG = 10
   LS_DINFO_MIP_BOUND_LNG = 11
   LS_DINFO_MIP_BEST_OBJECTIVE_LNG = 12
End Enum

Public Enum LSstatusCodeLng
   LS_STATUS_GLOBAL_LNG = 0
   LS_STATUS_INFEASIBLE_LNG = 1
   LS_STATUS_UNBOUNDED_LNG = 2
   LS_STATUS_UNDETERMINED_LNG = 3
   LS_STATUS_FEASIBLE_LNG = 4
   LS_STATUS_INFORUNB_LNG = 5
   LS_STATUS_LOCAL_LNG = 6
   LS_STATUS_LOCAL_INFEASIBLE_LNG = 7
   LS_STATUS_CUTOFF_LNG = 8
   LS_STATUS_NUMERIC_ERROR_LNG = 9
End Enum

Public Declare Function LSclearPointersLng _
Lib "LINGD10.DLL" (ByVal pLINGO As Long)

Public Declare Function LScloseLogFileLng _
Lib "LINGD10.DLL" (ByVal pLINGO As Long) As Long

Public Declare Function LScreateEnvLng _
Lib "LINGD10.DLL" () As Long

Public Declare Function LSdeleteEnvLng _
Lib "LINGD10.DLL" (ByVal pLINGO As Long) As Long

Public Declare Function LSexecuteScriptLng _
Lib "LINGD10.DLL" (ByVal pLINGO As Long, ByVal cScript As String) As Long

Public Declare Function LSgetCallbackInfoDoubleLng _
Lib "LINGD10.DLL" Alias "LSgetCallbackInfoLng" (ByVal pLINGO As Long, _
ByVal nObject As Long, ByRef dResult As Double) As Long

Public Declare Function LSgetCallbackInfoLongLng _
Lib "LINGD10.DLL" Alias "LSgetCallbackInfoLng" (ByVal pLINGO As Long, _
ByVal nObject As Long, ByRef nResult As Long) As Long

Public Declare Function LSopenLogFileLng _
Lib "LINGD10.DLL" (ByVal pLINGO As Long, ByVal cFname As String) As Long

Public Declare Function LSsetCallbackErrorLng _
Lib "LINGD10.DLL" (ByVal pLINGO As Long, ByVal pcbf As Long, _
ByRef pUserData As Double) As Long

Public Declare Function LSsetCallbackSolverLng _
Lib "LINGD10.DLL" (ByVal pLINGO As Long, ByVal pcbf As Long, _
ByRef pUserData As Double) As Long

Public Declare Function LSsetPointerLng _
Lib "LINGD10.DLL" (ByVal pLINGO As Long, ByRef dObject As Double, _
ByRef nPointersNow As Long) As Long