Index: tol/bmath/blinalg/tol_lapack.cpp
===================================================================
--- tol/bmath/blinalg/tol_lapack.cpp	(revision 4e5797658af084b64dea56fd13437ddec1c10447)
+++ tol/bmath/blinalg/tol_lapack.cpp	(revision a5b96086bf6b2f1adff99631fbb6e3f484f7740d)
@@ -68,5 +68,5 @@
   int n = S.Columns();
   double* X_ = X.GetData().GetBuffer();
-  int res = clapack_dpotrf(int(CblasRowMajor), LAPACK_UPLO(Uplo), n, X_, n);
+  int res = clapack_dpotrf( CblasRowMajor, LAPACK_UPLO(Uplo), n, X_, n );
   replicateTriang(X,Uplo,false);
   return(res);
@@ -103,5 +103,5 @@
   int n = A.Columns();
   double* X_ = X.GetData().GetBuffer();
-  int res = clapack_dpotri( int(CblasRowMajor), LAPACK_UPLO(Uplo), n, X_, n);
+  int res = clapack_dpotri( CblasRowMajor, LAPACK_UPLO(Uplo), n, X_, n );
   replicateTriang(X,Uplo,true);
   return(res);
Index: tol/bmath/blinalg/tol_lapack.h
===================================================================
--- tol/bmath/blinalg/tol_lapack.h	(revision 4e5797658af084b64dea56fd13437ddec1c10447)
+++ tol/bmath/blinalg/tol_lapack.h	(revision a5b96086bf6b2f1adff99631fbb6e3f484f7740d)
@@ -32,4 +32,5 @@
 #undef I
 #define LAPACK_UPLO(UpLo) (UpLo==CblasLower?'L':'U')
+#define LAPACK_ORDER(Order) (int)(order)
 #define clapack_dpotrf LAPACKE_dpotrf
 #define clapack_dpotri LAPACKE_dpotri
@@ -38,4 +39,5 @@
 #include <clapack.h>
 #define LAPACK_UPLO(UpLo) UpLo
+#define LAPACK_ORDER(Order) Order
 END_DECLS
 #endif
Index: tol/btol/vmatrix_type/vmat_chol.cpp
===================================================================
--- tol/btol/vmatrix_type/vmat_chol.cpp	(revision 4e5797658af084b64dea56fd13437ddec1c10447)
+++ tol/btol/vmatrix_type/vmat_chol.cpp	(revision a5b96086bf6b2f1adff99631fbb6e3f484f7740d)
@@ -39,5 +39,5 @@
   double* x = (double*)L.s_.blasRdense_->x;
   memcpy(x, y, n*n*sizeof(double));
-  res = clapack_dpotrf(CblasColMajor, LAPACK_UPLO(CblasLower), n, x, n);
+  res = clapack_dpotrf( CblasColMajor, LAPACK_UPLO(CblasLower), n, x, n );
   for(i=0; i<n; i++) for(j=i+1; j<n; j++) x[j*n+i] = 0;
   isOk = (res==0);