// see if we can use BLAS algorithms for this and if the type for 'number'
// works for us (it is usually not efficient to use BLAS for very small
// matrices):
-#if DEAL_II_WITH_LAPACK
+#ifdef DEAL_II_WITH_LAPACK
if ((types_are_equal<number,double>::value
||
types_are_equal<number,float>::value)
// see if we can use BLAS algorithms for this and if the type for 'number'
// works for us (it is usually not efficient to use BLAS for very small
// matrices):
-#if DEAL_II_WITH_LAPACK
+#ifdef DEAL_II_WITH_LAPACK
if ((types_are_equal<number,double>::value
||
types_are_equal<number,float>::value)
// see if we can use BLAS algorithms for this and if the type for 'number'
// works for us (it is usually not efficient to use BLAS for very small
// matrices):
-#if DEAL_II_WITH_LAPACK
+#ifdef DEAL_II_WITH_LAPACK
if ((types_are_equal<number,double>::value
||
types_are_equal<number,float>::value)
// see if we can use BLAS algorithms for this and if the type for 'number'
// works for us (it is usually not efficient to use BLAS for very small
// matrices):
-#if DEAL_II_WITH_LAPACK
+#ifdef DEAL_II_WITH_LAPACK
if ((types_are_equal<number,double>::value
||
types_are_equal<number,float>::value)
// works for us (it is usually not
// efficient to use Lapack for very small
// matrices):
-#if DEAL_II_WITH_LAPACK
+#ifdef DEAL_II_WITH_LAPACK
if (types_are_equal<number,double>::value
||
types_are_equal<number,float>::value)
inline void
syev (const char *jobz, const char *uplo, const int *n, double *A, const int *lda, double *w, double *work, const int *lwork, int *info)
{
- dsyev_ (char *jobz,char *uplo,int *n,double*A,int *lda,double*w,double*work,int *lwork,int *info);
+ dsyev_ (jobz,uplo,n,A,lda,w,work,lwork,info);
}
#else
inline void
inline void
syev (const char *jobz, const char *uplo, const int *n, float *A, const int *lda, float *w, float *work, const int *lwork, int *info)
{
- ssyev_ (char *jobz,char *uplo,int *n,double*A,int *lda,double*w,double*work,int *lwork,int *info);
+ ssyev_ (jobz,uplo,n,A,lda,w,work,lwork,info);
}
#else
inline void