Added new Euler methods to cpp simulation runtime

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@9379 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Jun 28, 2011 · 091670f · 091670f
1 parent f4b9d88
commit 091670f
Show file tree

Hide file tree

Showing 14 changed files with 1,165 additions and 425 deletions.
diff --git a/SimulationRuntime/cpp/Source/Math/Implementation/Functions.h b/SimulationRuntime/cpp/Source/Math/Implementation/Functions.h
@@ -138,7 +138,7 @@ inline int solveLGS(long int* dim, double* A, double* b)
 		double* p = new double[(int)*dim];		// Pivot elements
 
 		// Solution is written to b
-		dgesv_/*DGESV*/(dim,&dimRHS,A,dim,p,b,dim,&irtrn);
+		/*dgesv_*/dgesv_(dim,&dimRHS,A,dim,p,b,dim,&irtrn);
 
 		delete [] p;
 

diff --git a/SimulationRuntime/cpp/Source/Math/Interfaces/ILapack.h b/SimulationRuntime/cpp/Source/Math/Interfaces/ILapack.h
@@ -13,7 +13,7 @@
 *  system of equations A * X = B.
 ********************************/
 
-extern "C" void /*DGESV*/dgesv_(long int *n, long int *nrhs, double *J, long int *ldj, double *pivot, 
+extern "C" void dgesv_(long int *n, long int *nrhs, double *J, long int *ldj, double *pivot, 
 					  double *b, long int *ldb, long int *idid);