[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
09/09: gnu: superlu-dist: Remove non-free source.
From: |
Eric Bavier |
Subject: |
09/09: gnu: superlu-dist: Remove non-free source. |
Date: |
Thu, 21 Jul 2016 04:49:42 +0000 (UTC) |
bavier pushed a commit to branch master
in repository guix.
commit 29080870134c4ebc380d64a683d6445594357d2b
Author: Eric Bavier <address@hidden>
Date: Fri Jul 8 17:44:30 2016 -0500
gnu: superlu-dist: Remove non-free source.
* gnu/packages/maths.scm (superlu-dist)[source]: Replace non-free
mc64ad.c source with stub.
---
gnu/packages/maths.scm | 24 ++++++++++++++++++++++++
1 file changed, 24 insertions(+)
diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index 464cf8d..7b5b2ab 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -1281,6 +1281,30 @@ also provides threshold-based ILU factorization
preconditioners.")
"superlu_dist_" version ".tar.gz"))
(sha256
(base32 "1hnak09yxxp026blq8zhrl7685yip16svwngh1wysqxf8z48vzfj"))
+ (modules '((guix build utils)))
+ (snippet
+ ;; Replace the non-free implementation of MC64 with a stub
+ '(begin
+ (use-modules (ice-9 regex)
+ (ice-9 rdelim))
+ (call-with-output-file "SRC/mc64ad.c"
+ (lambda (port)
+ (display "
+#include <stdio.h>
+#include <stdlib.h>
+void mc64id_(int *a) {
+ fprintf (stderr, \"SuperLU_DIST: non-free MC64 not available.
Aborting.\\n\");
+ abort ();
+}
+void mc64ad_ (int *a, int *b, int *c, int *d, int *e, double *f, int *g,
+ int *h, int *i, int *j, int *k, double *l, int *m, int *n) {
+ fprintf (stderr, \"SuperLU_DIST: non-free MC64 not available.
Aborting.\\n\");
+ abort ();
+}\n" port)))
+ (delete-file "SRC/mc64ad.f.bak")
+ (substitute* "SRC/util.c" ;adjust default algorithm
+ (("RowPerm[[:blank:]]*=[[:blank:]]*LargeDiag")
+ "RowPerm = NOROWPERM"))))
(patches (search-patches "superlu-dist-scotchmetis.patch"))))
(build-system gnu-build-system)
(native-inputs
- branch master updated (b006ba5 -> 2908087), Eric Bavier, 2016/07/21
- 03/09: gnu: openmpi: Update to 1.10.3., Eric Bavier, 2016/07/21
- 06/09: gnu: petsc: Make header generation reproducible., Eric Bavier, 2016/07/21
- 01/09: gnu: Add libhilbert., Eric Bavier, 2016/07/21
- 04/09: gnu: openmpi: Make binaries reproducible., Eric Bavier, 2016/07/21
- 09/09: gnu: superlu-dist: Remove non-free source.,
Eric Bavier <=
- 08/09: gnu: slepc: Update to 3.7.1., Eric Bavier, 2016/07/21
- 07/09: gnu: petsc: Update to 3.7.2., Eric Bavier, 2016/07/21
- 02/09: gnu: superlu: Update to 5.2.1., Eric Bavier, 2016/07/21
- 05/09: gnu: petsc: Use modify-phases., Eric Bavier, 2016/07/21