Eigenvalue SoLvers for Petaflop-Applications (ELPA)
- http://elpa.mpcdf.mpg.de
- The ELPA library was originally created by the ELPA consortium, consisting of the following organizations:
- Max Planck Computing and Data Facility (MPCDF) formerly known as Rechenzentrum Garching der Max-Planck-Gesellschaft (RZG),
- Bergische Universität Wuppertal, Lehrstuhl für angewandte Informatik,
- Technische Universität München, Lehrstuhl für Informatik mit Schwerpunkt Wissenschaftliches Rechnen ,
- Fritz-Haber-Institut, Berlin, Abt. Theorie,
- Max-Plack-Institut für Mathematik in den Naturwissenschaften, Leipzig, Abt. Komplexe Strukutren in Biologie und Kognition, and
- IBM Deutschland GmbH
Some parts and enhancements of ELPA have been contributed and authored by the Intel Corporation and Nvidia Corporation, which are not part of the ELPA consortium.
Maintainance and development of the ELPA library is done by the Max Planck Computing and Data Facility (MPCDF)
Futher support of the ELPA library is done by the ELPA-AEO consortium, consisting of the following organizations:
- Max Planck Computing and Data Facility (MPCDF) formerly known as Rechenzentrum Garching der Max-Planck-Gesellschaft (RZG),
- Bergische Universität Wuppertal, Lehrstuhl für angewandte Informatik,
- Technische Universität München, Lehrstuhl für Informatik mit Schwerpunkt Wissenschaftliches Rechnen ,
- Technische Universität München, Lehrstuhl für theoretische Chemie,
- Fritz-Haber-Institut, Berlin, Abt. Theorie
Contributions to the ELPA source have been authored by (in alphabetical order):
- Author
- T. Auckenthaler, Volker Blum, A. Heinecke, L. Huedepohl, R. Johanni, Werner Jürgens, Pavel Kus, and A. Marek
All the important information is in the elpa_api::elpa_t derived type
Abstract definition of the elpa_t type
A typical usage of ELPA might look like this:
Fortran synopsis
class(elpa_t), pointer :: elpa
integer :: success
print *, "ELPA API version not supported"
stop
endif
if (success
print *,"Could not allocate ELPA"
endif
call elpa%set(
"na", na, success, success)
if (success
print *,"Could not set entry"
endif