|
@@ -13,7 +13,7 @@ void VECT_OP_FUNC(VPrint)( cmRpt_t* rpt, const char* fmt, ... )
|
13
|
13
|
va_end(vl);
|
14
|
14
|
}
|
15
|
15
|
|
16
|
|
-void VECT_OP_FUNC(Printf)( cmRpt_t* rpt, unsigned rowCnt, unsigned colCnt, const VECT_OP_TYPE* sbp, unsigned fieldWidth, unsigned decPlCnt, const char* fmt, unsigned flags )
|
|
16
|
+void VECT_OP_FUNC(Printf)( cmRpt_t* rpt, unsigned rowCnt, unsigned colCnt, const VECT_OP_TYPE* sbp, int fieldWidth, int decPlCnt, const char* fmt, unsigned flags )
|
17
|
17
|
{
|
18
|
18
|
unsigned cci;
|
19
|
19
|
unsigned outColCnt = 10;
|
|
@@ -1287,8 +1287,12 @@ VECT_OP_TYPE* VECT_OP_FUNC(LUInverse)(VECT_OP_TYPE* dp, int_lap_t* ipiv, int drn
|
1287
|
1287
|
// Calculate the NB factor for LWORK -
|
1288
|
1288
|
// The two args are length of string args 'funcNameStr' and ' '.
|
1289
|
1289
|
// It is not clear how many 'n' args are requred so all are passed set to 'drn'
|
|
1290
|
+#ifdef OS_OSX
|
|
1291
|
+ int nb = ilaenv_(&ispec, funcNameStr, " ", &n1,&n2,&n3,&n4 );
|
|
1292
|
+#else
|
1290
|
1293
|
int nb = ilaenv_(&ispec, funcNameStr, " ", &n1,&n2,&n3,&n4, strlen(funcNameStr), 1 );
|
1291
|
|
-
|
|
1294
|
+#endif
|
|
1295
|
+
|
1292
|
1296
|
VECT_OP_TYPE w[drn * nb]; // allocate working memory
|
1293
|
1297
|
int_lap_t info;
|
1294
|
1298
|
|