Line data Source code
1 : /*
2 : !
3 : ! Copyright 2017, L. Hüdepohl and A. Marek, MPCDF
4 : !
5 : ! This file is part of ELPA.
6 : !
7 : ! The ELPA library was originally created by the ELPA consortium,
8 : ! consisting of the following organizations:
9 : !
10 : ! - Max Planck Computing and Data Facility (MPCDF), formerly known as
11 : ! Rechenzentrum Garching der Max-Planck-Gesellschaft (RZG),
12 : ! - Bergische Universität Wuppertal, Lehrstuhl für angewandte
13 : ! Informatik,
14 : ! - Technische Universität München, Lehrstuhl für Informatik mit
15 : ! Schwerpunkt Wissenschaftliches Rechnen ,
16 : ! - Fritz-Haber-Institut, Berlin, Abt. Theorie,
17 : ! - Max-Plack-Institut für Mathematik in den Naturwissenschaften,
18 : ! Leipzig, Abt. Komplexe Strukutren in Biologie und Kognition,
19 : ! and
20 : ! - IBM Deutschland GmbH
21 : !
22 : ! This particular source code file contains additions, changes and
23 : ! enhancements authored by Intel Corporation which is not part of
24 : ! the ELPA consortium.
25 : !
26 : ! More information can be found here:
27 : ! http://elpa.mpcdf.mpg.de/
28 : !
29 : ! ELPA is free software: you can redistribute it and/or modify
30 : ! it under the terms of the version 3 of the license of the
31 : ! GNU Lesser General Public License as published by the Free
32 : ! Software Foundation.
33 : !
34 : ! ELPA is distributed in the hope that it will be useful,
35 : ! but WITHOUT ANY WARRANTY; without even the implied warranty of
36 : ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
37 : ! GNU Lesser General Public License for more details.
38 : !
39 : ! You should have received a copy of the GNU Lesser General Public License
40 : ! along with ELPA. If not, see <http://www.gnu.org/licenses/>
41 : !
42 : ! ELPA reflects a substantial effort on the part of the original
43 : ! ELPA consortium, and we ask you to respect the spirit of the
44 : ! license that we chose: i.e., please contribute any changes you
45 : ! may have back to the original ELPA library distribution, and keep
46 : ! any derivatives of ELPA under the same license that we chose for
47 : ! the original distribution, the GNU Lesser General Public License.
48 : !
49 : */
50 :
51 : #include <elpa/elpa.h>
52 :
53 : /*
54 : !pf> interface
55 : !pf> pure function elpa_strerr_c(elpa_error) result(string) bind(C, name="elpa_strerr")
56 : !pf> import c_int, c_ptr
57 : !pf> integer(kind=c_int), intent(in), value :: elpa_error
58 : !pf> type(c_ptr) :: string
59 : !pf> end function
60 : !pf> end interface
61 : */
62 0 : const char *elpa_strerr(int elpa_error) {
63 : #define NAME_CASE(name, value) \
64 : case value: \
65 : return #name;
66 :
67 0 : switch(elpa_error) {
68 0 : ELPA_FOR_ALL_ERRORS(NAME_CASE)
69 : default:
70 0 : return "(Unknown error code)";
71 : }
72 : }
|