/*
Copyright (C) 2004 Evgenii Rudnyi, http://Evgenii.Rudnyi.Ru

This software is a copyrighted work licensed under the terms, described
in the file "FREE_LICENSE". 
*/

:Evaluate: BeginPackage["Imtek`Slicot`LowLevel`"];
:Evaluate: Print["The use of SLICOT is governed by the SLICOT license: see http://www.slicot.de/. SLICOT is not free for commercial use."];
/*:Evaluate: Print["This is a limited version, the maximum system dimension is 20. You can find the full version at http://www.slicot.de/"];*/
:Evaluate: RunBTA::usage = "Low-level interface to call BTA";
:Evaluate: RunSPA::usage = "Low-level interface to call SPA";
:Evaluate: RunHNA::usage = "Low-level interface to call HNA";
:Evaluate: Begin["`Private`"];

:Begin:
:Function:       runBTA
:Pattern:        RunBTA[ job_String, equil_String, ordsel_String, n_Integer, m_Integer, p_Integer, nr_Integer, matA:{___Real}, matB:{___Real}, matC:{___Real},   tol_Real, dwork_Integer ]
:Arguments:      { job, equil, ordsel, n, m, p, nr, matA, matB, matC, tol, dwork }
:ArgumentTypes:  { String, String, String, Integer, Integer, Integer, Integer, RealList, RealList, RealList, Real, Integer }
:ReturnType:     Manual
:End:


:Begin:
:Function:       runSPA
:Pattern:        RunSPA[ job_String, equil_String, ordsel_String, n_Integer, m_Integer, p_Integer, nr_Integer, matA:{___Real}, matB:{___Real}, matC:{___Real}, matD:{___Real}, tol1_Real, tol2_Real, dwork_Integer ]
:Arguments:      { job, equil, ordsel, n, m, p, nr, matA, matB, matC, matD, tol1, tol2, dwork }
:ArgumentTypes:  { String, String, String, Integer, Integer, Integer, Integer, RealList, RealList, RealList, RealList, Real, Real, Integer }
:ReturnType:     Manual
:End:


:Begin:
:Function:       runHNA
:Pattern:        RunHNA[ equil_String, ordsel_String, n_Integer, m_Integer, p_Integer, nr_Integer, matA:{___Real}, matB:{___Real}, matC:{___Real}, matD:{___Real}, tol1_Real, tol2_Real, dwork_Integer ]
:Arguments:      { equil, ordsel, n, m, p, nr, matA, matB, matC, matD, tol1, tol2, dwork }
:ArgumentTypes:  { String, String, Integer, Integer, Integer, Integer, RealList, RealList, RealList, RealList, Real, Real, Integer }
:ReturnType:     Manual
:End:

:Evaluate: End[];
:Evaluate: EndPackage[];