Line data    Source code

       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           0 :     string version = PACKAGE_VERSION;
      18           0 :     strncpy(fversion, version.c_str(), length);
      19           0 :     for (size_t i = strlen(fversion); i < (unsigned) length; ++i) {
      20           0 :       fversion[i] = ' ';
      21             :     }
      22           0 :   }
      23             : 
      24             : }