gnu: Add ATLAS.
* gnu/packages/maths.scm (atlas): New variable. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Federico Beffa
Ludovic Courtès
parent
822efdff8a
commit
ec322be248
|
|
@ -22,6 +22,7 @@
|
||||||
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
(define-module (gnu packages maths)
|
(define-module (gnu packages maths)
|
||||||
|
#:use-module (ice-9 regex)
|
||||||
#:use-module (gnu packages)
|
#:use-module (gnu packages)
|
||||||
#:use-module ((guix licenses) #:prefix license:)
|
#:use-module ((guix licenses) #:prefix license:)
|
||||||
#:use-module (guix packages)
|
#:use-module (guix packages)
|
||||||
|
|
@ -935,3 +936,121 @@ point numbers")
|
||||||
;; At least one file (src/maxima.asd) says "version 2."
|
;; At least one file (src/maxima.asd) says "version 2."
|
||||||
;; GPLv2 only is therefore the smallest subset.
|
;; GPLv2 only is therefore the smallest subset.
|
||||||
(license license:gpl2)))
|
(license license:gpl2)))
|
||||||
|
|
||||||
|
(define-public atlas
|
||||||
|
(package
|
||||||
|
(name "atlas")
|
||||||
|
(version "3.10.2")
|
||||||
|
(source (origin
|
||||||
|
(method url-fetch)
|
||||||
|
(uri (string-append "mirror://sourceforge/math-atlas/atlas"
|
||||||
|
version ".tar.bz2"))
|
||||||
|
(sha256
|
||||||
|
(base32
|
||||||
|
"0bqh4bdnjdyww4mcpg6kn0x7338mfqbdgysn97dzrwwb26di7ars"))))
|
||||||
|
(build-system gnu-build-system)
|
||||||
|
(home-page "http://math-atlas.sourceforge.net/")
|
||||||
|
(inputs `(("gfortran" ,gfortran-4.8)
|
||||||
|
("lapack-tar" ,(package-source lapack))))
|
||||||
|
(outputs '("out" "doc"))
|
||||||
|
(arguments
|
||||||
|
`(#:parallel-build? #f
|
||||||
|
#:parallel-tests? #f
|
||||||
|
#:modules ((srfi srfi-26)
|
||||||
|
(srfi srfi-1)
|
||||||
|
(guix build gnu-build-system)
|
||||||
|
(guix build utils))
|
||||||
|
#:configure-flags
|
||||||
|
`(;; Generate position independent code suitable for dynamic libraries
|
||||||
|
;; and use WALL timer to get more accurate timing.
|
||||||
|
"-Fa" "alg" "-fPIC" "-D" "c" "-DWALL"
|
||||||
|
;; Set word width.
|
||||||
|
"-b"
|
||||||
|
,,(if (string-match "64" (%current-system))
|
||||||
|
"64"
|
||||||
|
"32")
|
||||||
|
;; Disable parallel build as it gives errors: atlas_pthread.h is
|
||||||
|
;; needed to compile C files before it is generated.
|
||||||
|
"-Ss" "pmake" "make -j 1"
|
||||||
|
;; Generate shared libraries.
|
||||||
|
"--shared"
|
||||||
|
;; Build a full LAPACK library.
|
||||||
|
,(string-append "--with-netlib-lapack-tarfile="
|
||||||
|
(assoc-ref %build-inputs "lapack-tar")))
|
||||||
|
#:phases
|
||||||
|
(alist-cons-after
|
||||||
|
'install 'install-doc
|
||||||
|
(lambda* (#:key outputs inputs #:allow-other-keys)
|
||||||
|
(let ((doc (string-append (assoc-ref outputs "doc")
|
||||||
|
"/share/doc/atlas")))
|
||||||
|
(mkdir-p doc)
|
||||||
|
(fold (lambda (file previous)
|
||||||
|
(and previous (zero? (system* "cp" file doc))))
|
||||||
|
#t (find-files "../ATLAS/doc" ".*"))))
|
||||||
|
(alist-cons-after
|
||||||
|
'check 'check-pt
|
||||||
|
(lambda _ (zero? (system* "make" "ptcheck")))
|
||||||
|
;; Fix files required to run configure.
|
||||||
|
(alist-cons-before
|
||||||
|
'configure 'fix-/bin/sh
|
||||||
|
(lambda _
|
||||||
|
;; Use `sh', not `/bin/sh'.
|
||||||
|
(substitute* (find-files "." "Makefile|configure|SpewMakeInc\\.c")
|
||||||
|
(("/bin/sh")
|
||||||
|
"sh")))
|
||||||
|
;; Fix /bin/sh in generated make files.
|
||||||
|
(alist-cons-after
|
||||||
|
'configure 'fix-/bin/sh-in-generated-files
|
||||||
|
(lambda _
|
||||||
|
(substitute* (find-files "." "^[Mm]ake\\.inc.*")
|
||||||
|
(("/bin/sh")
|
||||||
|
"sh")))
|
||||||
|
;; ATLAS configure program does not accepts the default flags
|
||||||
|
;; passed by the 'gnu-build-system'.
|
||||||
|
(alist-replace
|
||||||
|
'configure
|
||||||
|
(lambda* (#:key native-inputs inputs outputs
|
||||||
|
(configure-flags '())
|
||||||
|
#:allow-other-keys #:rest args)
|
||||||
|
(let* ((prefix (assoc-ref outputs "out"))
|
||||||
|
(bash (or (and=> (assoc-ref
|
||||||
|
(or native-inputs inputs) "bash")
|
||||||
|
(cut string-append <> "/bin/bash"))
|
||||||
|
"/bin/sh"))
|
||||||
|
(flags `(,(string-append "--prefix=" prefix)
|
||||||
|
,@configure-flags))
|
||||||
|
(abs-srcdir (getcwd))
|
||||||
|
(srcdir (string-append "../" (basename abs-srcdir))))
|
||||||
|
(format #t "source directory: ~s (relative from build: ~s)~%"
|
||||||
|
abs-srcdir srcdir)
|
||||||
|
(mkdir "../build")
|
||||||
|
(chdir "../build")
|
||||||
|
(format #t "build directory: ~s~%" (getcwd))
|
||||||
|
(format #t "configure flags: ~s~%" flags)
|
||||||
|
(zero? (apply system* bash
|
||||||
|
(string-append srcdir "/configure")
|
||||||
|
flags))))
|
||||||
|
%standard-phases)))))))
|
||||||
|
(synopsis "Automatically Tuned Linear Algebra Software")
|
||||||
|
(description
|
||||||
|
"ATLAS is an automatically tuned linear algebra software library
|
||||||
|
providing C and Fortran77 interfaces to a portably efficient BLAS
|
||||||
|
implementation, as well as a few routines from LAPACK.
|
||||||
|
|
||||||
|
Optimization occurs at build time. For this reason you should build the
|
||||||
|
library on the maschine on which you will use it. The package must therefore
|
||||||
|
be installed without making use of substitutes. This can be achieved with the
|
||||||
|
following command:
|
||||||
|
|
||||||
|
\"guix package --no-substitutes -i atlas\"
|
||||||
|
|
||||||
|
In addition, before building the library, CPU throttling should be disabled.
|
||||||
|
This can be done in the BIOS, or, on Linux, with the following commands:
|
||||||
|
|
||||||
|
cpufreq-selector -g performance -c 0
|
||||||
|
...
|
||||||
|
cpufreq-selector -g performance -c N-1
|
||||||
|
|
||||||
|
where N is the number of cores of your CPU. Failure to do so will result in a
|
||||||
|
library with poor performance.")
|
||||||
|
(license license:bsd-3)))
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue