gnu: Add mpb.

* gnu/packages/engineering.scm (mpb): New variable.

Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
This commit is contained in:
Theodoros Foradis 2017-06-22 22:09:56 +03:00 committed by Danny Milosavljevic
parent cbd9568fcd
commit 5e872d4b43
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5

View file

@ -64,6 +64,7 @@ (define-module (gnu packages engineering)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages qt)
#:use-module (gnu packages readline)
#:use-module (gnu packages swig)
#:use-module (gnu packages tcl)
#:use-module (gnu packages tls)
@ -905,3 +906,44 @@ (define-public guile-libctl
"Libctl is a Guile-based library implementing flexible control files
for scientific simulations.")
(license license:gpl2+)))
(define-public mpb
(package
(name "mpb")
(version "1.5")
(source (origin
(method url-fetch)
(uri
(string-append
"http://ab-initio.mit.edu/mpb/mpb-"
version ".tar.gz"))
(sha256
(base32
"1mqb2d8jq957nksayjygq58iy8i42vjryzg9iy5fpfay31wzxsix"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list (string-append "--with-libctl="
(assoc-ref %build-inputs "libctl")
"/share/libctl"))))
(native-inputs
`(("fortran" ,gfortran)
("pkg-config" ,pkg-config)
("swig" ,swig)))
(inputs
`(("fftw" ,fftw)
("gsl" ,gsl)
("guile" ,guile-2.2)
("hdf5" ,hdf5)
("lapack" ,lapack)
("libctl" ,guile-libctl)
("readline" ,readline)
("zlib" ,zlib)))
(home-page "http://ab-initio.mit.edu/wiki/index.php/MIT_Photonic_Bands")
(synopsis "Computes band structures and electromagnetic modes of dielectric
structures")
(description
"MIT Photonic-Bands (MPB) computes definite-frequency eigenstates (harmonic modes)
of Maxwell's equations in periodic dielectric structures for arbitrary wavevectors, using
fully-vectorial and three-dimensional methods.")
(license license:gpl2+)))