---

CTBtraceClock.cxx

Go to the documentation of this file.

/*----------------------------------------------------------------------------*/
/* C Tool Box: Designed and implemented by:                                   */
/*    Walter F.J. Mueller   Gesellschaft fuer Schwerionenforschung (GSI)      */
/*                          Planckstrasse 1, D-64291 Darmstadt, Germany       */
/*                  Email:  W.F.J.Mueller@gsi.de                              */
/*                  WWW:    http://www-kp3.gsi.de/www/kp3/people/mueller.html */
/*------------------------------------------+---------------------------------*/

#include    "CTB.hxx"
#include    "CTBtraceClock.hxx"

#include    "CTBsystem.hxx"
#include    "CTBprintf.hxx"

//------------------------------------------+-----------------------------------

CTBtraceClock::CTBtraceClock()              // default constructor
{
  Init(0,false,false);
}

//------------------------------------------+-----------------------------------

CTBtraceClock::CTBtraceClock(const char* c_text, bool b_start, bool b_print)
{
  Init(c_text,b_start,b_print);
}         

//------------------------------------------+-----------------------------------

CTBtraceClock::~CTBtraceClock()
{
  if (mb_autoprint) ToStream();             // print on destruct if requested
}

//------------------------------------------+-----------------------------------

void CTBtraceClock::Start()
{
  if (!mb_started) {
    md_cpustart   = CTBsystem::CpuTime();
    md_elastart   = CTBsystem::ElapsedTime();
    mi_intervals += 1;
    mb_started    = true;
  }
}

//------------------------------------------+-----------------------------------

void CTBtraceClock::Stop()
{
  if (mb_started) {
    Update(e_cputime|e_elatime);
    mb_started  = false;
  }
}

//------------------------------------------+-----------------------------------

void CTBtraceClock::Reset()
{
  md_cputime    = 0.;
  md_elatime    = 0.;
  mi_intervals  = 0;
  if (mb_started) {
    md_cpustart   = CTBsystem::CpuTime();
    md_elastart   = CTBsystem::ElapsedTime();
    mi_intervals += 1;
  }
}

//------------------------------------------+-----------------------------------

void CTBtraceClock::ToStream(ostream& os)
{
  Update(e_cputime|e_elatime);

  os << CTBprintf(mc_text,"-s",30) << "  CPU ";
  if (mi_intervals > 0) os << CTBprintf(md_cputime,"f",9,3);
  else                  os << "    -.---";
  os << "s  elapsed ";
  if (mi_intervals > 0) os << CTBprintf(md_elatime,"f",9,3);
  else                  os << "     -.--";
  os << "s";
  if (md_elatime > 0.)
    os << "  (" << CTBprintf(100.*md_cputime/md_elatime,"f",6,2) << "%)";
  os << endl;
}

//------------------------------------------+-----------------------------------

void CTBtraceClock::Init(const char* c_text, bool b_start, bool b_print)
{
  mc_text       = c_text ? c_text : "";     // convert null -> ""
  mb_started    = false;
  mb_autoprint  = b_print;
  md_cputime    = 0.;
  md_elatime    = 0.;
  mi_intervals  = 0;
  if (b_start) Start();
}

//------------------------------------------+-----------------------------------

void CTBtraceClock::Update(int i_flags)
{
  if (mb_started) {
    if (i_flags & e_cputime) {
      double d_cpustop = CTBsystem::CpuTime();
      double d_dtime   = d_cpustop - md_cpustart;

      if (d_dtime > 1.e-6) {
        md_cputime  += d_dtime;
        md_cpustart  = d_cpustop;
      }
    }
    if (i_flags & e_elatime) {
      double d_elastop = CTBsystem::ElapsedTime();
      double d_dtime   = d_elastop - md_elastart;

      if (d_dtime > 1.e-6) {
        md_elatime  += d_dtime;
        md_elastart  = d_elastop;
      }
    }
  }
}

// Notes:
//  1. The `if (d_dtime > 1.e6)' conditions above seem redundant, but they are
//     needed to suppress a strange rounding error effect on Intel systems.
//     The FPU registers are 80 bit, so the result of CpuTime() is calculated
//     and passed as 80 bit value. However it's stored in the member variables
//     as 64 bit number, thus truncated.
//     Due to this, one can get a non-zero but very small d_dtime for two calls
//     within the same CPU or clock time tick ! The if makes sure, that there
//     are no spurious 1.e-8 sec elapesed CPU times in cases were less the
//     time span was less than one clock tick.

//------------------------------------------+-----------------------------------
#if (defined(CTB__OutLine) || defined(CTBtraceClock__OutLine))
#define inline
#include "CTBtraceClock.icc"
#undef  inline
#endif

---