Back to home page

Project CMSSW displayed by LXR

 
 

    


File indexing completed on 2023-03-17 11:04:38

0001 #ifndef GeneratorInterface_HijingInterface_HijingWrapper
0002 #define GeneratorInterface_HijingInterface_HijingWrapper
0003 
0004 /*
0005  * Wrapper for FORTRAN version of HIJING 
0006  */
0007 
0008 #define _MAXNUMPARTICLE_ 130000
0009 
0010 extern "C" {
0011 void hijset_(float& efrm,
0012              const char* frame,
0013              const char* proj,
0014              const char* targ,
0015              int& iap,
0016              int& izp,
0017              int& iat,
0018              int& izt,
0019              int,
0020              int,
0021              int);
0022 }
0023 #define HIJSET hijset_
0024 
0025 extern "C" {
0026 void hijing_(const char* frame, float& bmin0, float& bmax0, int);
0027 }
0028 #define HIJING hijing_
0029 
0030 extern "C" {
0031 extern struct {
0032   int natt;
0033   int eatt;
0034   int jatt;
0035   int nt;
0036   int np;
0037   int n0;
0038   int n01;
0039   int n10;
0040   int n11;
0041 } himain1_;
0042 }
0043 #define himain1 himain1_
0044 
0045 extern "C" {
0046 extern struct {
0047   int katt[4][_MAXNUMPARTICLE_];
0048   float patt[4][_MAXNUMPARTICLE_];
0049   float vatt[4][_MAXNUMPARTICLE_];
0050 } himain2_;
0051 }
0052 #define himain2 himain2_
0053 
0054 extern "C" {
0055 extern struct {
0056   float hipr1[100];
0057   int ihpr2[50];
0058   float hint1[100];
0059   int ihnt2[50];
0060 } hiparnt_;
0061 }
0062 #define hiparnt hiparnt_
0063 
0064 #endif