CMSSW Reference Manual

00001 #ifndef PYQUEN_WRAPPER_H
00002 #define PYQUEN_WRAPPER_H
00003 
00004 /*
00005  *
00006  * Wrapper for FORTRAN version of PYQUEN
00007  * $Id: PyquenWrapper.h,v 1.4 2007/10/05 15:21:52 loizides Exp $
00008  *
00009  * Camelia Mironov
00010  *
00011  */
00012                                                        
00013 // PYQUEN routine declaration
00014 
00015 extern "C" {
00016   void pyquen_(double& a,int& ifb,double& bfix);
00017 }
00018 #define PYQUEN pyquen_ 
00019 
00020 extern "C" {
00021   extern struct{
00022     double bgen;
00023   }plfpar_;
00024 }
00025 #define plfpar plfpar_
00026 
00027 extern "C" {
00028   extern struct{
00029     double T0u;
00030     double tau0u;
00031     int   nfu;
00032     int   ienglu;
00033     int   ianglu;
00034   }pyqpar_;
00035 }
00036 #define pyqpar pyqpar_
00037 
00038 #endif  // PYQUEN_WRAPPER_H