sion_printts.c

Go to the documentation of this file.

/****************************************************************************
**  SIONLIB     http://www.fz-juelich.de/jsc/sionlib                       **
*****************************************************************************
**  Copyright (c) 2008-2019                                                **
**  Forschungszentrum Juelich, Juelich Supercomputing Centre               **
**                                                                         **
**  See the file COPYRIGHT in the package base directory for details       **
****************************************************************************/
 
#define _XOPEN_SOURCE 700
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <time.h>
#include <sys/time.h>
 
#include "sion_printts.h"
#include "sion.h"
#include "sion_debug.h"
 
#if defined(_SION_BGP) && defined(SION_MPI)
 
#include <spi/kernel_interface.h>
#include <common/bgp_personality.h>
#include <common/bgp_personality_inlines.h>
 
 
static double clockspeed = 1.0e-6 / 850.0;
 
double bgp_wtime(void)
{
  return (_bgp_GetTimeBase() * clockspeed);
  /*return(1.0); */
}
#elif defined(_SION_BGQ) && defined(SION_MPI)
 
#include <firmware/include/personality.h>
#include <spi/include/kernel/process.h>
#include <spi/include/kernel/location.h>
#ifdef __GNUC__
#include <hwi/include/bqc/A2_inlines.h>   /* for GetTimebase() */
#endif
#include <hwi/include/common/uci.h>
 
static double clockspeed = 1.0e-6 / 850.0;
 
double bgq_wtime(void)
{
#ifdef __IBMC__
  return ( __mftb() * elg_clockspeed );
#elif defined __GNUC__
  return ( GetTimeBase() * elg_clockspeed );
#else
#error "Platform BGQ: cannot determine timebase"
#endif
}
#endif
 
double _sion_get_time(void)
{
#if defined(_SION_BGQ) && defined(SION_MPI)
  return bgp_wtime();
#elif defined(_SION_BGP) && defined(SION_MPI)
  return bgp_wtime();
#else
  struct timeval tp;
  gettimeofday (&tp, (struct timezone *)NULL);
  return tp.tv_sec + tp.tv_usec/1000000.0;
#endif
}
 
int sion_print_time_stamp(int rank, char *desc)
{
#ifdef SION_DEBUG
  if (!sion_isdebug())
    return (1);
 
  DPRINTFP((32, "TIMINGS", rank, "                            step=%-18s timestamp=%18.8f AA \n", desc, _sion_get_time()));
#endif
  return (1);
}