]> git.uio.no Git - u/mrichter/AliRoot.git/blob - LHAPDF/lhapdf5.5.1/src/version.cc
Restore support for g77
[u/mrichter/AliRoot.git] / LHAPDF / lhapdf5.5.1 / src / version.cc
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 }