- Upgrade scalapack to 2.0.2 and stagify

- Bump PORTREVISION for consumers.

1 files changed, 36 insertions, 0 deletions

diff --git a/math/scalapack/files/scalapack.h b/math/scalapack/files/scalapack.h
new file mode 100644
index 000000000000..63950b49c69f
--- /dev/null
+++ b/math/scalapack/files/scalapack.h
@@ -0,0 +1,36 @@
+# It's no more possible to generate this header with f2c due to post-F77 clauses.
+# Obtained from
+# http://icl.cs.utk.edu/lapack-forum/viewtopic.php?t=271
+
+extern void   pdlawrite_( char **filenam, int *m, int *n, double *A, int *ia, int *ja, int *descA, int *irwrit, int *icwrit, double *work);
+extern void   pdelset_( double *A, int *ia, int *ja, int *desca, double *alpha);
+extern double pdlamch_( int *ictxt, char *cmach);
+extern int    indxg2p_( int *indxglob, int *nb, int *iproc, int *isrcproc, int *nprocs);
+extern int    indxg2l_( int *indxglob, int *nb, int *iproc, int *isrcproc, int *nprocs);
+extern int    numroc_( int *n, int *nb, int *iproc, int *isrcproc, int *nprocs);
+extern void   descinit_( int *desc, int *m, int *n, int *mb, int *nb, int *irsrc, int *icsrc,
+	int *ictxt, int *lld, int *info);
+extern void   pdlaset_( char *uplo, int *m, int *n, double *alpha, double *beta, double *A, int *ia, int *ja, int *descA );
+extern double pdlange_( char *norm, int *m, int *n, double *A, int *ia, int *ja, int *desca, double *work);
+extern void   pdlacpy_( char *uplo, int *m, int *n, double *a, int *ia, int *ja, int *desca,
+	double *b, int *ib, int *jb, int *descb);
+extern void   pdgesv_( int *n, int *nrhs, double *A, int *ia, int *ja, int *desca, int* ipiv,
+	double *B, int *ib, int *jb, int *descb, int *info);
+extern void   pdgesvd_( char *jobu, char *jobvt, int *m, int *n, double *a, int *ia, int *ja, int *desca,
+	double *s, double *u, int *iu, int *ju, int *descu,
+	double *vt, int *ivt, int *jvt, int *descvt, double *work, int *lwork, int *info);
+extern void   pdgemm_( char *TRANSA, char *TRANSB, int * M, int * N, int * K, double * ALPHA,
+	double * A, int * IA, int * JA, int * DESCA, double * B, int * IB, int * JB, int * DESCB,
+	double * BETA, double * C, int * IC, int * JC, int * DESCC );
+extern int    indxg2p_( int *indxglob, int *nb, int *iproc, int *isrcproc, int *nprocs);
+
+#ifdef F77_WITH_NO_UNDERSCORE
+#define   numroc_      numroc
+#define   descinit_    descinit
+#define   pdlamch_     pdlamch
+#define   pdlange_     pdlange
+#define   pdlacpy_     pdlacpy
+#define   pdgesv_      pdgesv
+#define   pdgemm_      pdgemm
+#define   indxg2p_     indxg2p
+#endif