flyopunta/src/src_main/tempo.cpp

/***************************************************************************
                          tempo.cpp  -  description
                             -------------------
    begin                : Sat May 26 2001
    copyright            : (C) 2001 by Giuseppe Pierazzini
    email                : peppe@unipi.it
  ***************************************************************************
  *                                                                         *
  *   NA48  simulation program.                                             *
  *                                                                         *
  ***************************************************************************/
#include "parm.h"
#include "tempo.h"
#include "evento.h"
 using namespace GmpConst;

// using namespace std;
//=========================== T e  m p o============
//   Genera il tempo dell'evento simulando il burst
//===================================================
 Tempo::Tempo()
    {
                        Nburst=0;
     Tblgt=2.4e+9;  // Durata default del burst in nsec
     TotTime=Tnow=Tmed=tdif=tlast=0.0;
     Icalls=0;
    }
Tempo::~Tempo(){
}
  void Tempo::PrintTempo()
    { 
     Gout<<"\n Ev = "<<evento_.Gen.Event<<" Tnow = "<<Tnow
               <<" from last = "<<tdif;}
//-----------------------------------

  double Tempo::Get_ProdTempo()
   {
     Tnow+=tdif= -Tmed*log(Pran()+EPSI);
 
     if(Tnow >Tblgt){Nburst++; Tnow-=Tblgt; }  //struttura a burst
     TotTime+=tdif;
     tlast+=tdif;
     Icalls++;
     return Tnow;
   }