[cig-commits] r13136 - short/3D/PyLith/trunk/libsrc/utils

[brad at geodynamics.org]

Author: brad
Date: 2008-10-27 10:44:02 -0700 (Mon, 27 Oct 2008)
New Revision: 13136

Modified:
   short/3D/PyLith/trunk/libsrc/utils/lapack.h
Log:
Finally figured out PETSc's conventions for interfacing with LAPACK- need to explicitly include petscblaslapack header file.

Modified: short/3D/PyLith/trunk/libsrc/utils/lapack.h
===================================================================
--- short/3D/PyLith/trunk/libsrc/utils/lapack.h	2008-10-26 23:25:41 UTC (rev 13135)
+++ short/3D/PyLith/trunk/libsrc/utils/lapack.h	2008-10-27 17:44:02 UTC (rev 13136)
@@ -13,32 +13,16 @@
 /**
  * @file pylith/utils/lapack.h
  *
- * @brief Declarations for BLAS routines that we use. We rely on
+ * @brief Declarations for LAPACK routines that we use. We rely on
  * PETSc's interface to these routines.
  */
 
 #if !defined(pylith_utils_lapack_h)
 #define pylith_utils_lapack_h
 
-#define lapack_dgesvd dgesvd_
+#include <petscblaslapack.h>
+#define lapack_dgesvd LAPACKgesvd_
 
-extern "C" {
-  EXTERN void lapack_dgesvd(const char*,
-			    const char*,
-			    PetscBLASInt*,
-			    PetscBLASInt*,
-			    PetscScalar*,
-			    PetscBLASInt*,
-			    PetscReal*,
-			    PetscScalar*,
-			    PetscBLASInt*,
-			    PetscScalar*,
-			    PetscBLASInt*,
-			    PetscScalar*,
-			    PetscBLASInt*,
-			    PetscBLASInt*);
-}
-
 #endif // pylith_utils_lapack_h