gk_mkutils.h

Go to the documentation of this file.

#ifndef _GK_MKUTILS_H_
#define _GK_MKUTILS_H_


#define GK_MKARRAY2CSR(PRFX, TYPE)\
/*************************************************************************/\
\
/**************************************************************************/\
void PRFX ## array2csr(TYPE n, TYPE range, TYPE *array, TYPE *ptr, TYPE *ind)\
{\
  TYPE i;\
\
  for (i=0; i<=range; i++)\
    ptr[i] = 0;\
\
  for (i=0; i<n; i++)\
    ptr[array[i]]++;\
\
  /* Compute the ptr, ind structure */\
  MAKECSR(i, range, ptr);\
  for (i=0; i<n; i++)\
    ind[ptr[array[i]]++] = i;\
  SHIFTCSR(i, range, ptr);\
}


#define GK_MKARRAY2CSR_PROTO(PRFX, TYPE)\
  void PRFX ## array2csr(TYPE n, TYPE range, TYPE *array, TYPE *ptr, TYPE *ind);\


#endif