t_reset.c

CCSM Research Tools: Community Atmosphere Model (CAM)

/*
** $Id: t_reset.c,v 1.1 2001/04/19 00:03:07 rosinski Exp $
*/

#include <string.h>  /* memset */
#include <stdio.h>

#include "gpt.h"

/*
** t_reset: reset all known timers to 0
**
** Return value: 0 (success) or -1 (failure)
*/

int t_reset ()
{
  int n;             /* index over threads */
  struct node *ptr;  /* linked list index */

#if ( ! defined DISABLE_TIMERS )
  if ( ! t_initialized)
    return t_error ("t_reset: t_initialize has not been called\n");

  /*
  ** Only allow the master thread to reset timers
  */

  if (get_thread_num () != 0)
    return 0;

  for (n = 0; n < numthreads; n++) {
    for (ptr = timers[n]; ptr != NULL; ptr = ptr->next) {
      memset (timers[n], 0, sizeof (struct node));
      printf ("Reset accumulators for timer %s to zero\n", ptr->name);
    }
  }
#endif
  return 0;
}