unofficial mirror of guix-patches@gnu.org 
 help / color / mirror / code / Atom feed
From: "Maurice Brémond" <Maurice.Bremond@inria.fr>
To: 39588@debbugs.gnu.org
Subject: [bug#39588] gnu: Add mpich, scalapack-mpich, mumps-mpich, pt-scotch-mpich, python-mpi4py-mpich
Date: Thu, 13 Feb 2020 11:44:07 +0100	[thread overview]
Message-ID: <87blq2rclk.fsf@inria.fr> (raw)

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: gnu: Add mpich, scalapack-mpich, mumps-mpich, pt-scotch-mpich, python-mpi4py-mpich --]
[-- Type: text/x-diff, Size: 8133 bytes --]

From 4ba3d43d97389c76a06c342d4c4ee91f02d8aaf1 Mon Sep 17 00:00:00 2001
From: Maurice Bremond <Maurice.Bremond@inria.fr>
Date: Thu, 23 Jan 2020 15:48:41 +0100
Subject: [PATCH] gnu: Add mpich, scalapack-mpich, mumps-mpich,
 pt-scotch-mpich, python-mpi4py-mpich.

---
 gnu/packages/maths.scm |  34 +++++++++++++
 gnu/packages/mpi.scm   | 108 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 142 insertions(+)

diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index 8f4478b6bb..feba11663f 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -643,6 +643,14 @@ singular value problems.")
     (license (license:non-copyleft "file://LICENSE"
                                    "See LICENSE in the distribution."))))
 
