all messages for Guix-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* [bug#28423] gnu: Add imb-openmpi.
@ 2017-09-11 20:40 Dave Love
  2017-09-11 20:47 ` Dave Love
  0 siblings, 1 reply; 10+ messages in thread
From: Dave Love @ 2017-09-11 20:40 UTC (permalink / raw)
  To: 28423

[-- Attachment #1: Type: text/plain, Size: 82 bytes --]

I'm not sure whether this should be in benchmark or in mpi, as an MPI
benchmark.


[-- Attachment #2: 0001-gnu-Add-imb-openmpi.patch --]
[-- Type: text/x-diff, Size: 3144 bytes --]

From b4807fe0ea923d9a92675a063384cfb397096f26 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Tue, 1 Aug 2017 17:56:03 +0100
Subject: [PATCH 1/4] gnu: Add imb-openmpi.

* mpi.scm (gnu, imb): New function.
(imb-openmpi): New package.
---
 gnu/packages/mpi.scm | 57 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)

diff --git a/gnu/packages/mpi.scm b/gnu/packages/mpi.scm
index 031bce035..6120b990c 100644
--- a/gnu/packages/mpi.scm
+++ b/gnu/packages/mpi.scm
@@ -199,3 +199,60 @@ This version has an implementation of `MPI_Init_thread' that provides
 ‘MPI_THREAD_MULTIPLE’.  This won't work correctly with all transports (e.g.
 openib), and the performance is generally worse than the vanilla openmpi
 package, which only provides ‘MPI_THREAD_FUNNELED’."))))
+
+;; Parameterized in anticipation of m(va)pich
+(define (imb mpi)
+  (package
+    (name (string-append "imb-" (package-name mpi)))
+    (version "2017.2")
+    (source
+     (origin
+      (method url-fetch)
+      (uri (let* ((parts (string-split version #\.) )
+                  (major (car parts))
+                  (minor (cadr parts)))
+             (string-append
+              "https://software.intel.com/sites/default/files/managed/76/6c/IMB_"
+              major "_Update" minor ".tgz")))
+      (sha256 (base32 "11nczxm686rsppmw9gjc2p2sxc0jniv5kv18yxm1lzp5qfh5rqyb"))))
+    (build-system gnu-build-system)
+    (inputs
+     `((,(package-name mpi) ,mpi)))
+    (propagated-inputs
+     `((,(package-name mpi) ,mpi)))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (delete 'configure)
+         (delete 'check)
+         (replace 'build
+           (lambda* _
+             (let ((mpi-home (dirname (dirname (which "mpicc")))))
+               (zero?
+                ;; Not safe for parallel build
+                (system
+                 (format #f "make -C imb/src -f make_mpich SHELL=sh MPI_HOME=~a"
+                         mpi-home))))))
+         (replace 'install
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((bin (string-append (assoc-ref outputs "out") "/bin")))
+               (mkdir-p bin)
+               (zero?
+                (system
+                 (string-append
+                  "cd imb/src && install -m755 IMB-IO IMB-EXT IMB-MPI1 IMB-NBC IMB-RMA "
+                  bin)))))))))
+    (home-page "https://software.intel.com/en-us/articles/intel-mpi-benchmarks")
+    (synopsis (format #f "Intel MPI Benchmarks, ~a version" (package-name mpi)))
+    (description (format #f "\
+A set of MPI performance measurements for point-to-point and global
+communication, and file, operations for a range of message sizes.
+The generated benchmark data fully characterize:
+ * Performance of a cluster system, including node performance,
+   network latency, and throughput;
+ * Efficiency of the MPI implementation.
+
+This is the ~a version" (package-name mpi)))
+    (license cpl1.0)))
+
+(define-public imb-openmpi (imb openmpi))
-- 
2.11.0


^ permalink raw reply related	[flat|nested] 10+ messages in thread

end of thread, other threads:[~2017-10-05  9:25 UTC | newest]

Thread overview: 10+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2017-09-11 20:40 [bug#28423] gnu: Add imb-openmpi Dave Love
2017-09-11 20:47 ` Dave Love
2017-09-12 13:06   ` Ludovic Courtès
2017-09-28 20:09     ` Ludovic Courtès
2017-10-02 20:45       ` Dave Love
2017-10-03 12:47         ` Ludovic Courtès
2017-10-03 16:57           ` Dave Love
2017-10-03 19:51             ` Ludovic Courtès
2017-10-04 15:32               ` Dave Love
2017-10-05  9:24                 ` bug#28423: " Ludovic Courtès

Code repositories for project(s) associated with this external index

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

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.