PYTHIA6/pyquenCommon.h

   1 #include "Rtypes.h"
   2 #include "cfortran.h"
   3 //
   4 // common /parimp/ b1, psib1, rb1, rb2
   5 //
   6 extern "C" {
   7
   8     typedef struct {
   9         Double_t b1;
  10         Double_t psib1;
  11         Double_t rb1;
  12         Double_t rb2;
  13 } parimpCommon;
  14 #define PARIMP COMMON_BLOCK(PARIMP,parimp)
  15 COMMON_BLOCK_DEF(parimpCommon,PARIMP);
  16 }