+(define-public scalapack-mpich
+  (package
+    (inherit scalapack)
+    (name "scalapack-mpich")
+    (inputs
+     `(("mpi" ,mpich)
+       ,@(alist-delete "mpi" (package-inputs scalapack))))))
+
 (define-public gnuplot
   (package
     (name "gnuplot")
@@ -2371,6 +2379,24 @@ sparse system of linear equations A x = b using Gaussian elimination.")
     (inputs
      (alist-delete "pt-scotch" (package-inputs mumps-openmpi)))))
 
+(define-public mumps-mpich
+  (package (inherit mumps)
+    (name "mumps-mpich")
+    (inputs
+     `(("mpi" ,mpich)
+       ("scalapack" ,scalapack-mpich)
+       ("pt-scotch" ,pt-scotch-mpich)
+       ,@(alist-delete "scotch" (package-inputs mumps))))
+    (arguments
+     (substitute-keyword-arguments (package-arguments mumps)
+       ((#:phases phases)
+        `(modify-phases ,phases
+           (replace 'check
+             (lambda _
+               ((assoc-ref ,phases 'check)
+                #:exec-prefix '("mpirun" "-genv" "LD_LIBRARY_PATH" "../lib" "-n" "2" ))))))))
+    (synopsis "Multifrontal sparse direct solver (with MPI)")))
+
 (define-public ruby-asciimath
   (package
     (name "ruby-asciimath")
@@ -2729,6 +2755,14 @@ YACC = bison -pscotchyy -y -b y
                (invoke "make" "ptcheck")))))))
     (synopsis "Programs and libraries for graph algorithms (with MPI)")))
 
+(define-public pt-scotch-mpich
+  (package
+    (inherit pt-scotch)
+    (name "pt-scotch-mpich")
+    (inputs
+     `(("mpi" ,mpich)
+       ,@(alist-delete "mpi" (package-inputs pt-scotch))))))
+
 (define-public pt-scotch32
   (package (inherit scotch32)
     (name "pt-scotch32")
diff --git a/gnu/packages/mpi.scm b/gnu/packages/mpi.scm
index 00e0d12eab..3f644e7dbb 100644
--- a/gnu/packages/mpi.scm
+++ b/gnu/packages/mpi.scm
@@ -29,16 +29,23 @@
   #:use-module ((guix licenses)
                 #:hide (expat))
   #:use-module (guix download)
+  #:use-module (guix git-download)
   #:use-module (guix utils)
   #:use-module (guix deprecation)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system python)
   #:use-module (gnu packages)
+  #:use-module (gnu packages autogen)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages bash)
   #:use-module (gnu packages fabric-management)
+  #:use-module (gnu packages gawk)
   #:use-module (gnu packages gcc)
   #:use-module (gnu packages java)
   #:use-module (gnu packages libevent)
   #:use-module (gnu packages linux)
+  #:use-module (gnu packages m4)
   #:use-module (gnu packages pciutils)
   #:use-module (gnu packages xorg)
   #:use-module (gnu packages gtk)
@@ -47,6 +54,7 @@
   #:use-module (gnu packages ncurses)
   #:use-module (gnu packages parallel)
   #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages version-control)
   #:use-module (gnu packages valgrind)
   #:use-module (srfi srfi-1)
   #:use-module (ice-9 match))
@@ -393,3 +401,103 @@ supports point-to-point and collective communications of any picklable Python
 object as well as optimized communications of Python objects (such as NumPy
 arrays) that expose a buffer interface.")
     (license bsd-3)))
+
+(define-public mpich
+   (package
+     (name "mpich")
+     (version "3.4a2")
+     (source (origin
+               (method git-fetch)
+               (uri (git-reference
+                     (url "https://github.com/pmodels/mpich")
+                     (commit "644051d13dc20aecd460ba3db088756659c3dad3") ; tag v3.4a2
+                     (recursive? #t)))
+               (sha256
+                (base32
+                 "02ildr7wh40q1qaq5k8npb6vw6kv9szmrm3lspr6skqa5csmrrxw"))))
+     (build-system gnu-build-system)
+     (inputs
+      `(("libnuma" ,numactl))) ; for ch4:ucx
+     (native-inputs
+      `(("gawk" ,gawk)
+        ("bash" ,bash)
+        ("diffutils" ,diffutils)
+        ("git" ,git)
+        ("sed" ,sed)
+        ("perl" ,perl)
+        ("patch" ,patch)
+        ("findutils" ,findutils)
+        ("m4" ,m4)
+        ("grep" ,grep)
+        ("which" ,which)
+        ("gfortran" ,gfortran)
+        ("gcc" ,gcc)
+        ("gnu-make" ,gnu-make)
+        ("autoconf" ,autoconf)
+        ("automake" ,automake)
+        ("libtool" ,libtool)
+        ("autogen" ,autogen)
+        ("zlib" ,(@ (gnu packages compression) zlib))))
+     (outputs '("out" "debug"))
+     (arguments
+      `(#:modules ((ice-9 match)
+                   (ice-9 popen)
+                   (srfi srfi-1)
+                   ,@%gnu-build-system-modules)
+        #:configure-flags
+        '("--disable-dependency-tracking"
+          "--enable-debuginfo"
+          "--with-device=ch4:ucx") ; --with-device=ch4:ofi segfault in tests
+        #:phases
+        (modify-phases %standard-phases
+          (add-after 'unpack 'patch-sources
+            (lambda _
+              (substitute* "./maint/gen_subcfg_m4"
+                (("/usr/bin/env") (which "env")))
+              (substitute* "src/glue/romio/all_romio_symbols"
+                (("/usr/bin/env") (which "env")))
+              (substitute* (find-files "." "buildiface")
+                (("/usr/bin/env") (which "env")))
+              (substitute* "maint/extracterrmsgs"
+                (("/usr/bin/env") (which "env")))
+              (substitute* (find-files "." "f77tof90")
+                (("/usr/bin/env") (which "env")))
+              (substitute* (find-files "." "\\.sh$")
+                (("/bin/sh") (which "sh")))))
+          (add-after 'bootstrap 'patch-after-bootstrap
+                     (lambda _
+                       (use-modules (ice-9 popen)
+                                    (ice-9 rdelim))
+                       (substitute* "maint/configure"
+                                    (("/bin/sh") (which "sh")))
+                       (with-directory-excursion
+                        "maint"
+                        (invoke "sh" "./configure")
+                        (let ((cvardirs
+                               (let* ((p (open-pipe* OPEN_READ
+                                                     "cat" "cvardirs"))
+                                      (l (read-line p)))
+                                 (and (zero? (close-pipe p)) l))))
+                          (invoke "perl" "extractcvars" "--dirs" cvardirs))))))))
+     (home-page "https://www.mpich.org/")
+     (synopsis "MPICH is a high performance and widely portable
+implementation of the Message Passing Interface (MPI) standard.")
+     (description "MPICH is a high-performance and widely portable
+implementation of the Message Passing Interface (MPI) standard (MPI-1,
+MPI-2 and MPI-3). The goals of MPICH are: (1) to provide an MPI
+implementation that efficiently supports different computation and
+communication platforms including commodity clusters (desktop systems,
+shared-memory systems, multicore architectures), high-speed
+networks (10 Gigabit Ethernet, InfiniBand, Myrinet, Quadrics) and
+proprietary high-end computing systems (Blue Gene, Cray) and (2) to
+enable cutting-edge research in MPI through an easy-to-extend modular
+framework for other derived implementations.")
+     (license bsd-2)))
+
+(define-public python-mpi4py-mpich
+  (package
+    (inherit python-mpi4py)
+    (name "python-mpi4py-mpich")
+    (inputs
+     `(("mpi" ,mpich)
+       ,@(alist-delete "mpi" (package-inputs python-mpi4py))))))
-- 
2.17.1

             reply	other threads:[~2020-02-13 14:36 UTC|newest]

Thread overview: 28+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2020-02-13 10:44 Maurice Brémond [this message]
2020-02-17 17:26 ` [bug#39588] gnu: Add mpich, scalapack-mpich, mumps-mpich, pt-scotch-mpich, python-mpi4py-mpich Ludovic Courtès
2020-02-17 18:20   ` zimoun
2020-02-20  9:08     ` Ludovic Courtès
2020-02-20 10:23       ` zimoun
2020-02-21  8:03         ` Ludovic Courtès
2020-02-21  8:40           ` zimoun
2020-02-25 16:41         ` zimoun
2020-10-15 19:50       ` zimoun
2020-10-16  9:32         ` Ludovic Courtès
2020-10-16 11:46           ` zimoun
2020-10-19 13:46             ` Maurice Brémond
2020-10-20 20:55               ` Ludovic Courtès
2020-10-23  9:33                 ` Maurice Brémond
2020-10-23 15:26                   ` Ludovic Courtès
2020-10-23 17:04                     ` Maurice Brémond
2020-11-02 14:02                       ` bug#39588: " Ludovic Courtès
2020-10-21 14:43               ` [bug#39588] (off-topic) double time-machine explanations zimoun
2020-10-23  8:41                 ` Maurice Brémond
2020-02-18 17:58   ` [bug#39588] gnu: Add mpich, scalapack-mpich, mumps-mpich, pt-scotch-mpich, python-mpi4py-mpich Maurice Brémond
2020-02-18 18:22     ` zimoun
2020-02-19 11:45       ` Maurice Brémond
2020-02-19 12:11         ` zimoun
2020-02-19 13:34     ` zimoun
2020-02-21  9:01       ` Maurice Brémond
2020-02-20  9:38     ` Ludovic Courtès
2020-02-21  8:46       ` Maurice Brémond
2020-02-21 11:32         ` Ludovic Courtès

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://guix.gnu.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87blq2rclk.fsf@inria.fr \
    --to=maurice.bremond@inria.fr \
    --cc=39588@debbugs.gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).