code optimization

3 files changed, 151 insertions, 348 deletions

diff --git a/sci_gateway/cpp/sci_iofunc.cpp b/sci_gateway/cpp/sci_iofunc.cpp
index e1c8610..395aa3a 100644
--- a/sci_gateway/cpp/sci_iofunc.cpp
+++ b/sci_gateway/cpp/sci_iofunc.cpp
@@ -159,6 +159,28 @@ int getDoubleMatrixFromScilab(int argNum, int *rows, int *cols, double **dest)
 	return 0;
 }
 
+int getFixedSizeDoubleMatrixInList(int argNum, int itemPos, int rows, int cols, double **dest)
+{
+	int *varAddress,inputMatrixRows,inputMatrixCols;
+	SciErr sciErr;
+	const char errMsg[]="Wrong type for input argument #%d: A matrix of double of size %d by %d is expected.\n";
+	const int errNum=999;
+	//same steps as above
+	sciErr = getVarAddressFromPosition(pvApiCtx, argNum, &varAddress);
+	if (sciErr.iErr)
+	{
+		printError(&sciErr, 0);
+		return 1;
+	}
+
+	getMatrixOfDoubleInList(pvApiCtx, varAddress, itemPos, &rows, &cols, dest);
+	if (sciErr.iErr)
+	{
+		printError(&sciErr, 0);
+		return 0;
+	}
+}
+
 int return0toScilab()
 {
 	int iRet;
@@ -192,3 +214,36 @@ int returnDoubleToScilab(double retVal)
 	//ReturnArguments(pvApiCtx);
 	return 0;
 }
+
+int returnDoubleMatrixToScilab(int itemPos, int rows, int cols, double *dest)
+{
+	SciErr sciErr;
+	//same steps as above
+	sciErr = createMatrixOfDouble(pvApiCtx, nbInputArgument(pvApiCtx) + itemPos, rows, cols, dest);
+	if (sciErr.iErr)
+	{
+		printError(&sciErr, 0);
+		return 0;
+	}
+
+	AssignOutputVariable(pvApiCtx, itemPos) = nbInputArgument(pvApiCtx)+itemPos;
+
+	return 0;
+}
+
+int returnIntegerMatrixToScilab(int itemPos, int rows, int cols, int *dest)
+{
+	SciErr sciErr;
+	//same steps as above
+	sciErr = createMatrixOfInteger32(pvApiCtx, nbInputArgument(pvApiCtx) + itemPos, rows, cols, dest);
+	if (sciErr.iErr)
+	{
+		printError(&sciErr, 0);
+		return 0;
+	}
+
+	AssignOutputVariable(pvApiCtx, itemPos) = nbInputArgument(pvApiCtx)+itemPos;
+
+	return 0;
+}
+
diff --git a/sci_gateway/cpp/sci_iofunc.hpp b/sci_gateway/cpp/sci_iofunc.hpp
index 1cf9a1a..3833777 100644
--- a/sci_gateway/cpp/sci_iofunc.hpp
+++ b/sci_gateway/cpp/sci_iofunc.hpp
@@ -11,9 +11,13 @@ int getUIntFromScilab(int argNum, int *dest);
 int getIntFromScilab(int argNum, int *dest);
 int getFixedSizeDoubleMatrixFromScilab(int argNum, int rows, int cols, double **dest);
 int getDoubleMatrixFromScilab(int argNum, int *rows, int *cols, double **dest);
+int getFixedSizeDoubleMatrixInList(int argNum, int itemPos, int rows, int cols, double **dest);
+
 
 //output
 int return0toScilab();
 int returnDoubleToScilab(double retVal);
+int returnDoubleMatrixToScilab(int itemPos, int rows, int cols, double *dest);
+int returnIntegerMatrixToScilab(int itemPos, int rows, int cols, int *dest);
 
 #endif //SCI_IOFUNCHEADER
