]>
Commit | Line | Data |
---|---|---|
0caf84a5 | 1 | #include "LHAPDF/FortranWrappers.h" |
2 | #include <string> | |
3 | #include <cstring> | |
4 | #include <cassert> | |
5 | ||
6 | using namespace std; | |
7 | ||
8 | #ifndef PACKAGE_VERSION | |
9 | #define PACKAGE_VERSION "5.x.x" | |
10 | #endif | |
11 | ||
12 | ||
13 | extern "C" { | |
14 | ||
15 | #define fgetlhapdfversion FC_FUNC(getlhapdfversion, GETLHAPDFVERSION) | |
16 | void fgetlhapdfversion(char* fversion, int length) { | |
17 | string version = PACKAGE_VERSION; | |
18 | strncpy(fversion, version.c_str(), length); | |
19 | for (size_t i = strlen(fversion); i < (unsigned) length; ++i) { | |
20 | fversion[i] = ' '; | |
21 | } | |
22 | } | |
23 | ||
24 | } |