timing.tmpl

/**
 * \file  timing.c
 * \brief Timing routines
 */

#include "header.h"
<?if parallel?>#include <mpi.h><?end if?>
<?if serial?>#include <sys/time.h><?end if?>

/** \fn double get_time(void)
 * \brief Returns an elapsed time on the calling processor 
 * \return Time in seconds since an arbitrary time in the past.
 */
<?if parallel?>
double get_time(void) {
	return MPI_Wtime();
}
<?end if?>
<?if serial?>
double get_time(void) {
    struct timeval now;    
    
    /* in some implementations, clock() wraps round after 36 minutes.
     * use gettimeofday() instead, which gives us time since the Epoch 
     */
# ifndef S_SPLINT_S
    gettimeofday(&now, NULL);
# endif
    
    /* return time in secs */
    return now.tv_sec + (now.tv_usec * 1.e-6);
}
<?end if?>