1 files changed, 106 insertions, 0 deletions
diff --git a/btl/libs/PBLAS/pblas.h b/btl/libs/PBLAS/pblas.h
new file mode 100644
index 0000000..be76e8f
--- /dev/null
+++ b/btl/libs/PBLAS/pblas.h
@@ -0,0 +1,106 @@
+//=====================================================
+// Copyright (C) 2011 Andrea Arteaga <andyspiros@gmail.com>
+//=====================================================
+//
+// This program is free software; you can redistribute it and/or
+// modify it under the terms of the GNU General Public License
+// as published by the Free Software Foundation; either version 2
+// of the License, or (at your option) any later version.
+//
+// This program is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+// GNU General Public License for more details.
+// You should have received a copy of the GNU General Public License
+// along with this program; if not, write to the Free Software
+// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+//
+#ifndef SCALAPACK_H_
+#define SCALAPACK_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+  int numroc_(const int*, const int*, const int*, const int*, const int*);
+  void descinit_(int*, const int*, const int*, const int*, const int*, const int*, const int*, const int*, const int*, int*);
+
+
+  /* Level 1 */
+
+  // Single
+  void psaxpy_(const int*, const float*,
+      const float*, const int*, const int*, const int*, const int*,
+      const float*, const int*, const int*, const int*, const int*
+  );
+
+  // Double
+  void pdaxpy_(const int*, const double*,
+      const double*, const int*, const int*, const int*, const int*,
+      const double*, const int*, const int*, const int*, const int*
+  );
+
+
+
+  /* Level 2 */
+
+  // Single
+  void psgemv_(const char*, const int*, const int*,
+    const float*, const float*, const int*, const int*, const int*,
+                  const float*, const int*, const int*, const int*, const int*,
+    const float*,       float*, const int*, const int*, const int*, const int*
+  );
+
+  // Double
+  void pdgemv_(const char*, const int*, const int*,
+    const double*, const double*, const int*, const int*, const int*,
+                   const double*, const int*, const int*, const int*, const int*,
+    const double*,       double*, const int*, const int*, const int*, const int*
+  );
+
+
+  /* Level 3 */
+
+  // Single
+  void pstrmm_(const char*, const char*, const char*, const char*, const int*, const int*, const  float*,
+      const  float*, const int*, const int*, const int*,
+             float*, const int*, const int*, const int*);
+
+  // Double
+  void pdtrmm_(const char*, const char*, const char*, const char*, const int*, const int*, const double*,
+      const double*, const int*, const int*, const int*,
+            double*, const int*, const int*, const int*);
+
+
+
+  /*************
+   * Scalapack *
+   *************/
+  // lu_decomp
+  void psgetrf_(const int*, const int*,  float*, const int*, const int*, const int*, int*, int*);
+  void pdgetrf_(const int*, const int*, double*, const int*, const int*, const int*, int*, int*);
+
+  // cholesky
+  void pspotrf_(const char*, const int*,  float*, const int*, const int*, const int*, int*);
+  void pdpotrf_(const char*, const int*, double*, const int*, const int*, const int*, int*);
+
+  // qr_decomp
+  void psgeqpf_(const int*, const int*,  float*, const int*, const int*, const int*, int*,  float*,  float*, const int*, int*);
+  void pdgeqpf_(const int*, const int*, double*, const int*, const int*, const int*, int*, double*, double*, const int*, int*);
+
+  // svd_decomp
+  void psgesvd_(const char*, const char*, const int*, const int*,  float*, const int*, const int*, const int*,  float*,  float*, const int*, const int*, const int*,  float*, const int*, const int*, const int*,  float*, const int*, int*);
+  void pdgesvd_(const char*, const char*, const int*, const int*, double*, const int*, const int*, const int*, double*, double*, const int*, const int*, const int*, double*, const int*, const int*, const int*, double*, const int*, int*);
+
+  // symm_ev
+  void pssyevd_(const char*, const char*, const int*,  float*, const int*, const int*, const int*,  float*,  float*, const int*, const int*, const int*,  float*, const int*, int*, const int*, int*);
+  void pdsyevd_(const char*, const char*, const int*, double*, const int*, const int*, const int*, double*, double*, const int*, const int*, const int*, double*, const int*, int*, const int*, int*);
+
+
+#ifdef __cplusplus
+}
+#endif
+
+
+
+#endif /* SCALAPACK_H_ */