ported r44669 [BLAS.h] from trunk

git-svn-id: https://svn.r-project.org/R/branches/R-2-6-branch@44670 00db46b3-68df-0310-9c12-caf00c1e9a41
wch · Mar 4, 2008 · cd847f5 · cd847f5
1 parent e543fd2
commit cd847f5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/include/R_ext/BLAS.h b/src/include/R_ext/BLAS.h
@@ -225,7 +225,7 @@ F77_NAME(dsyr2k)(const char *uplo, const char *trans,
 */
 
 /* Double complex BLAS routines added for 2.3.0 */
-#ifdef HAVE_FORTRAN_DOUBLE_COMPLEX
+/* #ifdef HAVE_FORTRAN_DOUBLE_COMPLEX */
     extern double
     F77_NAME(dcabs1)(double *z);
     extern double
@@ -352,7 +352,7 @@ F77_NAME(dsyr2k)(const char *uplo, const char *trans,
     extern void 
     F77_NAME(ztrsv)(char *uplo, char *trans, char *diag, int *n,
 		    Rcomplex *a, int *lda, Rcomplex *x, int *incx);
-#endif
+/* #endif */
 
 #ifdef  __cplusplus
 }