diff --git a/sci_gateway/cpp/sci_ipopt.cpp b/sci_gateway/cpp/sci_ipopt.cpp
index 98ed153..0f94e47 100644
--- a/sci_gateway/cpp/sci_ipopt.cpp
+++ b/sci_gateway/cpp/sci_ipopt.cpp
@@ -7,7 +7,6 @@
 	Harpreet Singh
  */
 
-
 #include "sci_iofunc.hpp"
 #include "IpIpoptApplication.hpp"
 #include "QuadNLP.hpp"
@@ -19,325 +18,134 @@ extern "C"{
 #include <localization.h>
 #include <sciprint.h>
 
-int j;
-double *op_x, *op_obj,*p;
-
-bool readSparse(int arg,int *iRows,int *iCols,int *iNbItem,int** piNbItemRow, int** piColPos, double** pdblReal){
-	SciErr sciErr;
-	int* piAddr = NULL;
-	int iType   = 0;
-	int iRet    = 0;
-	sciErr = getVarAddressFromPosition(pvApiCtx, arg, &piAddr);
-	if(sciErr.iErr)	{
-		printError(&sciErr, 0);
-		return false;
-		}
-	sciprint("\ndone\n");
-	if(isSparseType(pvApiCtx, piAddr)){
-		sciprint("done\n");
-		sciErr =getSparseMatrix(pvApiCtx, piAddr, iRows, iCols, iNbItem, piNbItemRow, piColPos, pdblReal);
-		if(sciErr.iErr)	{
-			printError(&sciErr, 0);
-			return false;
-			}
-		}
-
-	else {
-		sciprint("\nSparse matrix required\n");
-		return false;
-		}
-	return true;
-	}
-
 int sci_solveqp(char *fname)
 {
-	
+	using namespace Ipopt;
+
 	CheckInputArgument(pvApiCtx, 11, 11); // We need total 10 input arguments.
 	CheckOutputArgument(pvApiCtx, 7, 7);
 	
 	// Error management variable
 	SciErr sciErr;
-	int retVal=0, *piAddressVarQ = NULL,*piAddressVarP = NULL,*piAddressVarCM = NULL,*piAddressVarCUB = NULL,*piAddressVarCLB = NULL, 		*piAddressVarLB = NULL,*piAddressVarUB = NULL,*piAddressVarG = NULL,*piAddressVarParam = NULL;
-	double *QItems=NULL,*PItems=NULL,*ConItems=NULL,*conUB=NULL,*conLB=NULL,*varUB=NULL,*varLB=NULL,*init_guess = NULL;
-	double *cpu_time=NULL, *max_iter=NULL, x,f,iter;
+
+	// Input arguments
+	double *QItems=NULL,*PItems=NULL,*ConItems=NULL,*conUB=NULL,*conLB=NULL;
+	double *cpu_time=NULL,*max_iter=NULL,*varUB=NULL,*varLB=NULL,*init_guess=NULL;
 	static unsigned int nVars = 0,nCons = 0;
-	unsigned int temp1 = 0,temp2 = 0;
+	unsigned int temp1 = 0,temp2 = 0, iret = 0;
 
+	// Output arguments
+	double *fX = NULL, ObjVal=0,iteration=0, *Zl=NULL, *Zu=NULL, *Lambda=NULL;
+	int rstatus = 0;
 
 	////////// Manage the input argument //////////
 	
-	
 	//Number of Variables
-	getIntFromScilab(1,&nVars);
-
-	//Number of Constraints
-	getIntFromScilab(2,&nCons);
-
-	temp1 = nVars;
-	temp2 = nCons;
-
-	//Q matrix from scilab
-	/* get Address of inputs */
-	sciErr = getVarAddressFromPosition(pvApiCtx, 3, &piAddressVarQ);
-	if (sciErr.iErr)
+	if(getIntFromScilab(1,&nVars))
 	{
-		printError(&sciErr, 0);
-		return 0;
+		return 1;
 	}
 
-	/* Check that the first input argument is a real matrix (and not complex) */
-	if ( !isDoubleType(pvApiCtx, piAddressVarQ) ||  isVarComplex(pvApiCtx, piAddressVarQ) )
+	//Number of Constraints
+	if (getIntFromScilab(2,&nCons))
 	{
-		Scierror(999, "%s: Wrong type for input argument #%d: A real matrix expected.\n", fname, 3);
-		return 0;
+		return 1;
 	}
 
-	/* get matrix */
-	sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarQ, &temp1, &temp1, &QItems);
-	if (sciErr.iErr)
+	//Q matrix from scilab
+	temp1 = nVars;
+	temp2 = nCons;
+	if (getFixedSizeDoubleMatrixFromScilab(3,temp1,temp1,&QItems))
 	{
-	printError(&sciErr, 0);
-	return 0;
+		return 1;
 	}
 	
 	//P matrix from scilab
-	/* get Address of inputs */
-	sciErr = getVarAddressFromPosition(pvApiCtx, 4, &piAddressVarP);
-	if (sciErr.iErr)
-	{
-	printError(&sciErr, 0);
-	return 0;
-	}
-
-	/* Check that the first input argument is a real matrix (and not complex) */
-	if ( !isDoubleType(pvApiCtx, piAddressVarP) ||  isVarComplex(pvApiCtx, piAddressVarP) )
-	{
-		Scierror(999, "%s: Wrong type for input argument #%d: A real matrix expected.\n", fname, 4);
-		return 0;
-	}
-	
 	temp1 = 1;
 	temp2 = nVars; 
-	/* get matrix */
-	sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarP, &temp1,&temp2, &PItems);
-	if (sciErr.iErr)
+	if (getFixedSizeDoubleMatrixFromScilab(4,temp1,temp2,&PItems))
 	{
-		printError(&sciErr, 0);
-		return 0;
+		return 1;
 	}
 
 	if (nCons!=0)
 	{
 		//conMatrix matrix from scilab
-		/* get Address of inputs */
-		sciErr = getVarAddressFromPosition(pvApiCtx, 5, &piAddressVarCM);
-		if (sciErr.iErr)
-		{
-		printError(&sciErr, 0);
-		return 0;
-		}
-
-		/* Check that the first input argument is a real matrix (and not complex) */
-		if ( !isDoubleType(pvApiCtx, piAddressVarCM) ||  isVarComplex(pvApiCtx, piAddressVarCM) )
-		{
-		Scierror(999, "%s: Wrong type for input argument #%d: A real matrix expected.\n", fname, 5);
-		return 0;
-		}
 		temp1 = nCons;
 		temp2 = nVars;
 
-		/* get matrix */
-		sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarCM,&temp1, &temp2, &ConItems);
-		if (sciErr.iErr)
+		if (getFixedSizeDoubleMatrixFromScilab(5,temp1,temp2,&ConItems))
 		{
-		printError(&sciErr, 0);
-		return 0;
+			return 1;
 		}
 
