00001 #ifndef AGILE_ALPGEN_WRAPPER_HH 00002 #define AGILE_ALPGEN_WRAPPER_HH 00003 00004 #include <ctype.h> 00005 #include "AGILe/FortranWrappers.hh" 00006 00007 00009 extern "C" { 00010 00011 // common/AHio/Nunit,NunitOut,NunitIni,filename 00012 #define FC_AHIO FC_FUNC(ahio, AHIO) 00013 extern struct { 00014 int NUNIT,NUNITOUT,NUNITINI; 00015 char FILENAME[100]; 00016 } FC_AHIO; 00017 00018 // Inputs for the matching algorithm: 00019 // integer iexc,npfst,nplst,nljets,njstart,njlast,ickkw 00020 // double precision etclus,rclus,etaclmax 00021 // common/AHopts/etclus,rclus,etaclmax,iexc,npfst,nplst,nljets,njstart,njlast,ickkw 00022 #define FC_AHOPTS FC_FUNC(ahopts, AHIO) 00023 extern struct { 00024 double ETCLUS,RCLUS,ETACLMAX; 00025 int IEXC,NPFST,NPLST,NLJETS,NJSTART,NJLAST,ICKKW; 00026 } FC_AHOPTS; 00027 00028 } 00029 00030 #endif