PyquenInterface/interface/PyquenWrapper.h

0001 #ifndef PYQUEN_WRAPPER_H
0002 #define PYQUEN_WRAPPER_H
0003
0004 /*
0005  *
0006  * Wrapper for FORTRAN version of PYQUEN
0007  *
0008  * Camelia Mironov
0009  *
0010  */
0011
0012 // PYQUEN routine declaration
0013
0014 extern "C" {
0015 void pyquen_(double& a, int& ifb, double& bfix, double& bmin, double& bmax);
0016 }
0017 #define PYQUEN pyquen_
0018
0019 extern "C" {
0020 void pyqver_(int&, int&, int&, int&);
0021 }
0022 #define PYQVER pyqver_
0023
0024 extern "C" {
0025 extern struct {
0026   double bgen;
0027 } plfpar_;
0028 }
0029 #define plfpar plfpar_
0030
0031 extern "C" {
0032 extern struct {
0033   double T0u;
0034   double tau0u;
0035   int nfu;
0036   int ienglu;
0037   int ianglu;
0038 } pyqpar_;
0039 }
0040 #define pyqpar pyqpar_
0041
0042 #endif  // PYQUEN_WRAPPER_H