-
 		//conLB matrix from scilab
-		/* get Address of inputs */
-		sciErr = getVarAddressFromPosition(pvApiCtx, 6, &piAddressVarCLB);
-		if (sciErr.iErr)
+		temp1 = 1;
+		temp2 = nCons;
+		if (getFixedSizeDoubleMatrixFromScilab(6,temp1,temp2,&conLB))
 		{
-		printError(&sciErr, 0);
-		return 0;
+			return 1;
 		}
 
-		/* Check that the first input argument is a real matrix (and not complex) */
-		if ( !isDoubleType(pvApiCtx, piAddressVarCLB) ||  isVarComplex(pvApiCtx, piAddressVarCLB) )
-		{
-		Scierror(999, "%s: Wrong type for input argument #%d: A real matrix expected.\n", fname, 6);
-		return 0;
-		}
-		temp1 = nCons;
-		temp2 = 1;
-
-		/* get matrix */
-		sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarCLB,&temp1, &temp2, &conLB);
-		if (sciErr.iErr)
-		{
-		printError(&sciErr, 0);
-		return 0;
-		}
-		
 		//conUB matrix from scilab
-		/* get Address of inputs */
-		sciErr = getVarAddressFromPosition(pvApiCtx, 7, &piAddressVarCUB);
-		if (sciErr.iErr)
-		{
-		printError(&sciErr, 0);
-		return 0;
-		}
-
-		/* Check that the first input argument is a real matrix (and not complex) */
-		if ( !isDoubleType(pvApiCtx, piAddressVarCUB) ||  isVarComplex(pvApiCtx, piAddressVarCUB) )
-		{
-		Scierror(999, "%s: Wrong type for input argument #%d: A real matrix expected.\n", fname, 7);
-		return 0;
-		}
-
-		temp1 = nCons;
-		temp2 = 1;
-
-		/* get matrix */
-		sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarCUB,&temp1, &temp2, &conUB);
-		if (sciErr.iErr)
+		if (getFixedSizeDoubleMatrixFromScilab(7,temp1,temp2,&conUB))
 		{
-		printError(&sciErr, 0);
-		return 0;
+			return 1;
 		}
