//-----------------------------------------------------------------------
//  revision history:
//  -----------------
// *0001 Aug 13 1998 P.Murat: reorganize InitFortranCommonBlocks
//-----------------------------------------------------------------------

#include "hepevt.hh"

Hepevt_t*    gHepevt;

extern "C" void*  hepevt_address_();

static int Initialized = 0;

void InitHepevt() {

  if (Initialized) return;
  Initialized = 1;

  gHepevt = (Hepevt_t*) hepevt_address_();
}