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 { double bgen; } plfpar_;
0026 }
0027 #define plfpar plfpar_
0028
0029 extern "C" {
0030 extern struct {
0031   double T0u;
0032   double tau0u;
0033   int nfu;
0034   int ienglu;
0035   int ianglu;
0036 } pyqpar_;
0037 }
0038 #define pyqpar pyqpar_
0039
0040 #endif  // PYQUEN_WRAPPER_H