-		
 	}
 
 	//varLB matrix from scilab
-	/* get Address of inputs */
-	sciErr = getVarAddressFromPosition(pvApiCtx, 8, &piAddressVarLB);
-	if (sciErr.iErr)
-	{
-	printError(&sciErr, 0);
-	return 0;
-	}
-
-	/* Check that the first input argument is a real matrix (and not complex) */
-	if ( !isDoubleType(pvApiCtx, piAddressVarLB) ||  isVarComplex(pvApiCtx, piAddressVarLB) )
-	{
-		Scierror(999, "%s: Wrong type for input argument #%d: A real matrix expected.\n", fname, 8);
-		return 0;
-	}
 	temp1 = 1;
 	temp2 = nVars;
-
-	/* get matrix */
-	sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarLB, &temp1,&temp2, &varLB);
-	if (sciErr.iErr)
-	{
-		printError(&sciErr, 0);
-		return 0;
-	}
-
-	//varUB matrix from scilab
-	/* get Address of inputs */
-	sciErr = getVarAddressFromPosition(pvApiCtx, 9, &piAddressVarUB);
-	if (sciErr.iErr)
+	if (getFixedSizeDoubleMatrixFromScilab(8,temp1,temp2,&varLB))
 	{
-		printError(&sciErr, 0);
-		return 0;
-	}
-	/* Check that the first input argument is a real matrix (and not complex) */
-	if ( !isDoubleType(pvApiCtx, piAddressVarUB) ||  isVarComplex(pvApiCtx, piAddressVarUB) )
-	{
-		Scierror(999, "%s: Wrong type for input argument #%d: A real matrix expected.\n", fname, 9);
-		return 0;
+		return 1;
 	}
 
-	temp1 = 1;
-	temp2 = nVars;
 
-	/* get matrix */
-	sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarUB, &temp1,&temp2, &varUB);
-	if (sciErr.iErr)
-	{
-		printError(&sciErr, 0);
-		return 0;
-	}
-	
-	/* get matrix */
-	sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarLB, &temp1,&temp2, &varLB);
-	if (sciErr.iErr)
+	//varUB matrix from scilab
+	if (getFixedSizeDoubleMatrixFromScilab(9,temp1,temp2,&varUB))
 	{
-		printError(&sciErr, 0);
-		return 0;
+		return 1;
 	}
 
 	//Initial Value of variables from scilab
