#include<config.h>
#include<qalloc.h>
CPS_START_NAMESPACE
//-------------------------------------------------------------------
/*!\file
  \brief  Definition of local_checksum and global_checksum outine.

*/
//--------------------------------------------------------------------
//  CVS keywords
//  $Source: /space/cvs/cps/cps++/src/comms/qcdoc/scu/check_sum.C,v $
//  $State: Exp $
//
//--------------------------------------------------------------------
//--------------------------------------------------------------
//  local_checksum
//
//  Calculating checksum on a set of data on one node
//
//  global_checksum
//
//  Calculating checksum on each node and compare against each other
//--------------------------------------------------------------


CPS_END_NAMESPACE
#include <util/data_types.h>
#include<comms/glb.h>
#include <comms/glb_sum_internal.h>
//#include<comms/scu.h>
//#include<util/gjp.h>
//#include<comms/double64.h>
//#include <comms/sysfunc_cps.h>
CPS_START_NAMESPACE

unsigned int local_checksum(Float * float_p, int len) {
  unsigned int csum = 0;
  unsigned int * uint_p = (unsigned int *) float_p;
  for(int i=0;i < len * sizeof(Float) / sizeof(unsigned int); i++) {
//    csum += *uint_p;
    csum ^= *uint_p;
    uint_p ++;
  }
  return csum;
}

unsigned int global_checksum(Float * float_p, int len) {
  unsigned int locsum = local_checksum(float_p, len);
  glb_sum_internal2(&locsum,4,0); // 0 for XOR
  return locsum;
}

unsigned int test_checksum(Float * float_p, int len) {
  static int gcsum_count = 1;
  unsigned int locsum = local_checksum(float_p, len);
  unsigned int bosssum;
  if(UniqueID() == 0) bosssum = locsum;
  else                bosssum = 0;
  glb_sum_internal2(&bosssum,4,0); // 0 for XOR
  if(bosssum != locsum) {
      fprintf( stderr,
               "GCheckSum %d : Node %d : Oops I did it again: me (%d,%d,%d,%d,%d) %u != boss %u\n",
               gcsum_count++,
	       UniqueID(),
               CoorX(),
               CoorY(),
               CoorZ(),
               CoorT(),
               CoorS(),
               locsum,  bosssum );
      exit(-30);
  }

  return bosssum;
}

CPS_END_NAMESPACE