02/02: gnu: Add pt-scotch32.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 1c25a52c4ab14338948a2e91108afc87859a1781
Author: Paul Garlick <address@hidden>
Date:   Thu Aug 24 15:56:45 2017 +0100

    gnu: Add pt-scotch32.
    
    * gnu/packages/maths.scm (pt-scotch32): New variable.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 gnu/packages/maths.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index 79cceec..7481636 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -2018,6 +2018,29 @@ YACC = bison -pscotchyy -y -b y
             (lambda _ (zero? (system* "make" "ptcheck"))))))))
     (synopsis "Programs and libraries for graph algorithms (with MPI)")))
 
+(define-public pt-scotch32
+  (package (inherit scotch32)
+    (name "pt-scotch32")
+    (propagated-inputs
+     `(("openmpi" ,openmpi)))                     ;headers include MPI headers
+    (arguments
+     (substitute-keyword-arguments (package-arguments scotch)
+       ((#:phases scotch-phases)
+        `(modify-phases ,scotch-phases
+           (replace 'build
+             (lambda _
+               (and
+                (zero? (system* "make"
+                                (format #f "-j~a" (parallel-job-count))
+                                "ptscotch" "ptesmumps"))
+                ;; Install the serial metis compatibility library
+                (zero? (system* "make" "-C" "libscotchmetis" "install")))))
+           (replace 'check
+             (lambda _
+               (zero? (system* "make" "ptcheck"))))))))
+    (synopsis
+     "Programs and libraries for graph algorithms (with MPI and 32-bit 
integers)")))
+
 (define-public metis
   (package
     (name "metis")