-	/* get Address of inputs */
-	sciErr = getVarAddressFromPosition(pvApiCtx, 10, &piAddressVarG);
-	if (sciErr.iErr)
-	{
-		printError(&sciErr, 0);
-		return 0;
-	}
-	/* Check that the first input argument is a real matrix (and not complex) */
-	if ( !isDoubleType(pvApiCtx, piAddressVarG) ||  isVarComplex(pvApiCtx, piAddressVarG) )
+	if (getFixedSizeDoubleMatrixFromScilab(10,temp1,temp2,&init_guess))
 	{
-		Scierror(999, "%s: Wrong type for input argument #%d: A real matrix expected.\n", fname, 10);
-		return 0;
-	}
-
-	temp1 = 1;
-	temp2 = nVars;
-
-	/* get matrix */
-	sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarG, &temp1,&temp2, &init_guess);
-	if (sciErr.iErr)
-	{
-		printError(&sciErr, 0);
-		return 0;
+		return 1;
 	}
 	
-	//Setting the parameters
-	/* get Address of inputs */
-	sciErr = getVarAddressFromPosition(pvApiCtx, 11, &piAddressVarParam);
-	if (sciErr.iErr)
-	{
-		printError(&sciErr, 0);
-		return 0;
-	}
+	//Getting the parameters
 
 	temp1 = 1;
 	temp2 = 1;
 
-	/* get matrix */
-	sciErr = getMatrixOfDoubleInList(pvApiCtx, piAddressVarParam, 2, &temp1,&temp2, &max_iter);
-	if (sciErr.iErr)
+	//Getting maximum iteration
+	if (getFixedSizeDoubleMatrixInList(11,2,temp1,temp2,&max_iter))
 	{
-		printError(&sciErr, 0);
-		return 0;
+		return 1;
 	}
 
-	/* get matrix */
-	sciErr = getMatrixOfDoubleInList(pvApiCtx, piAddressVarParam, 4, &temp1,&temp2, &cpu_time);
-	if (sciErr.iErr)
+	//Getting Cpu Time
+	if (getFixedSizeDoubleMatrixInList(11,4,temp1,temp2,&cpu_time))
 	{
-		printError(&sciErr, 0);
-		return 0;
+		return 1;
 	}
 
-	using namespace Ipopt;
+	// Starting Ipopt
+
+	SmartPtr<QuadNLP> Prob = 
+	new QuadNLP(nVars,nCons,QItems,PItems,ConItems,conUB,conLB,varUB,varLB,init_guess);
 
-	SmartPtr<QuadNLP> Prob = new QuadNLP(nVars,nCons,QItems,PItems,ConItems,conUB,conLB,varUB,varLB,init_guess);
 	SmartPtr<IpoptApplication> app = IpoptApplicationFactory();
 	app->RethrowNonIpoptException(true);
 
-	// Change some options
-	// Note: The following choices are only examples, they might not be
-	//       suitable for your optimization problem.
+	////////// Managing the parameters //////////
+
 	app->Options()->SetNumericValue("tol", 1e-7);
 	app->Options()->SetIntegerValue("max_iter", (int)*max_iter);
 	app->Options()->SetNumericValue("max_cpu_time", *cpu_time);
 	app->Options()->SetStringValue("mu_strategy", "adaptive");
-
 	// Indicates whether all equality constraints are linear 
 	app->Options()->SetStringValue("jac_c_constant", "yes");
 	// Indicates whether all inequality constraints are linear 
@@ -345,7 +153,7 @@ int sci_solveqp(char *fname)
 	// Indicates whether the problem is a quadratic problem 
 	app->Options()->SetStringValue("hessian_constant", "yes");
 
