futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: scotch, pt-scotch: Build esmumps libraries.

Browse Source 
* gnu/packages/maths.scm (scotch)[arguments]: Add 'build-esmumps
  phase.  Install esmumps libraries and headers in 'install phase.
  (pt-scotch)[arguments]: Build ptesmumps in 'build phase.  Add
  make parallelism.
This commit is contained in:
Eric Bavier 2015-06-15 06:00:01 -05:00
parent d6602ee9d4
commit cf0ec6c46e
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
gnu/packages/maths.scm
View File

@ -818,6 +818,7 @@ OBJ = .o
MAKE = make MAKE = make
AR = ar AR = ar
ARFLAGS = -ruv ARFLAGS = -ruv
CAT = cat
CCS = gcc CCS = gcc
CCP = mpicc CCP = mpicc
CCD = gcc CCD = gcc
@ -835,10 +836,18 @@ YACC = bison -pscotchyy -y -b y
'("COMMON_FILE_COMPRESS_GZ" '("COMMON_FILE_COMPRESS_GZ"
"COMMON_PTHREAD" "COMMON_PTHREAD"
"COMMON_RANDOM_FIXED_SEED" "COMMON_RANDOM_FIXED_SEED"
;; Prevents symbolc clashes with libesmumps
"SCOTCH_RENAME"
;; XXX: Causes invalid frees in superlu-dist tests ;; XXX: Causes invalid frees in superlu-dist tests
;; "SCOTCH_PTHREAD" ;; "SCOTCH_PTHREAD"
;; "SCOTCH_PTHREAD_NUMBER=2" ;; "SCOTCH_PTHREAD_NUMBER=2"
"restrict=__restrict")))))) "restrict=__restrict"))))))
(add-after
'build 'build-esmumps
(lambda _
(zero? (system* "make"
(format #f "-j~a" (parallel-job-count))
"esmumps"))))
(replace (replace
'install 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
@ -846,7 +855,14 @@ YACC = bison -pscotchyy -y -b y
(mkdir out) (mkdir out)
(zero? (system* "make" (zero? (system* "make"
(string-append "prefix=" out) (string-append "prefix=" out)
"install")))))))) "install"))
;; esmumps files are not installed with the above
(for-each (lambda (f)
(copy-file f (string-append out "/include/" f)))
(find-files "../include" ".*esmumps.h$"))
(for-each (lambda (f)
(copy-file f (string-append out "/lib/" f)))
(find-files "../lib" "^lib.*esmumps.*"))))))))
(home-page "http://www.labri.fr/perso/pelegrin/scotch/") (home-page "http://www.labri.fr/perso/pelegrin/scotch/")
(synopsis "Programs and libraries for graph algorithms") (synopsis "Programs and libraries for graph algorithms")
(description "SCOTCH is a set of programs and libraries which implement (description "SCOTCH is a set of programs and libraries which implement
@ -870,10 +886,11 @@ bio-chemistry.")
`(modify-phases ,scotch-phases `(modify-phases ,scotch-phases
(replace (replace
'build 'build
;; TODO: Would like to add parallelism here
(lambda _ (lambda _
(and (and
(zero? (system* "make" "ptscotch")) (zero? (system* "make"
(format #f "-j~a" (parallel-job-count))
"ptscotch" "ptesmumps"))
;; Install the serial metis compatibility library ;; Install the serial metis compatibility library
(zero? (system* "make" "-C" "libscotchmetis" "install"))))) (zero? (system* "make" "-C" "libscotchmetis" "install")))))
(replace (replace