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

[brad at geodynamics.org]

Author: brad
Date: 2008-10-26 09:08:02 -0700 (Sun, 26 Oct 2008)
New Revision: 13132

Added:
   short/3D/PyLith/trunk/libsrc/utils/blas.h
Log:
Added missing header file.

Added: short/3D/PyLith/trunk/libsrc/utils/blas.h
===================================================================
--- short/3D/PyLith/trunk/libsrc/utils/blas.h	                        (rev 0)
+++ short/3D/PyLith/trunk/libsrc/utils/blas.h	2008-10-26 16:08:02 UTC (rev 13132)
@@ -0,0 +1,43 @@
+// -*- C++ -*-
+//
+// ======================================================================
+//
+//                           Brad T. Aagaard
+//                        U.S. Geological Survey
+//
+// {LicenseText}
+//
+// ======================================================================
+//
+
+/**
+ * @file pylith/utils/blas.h
+ *
+ * @brief Declarations for BLAS routines that we use. We rely on
+ * PETSc's interface to these routines.
+ */
+
+#if !defined(pylith_utils_blas_h)
+#define pylith_utils_blas_h
+
+extern "C" {
+  EXTERN void dgesvd(const char*,
+		     const char*,
+		     PetscBLASInt*,
+		     PetscBLASInt*,
+		     PetscScalar*,
+		     PetscBLASInt*,
+		     PetscReal*,
+		     PetscScalar*,
+		     PetscBLASInt*,
+		     PetscScalar*,
+		     PetscBLASInt*,
+		     PetscScalar*,
+		     PetscBLASInt*,
+		     PetscBLASInt*);
+}
+
+#endif // pylith_utils_blas_h
+
+
+// End of file