-	// Initialize the IpoptApplication and process the options
+	///////// Initialize the IpoptApplication and process the options /////////
 	ApplicationReturnStatus status;
  	status = app->Initialize();
 	if (status != Solve_Succeeded) {
@@ -356,165 +164,101 @@ int sci_solveqp(char *fname)
 	
 	 status = app->OptimizeTNLP(Prob);
 
-	int stats = Prob->returnStatus();
+	rstatus = Prob->returnStatus();
+
+	////////// Manage the output argument //////////
 
-	if (stats == 0 | stats == 1 | stats == 2){
-		double *fX = Prob->getX();
-		double ObjVal = Prob->getObjVal();
-		double iteration = Prob->iterCount();
+	if (rstatus == 0 | rstatus == 1 | rstatus == 2){
+		fX = Prob->getX();
+		ObjVal = Prob->getObjVal();
+		iteration = Prob->iterCount();
 
-		sciErr = createMatrixOfDouble(pvApiCtx, nbInputArgument(pvApiCtx) + 1, 1, nVars, fX);
-		if (sciErr.iErr)
+		if (returnDoubleMatrixToScilab(1, 1, nVars, fX))
 		{
-			printError(&sciErr, 0);
-			return 0;
+			return 1;
 		}
 
-		sciErr = createMatrixOfDouble(pvApiCtx, nbInputArgument(pvApiCtx) + 2,1,1,&ObjVal);
-		if (sciErr.iErr)
+		if (returnDoubleMatrixToScilab(2, 1, 1, &ObjVal))
 		{
-			printError(&sciErr, 0);
-			return 0;
+			return 1;
 		}
 
-		sciErr = createMatrixOfInteger32(pvApiCtx, nbInputArgument(pvApiCtx) + 3,1,1,&stats);
-		if (sciErr.iErr)
+		if (returnIntegerMatrixToScilab(3, 1, 1, &rstatus))
 		{
-			printError(&sciErr, 0);
-			return 0;
+			return 1;
 		}
 
-		sciErr = createMatrixOfDouble(pvApiCtx, nbInputArgument(pvApiCtx) + 4,1,1,&iteration);
-		if (sciErr.iErr)
+		if (returnDoubleMatrixToScilab(4, 1, 1, &iteration))
 		{
-			printError(&sciErr, 0);
-			return 0;
+			return 1;
 		}
-
-		AssignOutputVariable(pvApiCtx, 1) = nbInputArgument(pvApiCtx) + 1;
-		AssignOutputVariable(pvApiCtx, 2) = nbInputArgument(pvApiCtx) + 2;		
-		AssignOutputVariable(pvApiCtx, 3) = nbInputArgument(pvApiCtx) + 3;
-		AssignOutputVariable(pvApiCtx, 4) = nbInputArgument(pvApiCtx) + 4;
 	}
 
 	else
 	{
-		double *fX = NULL;
-		double ObjVal = 0;
-		int stats = Prob->returnStatus();
-		double iteration = 0;
-
-		sciErr = createMatrixOfDouble(pvApiCtx, nbInputArgument(pvApiCtx) + 1, 0, 0, fX);
-		if (sciErr.iErr)
+		if (returnDoubleMatrixToScilab(1, 0, 0, fX))
 		{
-			printError(&sciErr, 0);
-			return 0;
+			return 1;
 		}
 
-		sciErr = createMatrixOfDouble(pvApiCtx, nbInputArgument(pvApiCtx) + 2,1,1,&ObjVal);
-		if (sciErr.iErr)
+		if (returnDoubleMatrixToScilab(2, 1, 1, &ObjVal))
 		{
-			printError(&sciErr, 0);
-			return 0;
+			return 1;
 		}
 
-		sciErr = createMatrixOfInteger32(pvApiCtx, nbInputArgument(pvApiCtx) + 3,1,1,&stats);
-		if (sciErr.iErr)
+		if (returnIntegerMatrixToScilab(3, 1, 1, &rstatus))
 		{
-			printError(&sciErr, 0);
-			return 0;
+			return 1;
 		}
 
-		sciErr = createMatrixOfDouble(pvApiCtx, nbInputArgument(pvApiCtx) + 4,1,1,&iteration);
-		if (sciErr.iErr)
+		if (returnDoubleMatrixToScilab(4, 1, 1, &iteration))
 		{
-			printError(&sciErr, 0);
-			return 0;
+			return 1;
 		}
-
-		AssignOutputVariable(pvApiCtx, 1) = nbInputArgument(pvApiCtx) + 1;
-		AssignOutputVariable(pvApiCtx, 2) = nbInputArgument(pvApiCtx) + 2;		
-		AssignOutputVariable(pvApiCtx, 3) = nbInputArgument(pvApiCtx) + 3;
-		AssignOutputVariable(pvApiCtx, 4) = nbInputArgument(pvApiCtx) + 4;
 	}
 
 
-	if(stats == 0){
-		
-		double *Zl = Prob->getZl();
-		double *Zu = Prob->getZu();
-		double *Lambda = Prob->getLambda();
+	if(rstatus == 0){
 	
-		sciErr = createMatrixOfDouble(pvApiCtx, nbInputArgument(pvApiCtx) + 5, 1, nVars, Zl);
-		if (sciErr.iErr)
+		Zl = Prob->getZl();
+		Zu = Prob->getZu();
+		Lambda = Prob->getLambda();
+		if (returnDoubleMatrixToScilab(5, 1, nVars, Zl))
 		{
-			printError(&sciErr, 0);
-			return 0;
+			return 1;
 		}
 
-		sciErr = createMatrixOfDouble(pvApiCtx, nbInputArgument(pvApiCtx) + 6, 1, nVars, Zu);
-		if (sciErr.iErr)
+		if (returnDoubleMatrixToScilab(6, 1, nVars, Zu))
 		{
-			printError(&sciErr, 0);
-			return 0;
+			return 1;
 		}
-	
-		sciErr = createMatrixOfDouble(pvApiCtx, nbInputArgument(pvApiCtx) + 7, 1, nCons, Lambda);
-		if (sciErr.iErr)
+
+		if (returnDoubleMatrixToScilab(7, 1, 1, Lambda))
 		{
-			printError(&sciErr, 0);
-			return 0;
+			return 1;
 		}
-
-		AssignOutputVariable(pvApiCtx, 5) = nbInputArgument(pvApiCtx) + 5;
-		AssignOutputVariable(pvApiCtx, 6) = nbInputArgument(pvApiCtx) + 6;
-		AssignOutputVariable(pvApiCtx, 7) = nbInputArgument(pvApiCtx) + 7;
 	}
 
 	else{
-		double *Zl = NULL;
-		double *Zu = NULL;
-		double *Lambda = NULL;
-	
-		sciErr = createMatrixOfDouble(pvApiCtx, nbInputArgument(pvApiCtx) + 5, 0, 0, Zl);
-		if (sciErr.iErr)
+		if (returnDoubleMatrixToScilab(5, 0, 0, Zl))
 		{
-			printError(&sciErr, 0);
-			return 0;
+			return 1;
 		}
 
-		sciErr = createMatrixOfDouble(pvApiCtx, nbInputArgument(pvApiCtx) + 6, 0, 0, Zu);
-		if (sciErr.iErr)
+		if (returnDoubleMatrixToScilab(6, 0, 0, Zu))
 		{
-			printError(&sciErr, 0);
-			return 0;
+			return 1;
 		}
-	
-		sciErr = createMatrixOfDouble(pvApiCtx, nbInputArgument(pvApiCtx) + 7, 0, 0, Lambda);
-		if (sciErr.iErr)
+
+		if (returnDoubleMatrixToScilab(7, 0, 0, Lambda))
 		{
-			printError(&sciErr, 0);
-			return 0;
+			return 1;
 		}
-
-		AssignOutputVariable(pvApiCtx, 5) = nbInputArgument(pvApiCtx) + 5;
-		AssignOutputVariable(pvApiCtx, 6) = nbInputArgument(pvApiCtx) + 6;
-		AssignOutputVariable(pvApiCtx, 7) = nbInputArgument(pvApiCtx) + 7;
 	}
-		
 	// As the SmartPtrs go out of scope, the reference count
 	// will be decremented and the objects will automatically
 	// be deleted.
 
 	return 0;
 	}
-
 }
-
-/*
-hessian_constan
-jacobian _constant
-
-j_s_d constant : yes
-*/
-