File Coverage

Cluster.xs

Criterion	Covered	Total	%
statement	613	5731	10.7
branch	544	17090	3.1
condition			n/a
subroutine			n/a
pod			n/a
total	1157	22821	5.0

#line 453 "lib/PDL/PP.pm"
/*
 * THIS FILE WAS GENERATED BY PDL::PP from Cluster.pd! Do not modify!
 */

#define PDL_FREE_CODE(trans, destroy, comp_free_code, ntpriv_free_code) \
    if (destroy) { \
	comp_free_code \
    } \
    if ((trans)->dims_redone) { \
	ntpriv_free_code \
    }

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "pdl.h"
#include "pdlcore.h"
#define PDL PDL_Cluster
extern Core* PDL; /* Structure hold core C functions */
#line 23 "Cluster.xs"
#include "ccluster.h"

//#define CDEBUG 1
//#undef CDEBUG

void print_pp_dbl(int nrows, int ncols, double **pp) {
  int i,j;
  for (i=0; i
    printf("  %d:[ ", i);
    for (j=0; j
      printf("%d=%lf ", j, pp[i][j]);
    }
    printf("]\n");
  }
}
static
void **pp_alloc(int nrows)
{
  return ((void **)malloc(nrows*sizeof(void**)));
}
static
double **p2pp_dbl(int nrows, int ncols, double *p, double **matrix)
{
  int i;
  if (!(p && nrows && ncols)) return NULL;
  if (!matrix) matrix = (double **)pp_alloc(nrows);
  for (i=0; i < nrows; i++) {
    matrix[i] = p + (i*ncols);
#ifdef CDEBUG
    printf("p2pp_dbl(nr=%d,nc=%d,p=%p) : (p+%d*%d)=%p\n", nrows,ncols,p, i,ncols,matrix[i]);
#endif
  }
  return matrix;
}
int **p2pp_int(int nrows, int ncols, int *p, int **matrix)
{
  int i;
  if (!(p && nrows && ncols)) return NULL;
  if (!matrix) matrix = (int **)pp_alloc(nrows);
  for (i=0; i < nrows; i++) {
    matrix[i] = p + (i*ncols);
  }
  return matrix;
}
static
double **p2pp_dbl_ragged(int nrows, int ncols, double *p, double **matrix)
{
  int i;
  if (!(p && nrows && ncols)) return NULL;
  if (!matrix) matrix = (double **)pp_alloc(nrows);
  for (i=0; i < nrows; i++) {
    matrix[i] = p + (i*ncols);
  }
  return matrix;
}
static
void pp2pdl_ragged_dbl(int nrows, int ncols, double **pp, double *p)
{
  int i,j;
  if (!(pp && nrows && ncols)) return;
  for (i=0; i
    for (j=0; j
      p[i*ncols+j] = pp[i][j];
      p[j*ncols+i] = pp[i][j];
    }
    p[i*ncols+i] = 0;
  }
}
static
void pp2pdl_dbl(int nrows, int ncols, double **pp, double *p)
{
  int i,j;
  if (!(pp && nrows && ncols)) return;
  for (i=0; i
    for (j=0; j
      p[i*ncols+j] = pp[i][j];
    }
  }
}
static
Node* p2node(int nnodes, int* tree, double *lnkdist)
{
  int i;
  Node *nod = NULL;
  if (!(nnodes && (tree || lnkdist))) return NULL;
  nod = (Node*)malloc(nnodes*sizeof(Node));
  for (i=0; i < nnodes; ++i) {
    nod[i].left     = tree    ? tree[i*2+0] : 0;
    nod[i].right    = tree    ? tree[i*2+1] : 0;
    nod[i].distance = lnkdist ? lnkdist[i] : 0;
  }
  return nod;
}

void node2p(int nnodes, Node* nod, int* tree, double *lnkdist)
{
  int i;
  if (!(nnodes && nod && (tree || lnkdist))) return;
  for (i=0; i < nnodes; ++i) {
    if (tree) {
      tree[i*2+0] = nod[i].left;
      tree[i*2+1] = nod[i].right;
    }
    if (lnkdist) {
      lnkdist[i] = nod[i].distance;
    }
  }
  return;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_cmean_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 138 "Cluster.xs"
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in cmean:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  #define PDL_BROADCASTLOOP_START_cmean_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    a_datap += __offsp[0]; \
    b_datap += __offsp[1]; \
    , \
    (  ,a_datap += __tinc1_a - __tinc0_a * __tdims0 \
    ,b_datap += __tinc1_b - __tinc0_b * __tdims0 \
    ), \
    (  ,a_datap += __tinc0_a \
    ,b_datap += __tinc0_b \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_cmean_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    a_datap -= __tinc1_a * __tdims1 + __offsp[0]; \
    b_datap -= __tinc1_b * __tdims1 + __offsp[1]; \
  )
  register PDL_Indx __inc_a_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_a_n;
  #ifndef PDL_DECLARE_PARAMS_cmean_1
  #define PDL_DECLARE_PARAMS_cmean_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_a,PDL_PPSYM_PARAM_a,PDL_TYPE_PARAM_b,PDL_PPSYM_PARAM_b) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_a, a, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_a) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_b, b, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_b)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_D: {
      PDL_DECLARE_PARAMS_cmean_1(PDL_Double,D,PDL_Double,D,PDL_Double,D)
      PDL_BROADCASTLOOP_START_cmean_readdata    {(b_datap)[0] = mean(__privtrans->ind_sizes[0], a_datap);}PDL_BROADCASTLOOP_END_cmean_readdata
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in cmean: unhandled datatype(%d), only handles (D)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}

static pdl_datatypes pdl_cmean_vtable_gentypes[] = { PDL_D, -1 };
static PDL_Indx pdl_cmean_vtable_realdims[] = { 1, 0 };
static char *pdl_cmean_vtable_parnames[] = { "a","b" };
static short pdl_cmean_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_cmean_vtable_partypes[] = { PDL_D, PDL_D };
static PDL_Indx pdl_cmean_vtable_realdims_starts[] = { 0, 1 };
static PDL_Indx pdl_cmean_vtable_realdims_ind_ids[] = { 0 };
static char *pdl_cmean_vtable_indnames[] = { "n" };
pdl_transvtable pdl_cmean_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_cmean_vtable_gentypes, 1, 2, NULL /*CORE21*/,
  pdl_cmean_vtable_realdims, pdl_cmean_vtable_parnames,
  pdl_cmean_vtable_parflags, pdl_cmean_vtable_partypes,
  pdl_cmean_vtable_realdims_starts, pdl_cmean_vtable_realdims_ind_ids, 1,
  1, pdl_cmean_vtable_indnames,
  NULL, pdl_cmean_readdata, NULL,
  NULL,
  0,"PDL::Cluster::cmean"
};


pdl_error pdl_run_cmean(pdl  *a,pdl  *b) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_cmean_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  __privtrans->pdls[0] = a;
  __privtrans->pdls[1] = b;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_cmedian_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 224 "Cluster.xs"
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in cmedian:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  #define PDL_BROADCASTLOOP_START_cmedian_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    a_datap += __offsp[0]; \
    b_datap += __offsp[1]; \
    , \
    (  ,a_datap += __tinc1_a - __tinc0_a * __tdims0 \
    ,b_datap += __tinc1_b - __tinc0_b * __tdims0 \
    ), \
    (  ,a_datap += __tinc0_a \
    ,b_datap += __tinc0_b \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_cmedian_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    a_datap -= __tinc1_a * __tdims1 + __offsp[0]; \
    b_datap -= __tinc1_b * __tdims1 + __offsp[1]; \
  )
  register PDL_Indx __inc_a_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_a_n;
  #ifndef PDL_DECLARE_PARAMS_cmedian_1
  #define PDL_DECLARE_PARAMS_cmedian_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_a,PDL_PPSYM_PARAM_a,PDL_TYPE_PARAM_b,PDL_PPSYM_PARAM_b) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_a, a, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_a) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_b, b, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_b)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_D: {
      PDL_DECLARE_PARAMS_cmedian_1(PDL_Double,D,PDL_Double,D,PDL_Double,D)
      PDL_BROADCASTLOOP_START_cmedian_readdata    {(b_datap)[0] = median(__privtrans->ind_sizes[0], a_datap);}PDL_BROADCASTLOOP_END_cmedian_readdata
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in cmedian: unhandled datatype(%d), only handles (D)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}

static pdl_datatypes pdl_cmedian_vtable_gentypes[] = { PDL_D, -1 };
static PDL_Indx pdl_cmedian_vtable_realdims[] = { 1, 0 };
static char *pdl_cmedian_vtable_parnames[] = { "a","b" };
static short pdl_cmedian_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_cmedian_vtable_partypes[] = { PDL_D, PDL_D };
static PDL_Indx pdl_cmedian_vtable_realdims_starts[] = { 0, 1 };
static PDL_Indx pdl_cmedian_vtable_realdims_ind_ids[] = { 0 };
static char *pdl_cmedian_vtable_indnames[] = { "n" };
pdl_transvtable pdl_cmedian_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_cmedian_vtable_gentypes, 1, 2, NULL /*CORE21*/,
  pdl_cmedian_vtable_realdims, pdl_cmedian_vtable_parnames,
  pdl_cmedian_vtable_parflags, pdl_cmedian_vtable_partypes,
  pdl_cmedian_vtable_realdims_starts, pdl_cmedian_vtable_realdims_ind_ids, 1,
  1, pdl_cmedian_vtable_indnames,
  NULL, pdl_cmedian_readdata, NULL,
  NULL,
  0,"PDL::Cluster::cmedian"
};


pdl_error pdl_run_cmedian(pdl  *a,pdl  *b) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_cmedian_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  __privtrans->pdls[0] = a;
  __privtrans->pdls[1] = b;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_calculate_weights {
#line 309 "Cluster.xs"
  char  *distFlag;
} pdl_params_calculate_weights;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_calculate_weights_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 317 "Cluster.xs"
  pdl_params_calculate_weights *__params = __privtrans->params; (void)__params;
  register PDL_Indx __d_size = __privtrans->ind_sizes[0];
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in calculate_weights:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_cutoff = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc0_exponent = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
  register PDL_Indx __tinc0_oweights = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,0);
  register PDL_Indx __tinc1_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_cutoff = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  register PDL_Indx __tinc1_exponent = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
  register PDL_Indx __tinc1_oweights = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,1);
  #define PDL_BROADCASTLOOP_START_calculate_weights_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    data_datap += __offsp[0]; \
    mask_datap += __offsp[1]; \
    weight_datap += __offsp[2]; \
    cutoff_datap += __offsp[3]; \
    exponent_datap += __offsp[4]; \
    oweights_datap += __offsp[5]; \
    , \
    (  ,data_datap += __tinc1_data - __tinc0_data * __tdims0 \
    ,mask_datap += __tinc1_mask - __tinc0_mask * __tdims0 \
    ,weight_datap += __tinc1_weight - __tinc0_weight * __tdims0 \
    ,cutoff_datap += __tinc1_cutoff - __tinc0_cutoff * __tdims0 \
    ,exponent_datap += __tinc1_exponent - __tinc0_exponent * __tdims0 \
    ,oweights_datap += __tinc1_oweights - __tinc0_oweights * __tdims0 \
    ), \
    (  ,data_datap += __tinc0_data \
    ,mask_datap += __tinc0_mask \
    ,weight_datap += __tinc0_weight \
    ,cutoff_datap += __tinc0_cutoff \
    ,exponent_datap += __tinc0_exponent \
    ,oweights_datap += __tinc0_oweights \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_calculate_weights_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    data_datap -= __tinc1_data * __tdims1 + __offsp[0]; \
    mask_datap -= __tinc1_mask * __tdims1 + __offsp[1]; \
    weight_datap -= __tinc1_weight * __tdims1 + __offsp[2]; \
    cutoff_datap -= __tinc1_cutoff * __tdims1 + __offsp[3]; \
    exponent_datap -= __tinc1_exponent * __tdims1 + __offsp[4]; \
    oweights_datap -= __tinc1_oweights * __tdims1 + __offsp[5]; \
  )
  register PDL_Indx __inc_data_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_data_d;register PDL_Indx __inc_data_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_data_n;
  register PDL_Indx __inc_mask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_mask_d;register PDL_Indx __inc_mask_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_mask_n;
  register PDL_Indx __inc_oweights_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,5,0)]; (void)__inc_oweights_d;
  register PDL_Indx __inc_weight_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_weight_d;
  #ifndef PDL_DECLARE_PARAMS_calculate_weights_1
  #define PDL_DECLARE_PARAMS_calculate_weights_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_data,PDL_PPSYM_PARAM_data,PDL_TYPE_PARAM_mask,PDL_PPSYM_PARAM_mask,PDL_TYPE_PARAM_weight,PDL_PPSYM_PARAM_weight,PDL_TYPE_PARAM_cutoff,PDL_PPSYM_PARAM_cutoff,PDL_TYPE_PARAM_exponent,PDL_PPSYM_PARAM_exponent,PDL_TYPE_PARAM_oweights,PDL_PPSYM_PARAM_oweights) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_data, data, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_data) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_mask, mask, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_mask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_weight, weight, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_weight) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_cutoff, cutoff, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_cutoff) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_exponent, exponent, (__privtrans->pdls[4]), 1, PDL_PPSYM_PARAM_exponent) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_oweights, oweights, (__privtrans->pdls[5]), 1, PDL_PPSYM_PARAM_oweights)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_calculate_weights_1(PDL_SByte,A,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    i;
          double *owp;
            PDL_BROADCASTLOOP_START_calculate_weights_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
               owp =  calculate_weights(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                        weight_datap, transpose, *__params->distFlag,
                                        (cutoff_datap)[0], (exponent_datap)[0]);
              if (owp)  {
                {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
                    (oweights_datap)[0+(__inc_oweights_d*(d))] = owp[d];
                  }} /* Close d */
                free(owp);
              }
            PDL_BROADCASTLOOP_END_calculate_weights_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_calculate_weights_1(PDL_Byte,B,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    i;
          double *owp;
            PDL_BROADCASTLOOP_START_calculate_weights_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
               owp =  calculate_weights(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                        weight_datap, transpose, *__params->distFlag,
                                        (cutoff_datap)[0], (exponent_datap)[0]);
              if (owp)  {
                {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
                    (oweights_datap)[0+(__inc_oweights_d*(d))] = owp[d];
                  }} /* Close d */
                free(owp);
              }
            PDL_BROADCASTLOOP_END_calculate_weights_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_calculate_weights_1(PDL_Short,S,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    i;
          double *owp;
            PDL_BROADCASTLOOP_START_calculate_weights_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
               owp =  calculate_weights(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                        weight_datap, transpose, *__params->distFlag,
                                        (cutoff_datap)[0], (exponent_datap)[0]);
              if (owp)  {
                {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
                    (oweights_datap)[0+(__inc_oweights_d*(d))] = owp[d];
                  }} /* Close d */
                free(owp);
              }
            PDL_BROADCASTLOOP_END_calculate_weights_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_calculate_weights_1(PDL_Ushort,U,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    i;
          double *owp;
            PDL_BROADCASTLOOP_START_calculate_weights_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
               owp =  calculate_weights(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                        weight_datap, transpose, *__params->distFlag,
                                        (cutoff_datap)[0], (exponent_datap)[0]);
              if (owp)  {
                {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
                    (oweights_datap)[0+(__inc_oweights_d*(d))] = owp[d];
                  }} /* Close d */
                free(owp);
              }
            PDL_BROADCASTLOOP_END_calculate_weights_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_calculate_weights_1(PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    i;
          double *owp;
            PDL_BROADCASTLOOP_START_calculate_weights_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
               owp =  calculate_weights(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                        weight_datap, transpose, *__params->distFlag,
                                        (cutoff_datap)[0], (exponent_datap)[0]);
              if (owp)  {
                {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
                    (oweights_datap)[0+(__inc_oweights_d*(d))] = owp[d];
                  }} /* Close d */
                free(owp);
              }
            PDL_BROADCASTLOOP_END_calculate_weights_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_calculate_weights_1(PDL_ULong,K,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    i;
          double *owp;
            PDL_BROADCASTLOOP_START_calculate_weights_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
               owp =  calculate_weights(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                        weight_datap, transpose, *__params->distFlag,
                                        (cutoff_datap)[0], (exponent_datap)[0]);
              if (owp)  {
                {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
                    (oweights_datap)[0+(__inc_oweights_d*(d))] = owp[d];
                  }} /* Close d */
                free(owp);
              }
            PDL_BROADCASTLOOP_END_calculate_weights_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_calculate_weights_1(PDL_Indx,N,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    i;
          double *owp;
            PDL_BROADCASTLOOP_START_calculate_weights_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
               owp =  calculate_weights(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                        weight_datap, transpose, *__params->distFlag,
                                        (cutoff_datap)[0], (exponent_datap)[0]);
              if (owp)  {
                {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
                    (oweights_datap)[0+(__inc_oweights_d*(d))] = owp[d];
                  }} /* Close d */
                free(owp);
              }
            PDL_BROADCASTLOOP_END_calculate_weights_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_calculate_weights_1(PDL_ULongLong,P,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    i;
          double *owp;
            PDL_BROADCASTLOOP_START_calculate_weights_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
               owp =  calculate_weights(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                        weight_datap, transpose, *__params->distFlag,
                                        (cutoff_datap)[0], (exponent_datap)[0]);
              if (owp)  {
                {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
                    (oweights_datap)[0+(__inc_oweights_d*(d))] = owp[d];
                  }} /* Close d */
                free(owp);
              }
            PDL_BROADCASTLOOP_END_calculate_weights_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_calculate_weights_1(PDL_LongLong,Q,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    i;
          double *owp;
            PDL_BROADCASTLOOP_START_calculate_weights_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
               owp =  calculate_weights(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                        weight_datap, transpose, *__params->distFlag,
                                        (cutoff_datap)[0], (exponent_datap)[0]);
              if (owp)  {
                {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
                    (oweights_datap)[0+(__inc_oweights_d*(d))] = owp[d];
                  }} /* Close d */
                free(owp);
              }
            PDL_BROADCASTLOOP_END_calculate_weights_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_calculate_weights_1(PDL_Float,F,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    i;
          double *owp;
            PDL_BROADCASTLOOP_START_calculate_weights_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
               owp =  calculate_weights(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                        weight_datap, transpose, *__params->distFlag,
                                        (cutoff_datap)[0], (exponent_datap)[0]);
              if (owp)  {
                {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
                    (oweights_datap)[0+(__inc_oweights_d*(d))] = owp[d];
                  }} /* Close d */
                free(owp);
              }
            PDL_BROADCASTLOOP_END_calculate_weights_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_calculate_weights_1(PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    i;
          double *owp;
            PDL_BROADCASTLOOP_START_calculate_weights_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
               owp =  calculate_weights(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                        weight_datap, transpose, *__params->distFlag,
                                        (cutoff_datap)[0], (exponent_datap)[0]);
              if (owp)  {
                {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
                    (oweights_datap)[0+(__inc_oweights_d*(d))] = owp[d];
                  }} /* Close d */
                free(owp);
              }
            PDL_BROADCASTLOOP_END_calculate_weights_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_calculate_weights_1(PDL_LDouble,E,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    i;
          double *owp;
            PDL_BROADCASTLOOP_START_calculate_weights_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
               owp =  calculate_weights(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                        weight_datap, transpose, *__params->distFlag,
                                        (cutoff_datap)[0], (exponent_datap)[0]);
              if (owp)  {
                {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
                    (oweights_datap)[0+(__inc_oweights_d*(d))] = owp[d];
                  }} /* Close d */
                free(owp);
              }
            PDL_BROADCASTLOOP_END_calculate_weights_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in calculate_weights: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_calculate_weights_free(pdl_trans *__privtrans, char destroy) {
  pdl_error PDL_err = {0, NULL, 0};
#line 710 "Cluster.xs"
  pdl_params_calculate_weights *__params = __privtrans->params; (void)__params;
  PDL_FREE_CODE(__privtrans, destroy, free(__params->distFlag); /* CType.get_free */
  , )  return PDL_err;
}

static pdl_datatypes pdl_calculate_weights_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_calculate_weights_vtable_realdims[] = { 2, 2, 1, 0, 0, 1 };
static char *pdl_calculate_weights_vtable_parnames[] = { "data","mask","weight","cutoff","exponent","oweights" };
static short pdl_calculate_weights_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_calculate_weights_vtable_partypes[] = { PDL_D, PDL_L, PDL_D, PDL_D, PDL_D, PDL_D };
static PDL_Indx pdl_calculate_weights_vtable_realdims_starts[] = { 0, 2, 4, 5, 5, 5 };
static PDL_Indx pdl_calculate_weights_vtable_realdims_ind_ids[] = { 0, 1, 0, 1, 0, 0 };
static char *pdl_calculate_weights_vtable_indnames[] = { "d","n" };
pdl_transvtable pdl_calculate_weights_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_calculate_weights_vtable_gentypes, 5, 6, NULL /*CORE21*/,
  pdl_calculate_weights_vtable_realdims, pdl_calculate_weights_vtable_parnames,
  pdl_calculate_weights_vtable_parflags, pdl_calculate_weights_vtable_partypes,
  pdl_calculate_weights_vtable_realdims_starts, pdl_calculate_weights_vtable_realdims_ind_ids, 6,
  2, pdl_calculate_weights_vtable_indnames,
  NULL, pdl_calculate_weights_readdata, NULL,
  pdl_calculate_weights_free,
  sizeof(pdl_params_calculate_weights),"PDL::Cluster::calculate_weights"
};


pdl_error pdl_run_calculate_weights(pdl  *data,pdl  *mask,pdl  *weight,pdl  *cutoff,pdl  *exponent,pdl  *oweights,char  *distFlag) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_calculate_weights_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_calculate_weights *__params = __privtrans->params;
  __privtrans->pdls[0] = data;
  __privtrans->pdls[1] = mask;
  __privtrans->pdls[2] = weight;
  __privtrans->pdls[3] = cutoff;
  __privtrans->pdls[4] = exponent;
  __privtrans->pdls[5] = oweights;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->distFlag) = malloc(strlen(distFlag)+1); strcpy(__params->distFlag,distFlag); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_clusterdistance {
#line 763 "Cluster.xs"
  char  *distFlag;
  char  *methodFlag;
} pdl_params_clusterdistance;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_clusterdistance_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 772 "Cluster.xs"
  pdl_params_clusterdistance *__params = __privtrans->params; (void)__params;
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in clusterdistance:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_n1 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc0_n2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
  register PDL_Indx __tinc0_index1 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,0);
  register PDL_Indx __tinc0_index2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,6,0);
  register PDL_Indx __tinc0_dist = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,7,0);
  register PDL_Indx __tinc1_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_n1 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  register PDL_Indx __tinc1_n2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
  register PDL_Indx __tinc1_index1 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,1);
  register PDL_Indx __tinc1_index2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,6,1);
  register PDL_Indx __tinc1_dist = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,7,1);
  #define PDL_BROADCASTLOOP_START_clusterdistance_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    data_datap += __offsp[0]; \
    mask_datap += __offsp[1]; \
    weight_datap += __offsp[2]; \
    n1_datap += __offsp[3]; \
    n2_datap += __offsp[4]; \
    index1_datap += __offsp[5]; \
    index2_datap += __offsp[6]; \
    dist_datap += __offsp[7]; \
    , \
    (  ,data_datap += __tinc1_data - __tinc0_data * __tdims0 \
    ,mask_datap += __tinc1_mask - __tinc0_mask * __tdims0 \
    ,weight_datap += __tinc1_weight - __tinc0_weight * __tdims0 \
    ,n1_datap += __tinc1_n1 - __tinc0_n1 * __tdims0 \
    ,n2_datap += __tinc1_n2 - __tinc0_n2 * __tdims0 \
    ,index1_datap += __tinc1_index1 - __tinc0_index1 * __tdims0 \
    ,index2_datap += __tinc1_index2 - __tinc0_index2 * __tdims0 \
    ,dist_datap += __tinc1_dist - __tinc0_dist * __tdims0 \
    ), \
    (  ,data_datap += __tinc0_data \
    ,mask_datap += __tinc0_mask \
    ,weight_datap += __tinc0_weight \
    ,n1_datap += __tinc0_n1 \
    ,n2_datap += __tinc0_n2 \
    ,index1_datap += __tinc0_index1 \
    ,index2_datap += __tinc0_index2 \
    ,dist_datap += __tinc0_dist \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_clusterdistance_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    data_datap -= __tinc1_data * __tdims1 + __offsp[0]; \
    mask_datap -= __tinc1_mask * __tdims1 + __offsp[1]; \
    weight_datap -= __tinc1_weight * __tdims1 + __offsp[2]; \
    n1_datap -= __tinc1_n1 * __tdims1 + __offsp[3]; \
    n2_datap -= __tinc1_n2 * __tdims1 + __offsp[4]; \
    index1_datap -= __tinc1_index1 * __tdims1 + __offsp[5]; \
    index2_datap -= __tinc1_index2 * __tdims1 + __offsp[6]; \
    dist_datap -= __tinc1_dist * __tdims1 + __offsp[7]; \
  )
  register PDL_Indx __inc_data_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_data_d;register PDL_Indx __inc_data_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_data_n;
  register PDL_Indx __inc_index1_n1 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,5,0)]; (void)__inc_index1_n1;
  register PDL_Indx __inc_index2_n2 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,6,0)]; (void)__inc_index2_n2;
  register PDL_Indx __inc_mask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_mask_d;register PDL_Indx __inc_mask_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_mask_n;
  register PDL_Indx __inc_weight_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_weight_d;
  #ifndef PDL_DECLARE_PARAMS_clusterdistance_1
  #define PDL_DECLARE_PARAMS_clusterdistance_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_data,PDL_PPSYM_PARAM_data,PDL_TYPE_PARAM_mask,PDL_PPSYM_PARAM_mask,PDL_TYPE_PARAM_weight,PDL_PPSYM_PARAM_weight,PDL_TYPE_PARAM_n1,PDL_PPSYM_PARAM_n1,PDL_TYPE_PARAM_n2,PDL_PPSYM_PARAM_n2,PDL_TYPE_PARAM_index1,PDL_PPSYM_PARAM_index1,PDL_TYPE_PARAM_index2,PDL_PPSYM_PARAM_index2,PDL_TYPE_PARAM_dist,PDL_PPSYM_PARAM_dist) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_data, data, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_data) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_mask, mask, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_mask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_weight, weight, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_weight) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_n1, n1, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_n1) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_n2, n2, (__privtrans->pdls[4]), 1, PDL_PPSYM_PARAM_n2) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_index1, index1, (__privtrans->pdls[5]), 1, PDL_PPSYM_PARAM_index1) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_index2, index2, (__privtrans->pdls[6]), 1, PDL_PPSYM_PARAM_index2) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_dist, dist, (__privtrans->pdls[7]), 1, PDL_PPSYM_PARAM_dist)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_clusterdistance_1(PDL_SByte,A,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          double retval;

          PDL_BROADCASTLOOP_START_clusterdistance_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                       weight_datap, (n1_datap)[0], (n2_datap)[0], index1_datap, index2_datap,
                                       *__params->distFlag, *__params->methodFlag, transpose);
              (dist_datap)[0] = retval;
            PDL_BROADCASTLOOP_END_clusterdistance_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_clusterdistance_1(PDL_Byte,B,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          double retval;

          PDL_BROADCASTLOOP_START_clusterdistance_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                       weight_datap, (n1_datap)[0], (n2_datap)[0], index1_datap, index2_datap,
                                       *__params->distFlag, *__params->methodFlag, transpose);
              (dist_datap)[0] = retval;
            PDL_BROADCASTLOOP_END_clusterdistance_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_clusterdistance_1(PDL_Short,S,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          double retval;

          PDL_BROADCASTLOOP_START_clusterdistance_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                       weight_datap, (n1_datap)[0], (n2_datap)[0], index1_datap, index2_datap,
                                       *__params->distFlag, *__params->methodFlag, transpose);
              (dist_datap)[0] = retval;
            PDL_BROADCASTLOOP_END_clusterdistance_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_clusterdistance_1(PDL_Ushort,U,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          double retval;

          PDL_BROADCASTLOOP_START_clusterdistance_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                       weight_datap, (n1_datap)[0], (n2_datap)[0], index1_datap, index2_datap,
                                       *__params->distFlag, *__params->methodFlag, transpose);
              (dist_datap)[0] = retval;
            PDL_BROADCASTLOOP_END_clusterdistance_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_clusterdistance_1(PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          double retval;

          PDL_BROADCASTLOOP_START_clusterdistance_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                       weight_datap, (n1_datap)[0], (n2_datap)[0], index1_datap, index2_datap,
                                       *__params->distFlag, *__params->methodFlag, transpose);
              (dist_datap)[0] = retval;
            PDL_BROADCASTLOOP_END_clusterdistance_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_clusterdistance_1(PDL_ULong,K,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          double retval;

          PDL_BROADCASTLOOP_START_clusterdistance_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                       weight_datap, (n1_datap)[0], (n2_datap)[0], index1_datap, index2_datap,
                                       *__params->distFlag, *__params->methodFlag, transpose);
              (dist_datap)[0] = retval;
            PDL_BROADCASTLOOP_END_clusterdistance_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_clusterdistance_1(PDL_Indx,N,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          double retval;

          PDL_BROADCASTLOOP_START_clusterdistance_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                       weight_datap, (n1_datap)[0], (n2_datap)[0], index1_datap, index2_datap,
                                       *__params->distFlag, *__params->methodFlag, transpose);
              (dist_datap)[0] = retval;
            PDL_BROADCASTLOOP_END_clusterdistance_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_clusterdistance_1(PDL_ULongLong,P,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          double retval;

          PDL_BROADCASTLOOP_START_clusterdistance_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                       weight_datap, (n1_datap)[0], (n2_datap)[0], index1_datap, index2_datap,
                                       *__params->distFlag, *__params->methodFlag, transpose);
              (dist_datap)[0] = retval;
            PDL_BROADCASTLOOP_END_clusterdistance_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_clusterdistance_1(PDL_LongLong,Q,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          double retval;

          PDL_BROADCASTLOOP_START_clusterdistance_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                       weight_datap, (n1_datap)[0], (n2_datap)[0], index1_datap, index2_datap,
                                       *__params->distFlag, *__params->methodFlag, transpose);
              (dist_datap)[0] = retval;
            PDL_BROADCASTLOOP_END_clusterdistance_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_clusterdistance_1(PDL_Float,F,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          double retval;

          PDL_BROADCASTLOOP_START_clusterdistance_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                       weight_datap, (n1_datap)[0], (n2_datap)[0], index1_datap, index2_datap,
                                       *__params->distFlag, *__params->methodFlag, transpose);
              (dist_datap)[0] = retval;
            PDL_BROADCASTLOOP_END_clusterdistance_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_clusterdistance_1(PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          double retval;

          PDL_BROADCASTLOOP_START_clusterdistance_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                       weight_datap, (n1_datap)[0], (n2_datap)[0], index1_datap, index2_datap,
                                       *__params->distFlag, *__params->methodFlag, transpose);
              (dist_datap)[0] = retval;
            PDL_BROADCASTLOOP_END_clusterdistance_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_clusterdistance_1(PDL_LDouble,E,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          double retval;

          PDL_BROADCASTLOOP_START_clusterdistance_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                       weight_datap, (n1_datap)[0], (n2_datap)[0], index1_datap, index2_datap,
                                       *__params->distFlag, *__params->methodFlag, transpose);
              (dist_datap)[0] = retval;
            PDL_BROADCASTLOOP_END_clusterdistance_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in clusterdistance: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_clusterdistance_free(pdl_trans *__privtrans, char destroy) {
  pdl_error PDL_err = {0, NULL, 0};
#line 1131 "Cluster.xs"
  pdl_params_clusterdistance *__params = __privtrans->params; (void)__params;
  PDL_FREE_CODE(__privtrans, destroy, free(__params->distFlag); /* CType.get_free */
  free(__params->methodFlag); /* CType.get_free */
  , )  return PDL_err;
}

static pdl_datatypes pdl_clusterdistance_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_clusterdistance_vtable_realdims[] = { 2, 2, 1, 0, 0, 1, 1, 0 };
static char *pdl_clusterdistance_vtable_parnames[] = { "data","mask","weight","n1","n2","index1","index2","dist" };
static short pdl_clusterdistance_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_clusterdistance_vtable_partypes[] = { PDL_D, PDL_L, PDL_D, PDL_L, PDL_L, PDL_L, PDL_L, PDL_D };
static PDL_Indx pdl_clusterdistance_vtable_realdims_starts[] = { 0, 2, 4, 5, 5, 5, 6, 7 };
static PDL_Indx pdl_clusterdistance_vtable_realdims_ind_ids[] = { 0, 1, 0, 1, 0, 2, 3 };
static char *pdl_clusterdistance_vtable_indnames[] = { "d","n","n1","n2" };
pdl_transvtable pdl_clusterdistance_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_clusterdistance_vtable_gentypes, 7, 8, NULL /*CORE21*/,
  pdl_clusterdistance_vtable_realdims, pdl_clusterdistance_vtable_parnames,
  pdl_clusterdistance_vtable_parflags, pdl_clusterdistance_vtable_partypes,
  pdl_clusterdistance_vtable_realdims_starts, pdl_clusterdistance_vtable_realdims_ind_ids, 7,
  4, pdl_clusterdistance_vtable_indnames,
  NULL, pdl_clusterdistance_readdata, NULL,
  pdl_clusterdistance_free,
  sizeof(pdl_params_clusterdistance),"PDL::Cluster::clusterdistance"
};


pdl_error pdl_run_clusterdistance(pdl  *data,pdl  *mask,pdl  *weight,pdl  *n1,pdl  *n2,pdl  *index1,pdl  *index2,pdl  *dist,char  *distFlag,char  *methodFlag) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_clusterdistance_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_clusterdistance *__params = __privtrans->params;
  __privtrans->pdls[0] = data;
  __privtrans->pdls[1] = mask;
  __privtrans->pdls[2] = weight;
  __privtrans->pdls[3] = n1;
  __privtrans->pdls[4] = n2;
  __privtrans->pdls[5] = index1;
  __privtrans->pdls[6] = index2;
  __privtrans->pdls[7] = dist;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->distFlag) = malloc(strlen(distFlag)+1); strcpy(__params->distFlag,distFlag); /* CType.get_copy */
  (__params->methodFlag) = malloc(strlen(methodFlag)+1); strcpy(__params->methodFlag,methodFlag); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_distancematrix {
#line 1190 "Cluster.xs"
  char  *distFlag;
} pdl_params_distancematrix;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_distancematrix_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 1198 "Cluster.xs"
  pdl_params_distancematrix *__params = __privtrans->params; (void)__params;
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in distancematrix:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_dists = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc1_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_dists = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  #define PDL_BROADCASTLOOP_START_distancematrix_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    data_datap += __offsp[0]; \
    mask_datap += __offsp[1]; \
    weight_datap += __offsp[2]; \
    dists_datap += __offsp[3]; \
    , \
    (  ,data_datap += __tinc1_data - __tinc0_data * __tdims0 \
    ,mask_datap += __tinc1_mask - __tinc0_mask * __tdims0 \
    ,weight_datap += __tinc1_weight - __tinc0_weight * __tdims0 \
    ,dists_datap += __tinc1_dists - __tinc0_dists * __tdims0 \
    ), \
    (  ,data_datap += __tinc0_data \
    ,mask_datap += __tinc0_mask \
    ,weight_datap += __tinc0_weight \
    ,dists_datap += __tinc0_dists \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_distancematrix_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    data_datap -= __tinc1_data * __tdims1 + __offsp[0]; \
    mask_datap -= __tinc1_mask * __tdims1 + __offsp[1]; \
    weight_datap -= __tinc1_weight * __tdims1 + __offsp[2]; \
    dists_datap -= __tinc1_dists * __tdims1 + __offsp[3]; \
  )
  register PDL_Indx __inc_data_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_data_d;register PDL_Indx __inc_data_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_data_n;
  register PDL_Indx __inc_dists_n0 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,0)]; (void)__inc_dists_n0;register PDL_Indx __inc_dists_n1 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,1)]; (void)__inc_dists_n1;
  register PDL_Indx __inc_mask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_mask_d;register PDL_Indx __inc_mask_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_mask_n;
  register PDL_Indx __inc_weight_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_weight_d;
  #ifndef PDL_DECLARE_PARAMS_distancematrix_1
  #define PDL_DECLARE_PARAMS_distancematrix_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_data,PDL_PPSYM_PARAM_data,PDL_TYPE_PARAM_mask,PDL_PPSYM_PARAM_mask,PDL_TYPE_PARAM_weight,PDL_PPSYM_PARAM_weight,PDL_TYPE_PARAM_dists,PDL_PPSYM_PARAM_dists) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_data, data, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_data) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_mask, mask, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_mask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_weight, weight, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_weight) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_dists, dists, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_dists)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_distancematrix_1(PDL_SByte,A,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double **retval;
            PDL_BROADCASTLOOP_START_distancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = distancematrix(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                      weight_datap, *__params->distFlag, transpose);
                  if (!retval) barf("Cluster matrix allocation failed!");
              pp2pdl_ragged_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], retval, dists_datap);
                  if (retval) free(retval);
            PDL_BROADCASTLOOP_END_distancematrix_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_distancematrix_1(PDL_Byte,B,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double **retval;
            PDL_BROADCASTLOOP_START_distancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = distancematrix(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                      weight_datap, *__params->distFlag, transpose);
                  if (!retval) barf("Cluster matrix allocation failed!");
              pp2pdl_ragged_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], retval, dists_datap);
                  if (retval) free(retval);
            PDL_BROADCASTLOOP_END_distancematrix_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_distancematrix_1(PDL_Short,S,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double **retval;
            PDL_BROADCASTLOOP_START_distancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = distancematrix(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                      weight_datap, *__params->distFlag, transpose);
                  if (!retval) barf("Cluster matrix allocation failed!");
              pp2pdl_ragged_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], retval, dists_datap);
                  if (retval) free(retval);
            PDL_BROADCASTLOOP_END_distancematrix_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_distancematrix_1(PDL_Ushort,U,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double **retval;
            PDL_BROADCASTLOOP_START_distancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = distancematrix(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                      weight_datap, *__params->distFlag, transpose);
                  if (!retval) barf("Cluster matrix allocation failed!");
              pp2pdl_ragged_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], retval, dists_datap);
                  if (retval) free(retval);
            PDL_BROADCASTLOOP_END_distancematrix_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_distancematrix_1(PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double **retval;
            PDL_BROADCASTLOOP_START_distancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = distancematrix(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                      weight_datap, *__params->distFlag, transpose);
                  if (!retval) barf("Cluster matrix allocation failed!");
              pp2pdl_ragged_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], retval, dists_datap);
                  if (retval) free(retval);
            PDL_BROADCASTLOOP_END_distancematrix_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_distancematrix_1(PDL_ULong,K,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double **retval;
            PDL_BROADCASTLOOP_START_distancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = distancematrix(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                      weight_datap, *__params->distFlag, transpose);
                  if (!retval) barf("Cluster matrix allocation failed!");
              pp2pdl_ragged_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], retval, dists_datap);
                  if (retval) free(retval);
            PDL_BROADCASTLOOP_END_distancematrix_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_distancematrix_1(PDL_Indx,N,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double **retval;
            PDL_BROADCASTLOOP_START_distancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = distancematrix(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                      weight_datap, *__params->distFlag, transpose);
                  if (!retval) barf("Cluster matrix allocation failed!");
              pp2pdl_ragged_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], retval, dists_datap);
                  if (retval) free(retval);
            PDL_BROADCASTLOOP_END_distancematrix_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_distancematrix_1(PDL_ULongLong,P,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double **retval;
            PDL_BROADCASTLOOP_START_distancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = distancematrix(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                      weight_datap, *__params->distFlag, transpose);
                  if (!retval) barf("Cluster matrix allocation failed!");
              pp2pdl_ragged_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], retval, dists_datap);
                  if (retval) free(retval);
            PDL_BROADCASTLOOP_END_distancematrix_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_distancematrix_1(PDL_LongLong,Q,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double **retval;
            PDL_BROADCASTLOOP_START_distancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = distancematrix(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                      weight_datap, *__params->distFlag, transpose);
                  if (!retval) barf("Cluster matrix allocation failed!");
              pp2pdl_ragged_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], retval, dists_datap);
                  if (retval) free(retval);
            PDL_BROADCASTLOOP_END_distancematrix_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_distancematrix_1(PDL_Float,F,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double **retval;
            PDL_BROADCASTLOOP_START_distancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = distancematrix(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                      weight_datap, *__params->distFlag, transpose);
                  if (!retval) barf("Cluster matrix allocation failed!");
              pp2pdl_ragged_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], retval, dists_datap);
                  if (retval) free(retval);
            PDL_BROADCASTLOOP_END_distancematrix_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_distancematrix_1(PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double **retval;
            PDL_BROADCASTLOOP_START_distancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = distancematrix(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                      weight_datap, *__params->distFlag, transpose);
                  if (!retval) barf("Cluster matrix allocation failed!");
              pp2pdl_ragged_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], retval, dists_datap);
                  if (retval) free(retval);
            PDL_BROADCASTLOOP_END_distancematrix_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_distancematrix_1(PDL_LDouble,E,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double **retval;
            PDL_BROADCASTLOOP_START_distancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              retval = distancematrix(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                                      weight_datap, *__params->distFlag, transpose);
                  if (!retval) barf("Cluster matrix allocation failed!");
              pp2pdl_ragged_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], retval, dists_datap);
                  if (retval) free(retval);
            PDL_BROADCASTLOOP_END_distancematrix_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in distancematrix: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_distancematrix_free(pdl_trans *__privtrans, char destroy) {
  pdl_error PDL_err = {0, NULL, 0};
#line 1516 "Cluster.xs"
  pdl_params_distancematrix *__params = __privtrans->params; (void)__params;
  PDL_FREE_CODE(__privtrans, destroy, free(__params->distFlag); /* CType.get_free */
  , )  return PDL_err;
}

static pdl_datatypes pdl_distancematrix_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_distancematrix_vtable_realdims[] = { 2, 2, 1, 2 };
static char *pdl_distancematrix_vtable_parnames[] = { "data","mask","weight","dists" };
static short pdl_distancematrix_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_distancematrix_vtable_partypes[] = { PDL_D, PDL_L, PDL_D, PDL_D };
static PDL_Indx pdl_distancematrix_vtable_realdims_starts[] = { 0, 2, 4, 5 };
static PDL_Indx pdl_distancematrix_vtable_realdims_ind_ids[] = { 0, 1, 0, 1, 0, 1, 1 };
static char *pdl_distancematrix_vtable_indnames[] = { "d","n" };
pdl_transvtable pdl_distancematrix_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_distancematrix_vtable_gentypes, 3, 4, NULL /*CORE21*/,
  pdl_distancematrix_vtable_realdims, pdl_distancematrix_vtable_parnames,
  pdl_distancematrix_vtable_parflags, pdl_distancematrix_vtable_partypes,
  pdl_distancematrix_vtable_realdims_starts, pdl_distancematrix_vtable_realdims_ind_ids, 7,
  2, pdl_distancematrix_vtable_indnames,
  NULL, pdl_distancematrix_readdata, NULL,
  pdl_distancematrix_free,
  sizeof(pdl_params_distancematrix),"PDL::Cluster::distancematrix"
};


pdl_error pdl_run_distancematrix(pdl  *data,pdl  *mask,pdl  *weight,pdl  *dists,char  *distFlag) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_distancematrix_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_distancematrix *__params = __privtrans->params;
  __privtrans->pdls[0] = data;
  __privtrans->pdls[1] = mask;
  __privtrans->pdls[2] = weight;
  __privtrans->pdls[3] = dists;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->distFlag) = malloc(strlen(distFlag)+1); strcpy(__params->distFlag,distFlag); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_getclustercentroids {
#line 1565 "Cluster.xs"
  char  *ctrMethodFlag;
} pdl_params_getclustercentroids;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_getclustercentroids_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 1573 "Cluster.xs"
  pdl_params_getclustercentroids *__params = __privtrans->params; (void)__params;
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in getclustercentroids:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_cdata = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc0_cmask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
  register PDL_Indx __tinc1_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_cdata = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  register PDL_Indx __tinc1_cmask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
  #define PDL_BROADCASTLOOP_START_getclustercentroids_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    data_datap += __offsp[0]; \
    mask_datap += __offsp[1]; \
    clusterids_datap += __offsp[2]; \
    cdata_datap += __offsp[3]; \
    cmask_datap += __offsp[4]; \
    , \
    (  ,data_datap += __tinc1_data - __tinc0_data * __tdims0 \
    ,mask_datap += __tinc1_mask - __tinc0_mask * __tdims0 \
    ,clusterids_datap += __tinc1_clusterids - __tinc0_clusterids * __tdims0 \
    ,cdata_datap += __tinc1_cdata - __tinc0_cdata * __tdims0 \
    ,cmask_datap += __tinc1_cmask - __tinc0_cmask * __tdims0 \
    ), \
    (  ,data_datap += __tinc0_data \
    ,mask_datap += __tinc0_mask \
    ,clusterids_datap += __tinc0_clusterids \
    ,cdata_datap += __tinc0_cdata \
    ,cmask_datap += __tinc0_cmask \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_getclustercentroids_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    data_datap -= __tinc1_data * __tdims1 + __offsp[0]; \
    mask_datap -= __tinc1_mask * __tdims1 + __offsp[1]; \
    clusterids_datap -= __tinc1_clusterids * __tdims1 + __offsp[2]; \
    cdata_datap -= __tinc1_cdata * __tdims1 + __offsp[3]; \
    cmask_datap -= __tinc1_cmask * __tdims1 + __offsp[4]; \
  )
  register PDL_Indx __inc_cdata_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,0)]; (void)__inc_cdata_d;register PDL_Indx __inc_cdata_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,1)]; (void)__inc_cdata_k;
  register PDL_Indx __inc_clusterids_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_clusterids_n;
  register PDL_Indx __inc_cmask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,4,0)]; (void)__inc_cmask_d;register PDL_Indx __inc_cmask_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,4,1)]; (void)__inc_cmask_k;
  register PDL_Indx __inc_data_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_data_d;register PDL_Indx __inc_data_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_data_n;
  register PDL_Indx __inc_mask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_mask_d;register PDL_Indx __inc_mask_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_mask_n;
  #ifndef PDL_DECLARE_PARAMS_getclustercentroids_1
  #define PDL_DECLARE_PARAMS_getclustercentroids_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_data,PDL_PPSYM_PARAM_data,PDL_TYPE_PARAM_mask,PDL_PPSYM_PARAM_mask,PDL_TYPE_PARAM_clusterids,PDL_PPSYM_PARAM_clusterids,PDL_TYPE_PARAM_cdata,PDL_PPSYM_PARAM_cdata,PDL_TYPE_PARAM_cmask,PDL_PPSYM_PARAM_cmask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_data, data, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_data) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_mask, mask, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_mask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_clusterids, clusterids, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_clusterids) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_cdata, cdata, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_cdata) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_cmask, cmask, (__privtrans->pdls[4]), 1, PDL_PPSYM_PARAM_cmask)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_getclustercentroids_1(PDL_SByte,A,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);

          PDL_BROADCASTLOOP_START_getclustercentroids_readdata
              p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);

              getclustercentroids(__privtrans->ind_sizes[1], __privtrans->ind_sizes[2], __privtrans->ind_sizes[0], datapp, maskpp,
                                  clusterids_datap, cdatapp, cmaskpp, transpose, *__params->ctrMethodFlag);
            PDL_BROADCASTLOOP_END_getclustercentroids_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_getclustercentroids_1(PDL_Byte,B,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);

          PDL_BROADCASTLOOP_START_getclustercentroids_readdata
              p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);

              getclustercentroids(__privtrans->ind_sizes[1], __privtrans->ind_sizes[2], __privtrans->ind_sizes[0], datapp, maskpp,
                                  clusterids_datap, cdatapp, cmaskpp, transpose, *__params->ctrMethodFlag);
            PDL_BROADCASTLOOP_END_getclustercentroids_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_getclustercentroids_1(PDL_Short,S,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);

          PDL_BROADCASTLOOP_START_getclustercentroids_readdata
              p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);

              getclustercentroids(__privtrans->ind_sizes[1], __privtrans->ind_sizes[2], __privtrans->ind_sizes[0], datapp, maskpp,
                                  clusterids_datap, cdatapp, cmaskpp, transpose, *__params->ctrMethodFlag);
            PDL_BROADCASTLOOP_END_getclustercentroids_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_getclustercentroids_1(PDL_Ushort,U,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);

          PDL_BROADCASTLOOP_START_getclustercentroids_readdata
              p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);

              getclustercentroids(__privtrans->ind_sizes[1], __privtrans->ind_sizes[2], __privtrans->ind_sizes[0], datapp, maskpp,
                                  clusterids_datap, cdatapp, cmaskpp, transpose, *__params->ctrMethodFlag);
            PDL_BROADCASTLOOP_END_getclustercentroids_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_getclustercentroids_1(PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);

          PDL_BROADCASTLOOP_START_getclustercentroids_readdata
              p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);

              getclustercentroids(__privtrans->ind_sizes[1], __privtrans->ind_sizes[2], __privtrans->ind_sizes[0], datapp, maskpp,
                                  clusterids_datap, cdatapp, cmaskpp, transpose, *__params->ctrMethodFlag);
            PDL_BROADCASTLOOP_END_getclustercentroids_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_getclustercentroids_1(PDL_ULong,K,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);

          PDL_BROADCASTLOOP_START_getclustercentroids_readdata
              p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);

              getclustercentroids(__privtrans->ind_sizes[1], __privtrans->ind_sizes[2], __privtrans->ind_sizes[0], datapp, maskpp,
                                  clusterids_datap, cdatapp, cmaskpp, transpose, *__params->ctrMethodFlag);
            PDL_BROADCASTLOOP_END_getclustercentroids_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_getclustercentroids_1(PDL_Indx,N,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);

          PDL_BROADCASTLOOP_START_getclustercentroids_readdata
              p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);

              getclustercentroids(__privtrans->ind_sizes[1], __privtrans->ind_sizes[2], __privtrans->ind_sizes[0], datapp, maskpp,
                                  clusterids_datap, cdatapp, cmaskpp, transpose, *__params->ctrMethodFlag);
            PDL_BROADCASTLOOP_END_getclustercentroids_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_getclustercentroids_1(PDL_ULongLong,P,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);

          PDL_BROADCASTLOOP_START_getclustercentroids_readdata
              p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);

              getclustercentroids(__privtrans->ind_sizes[1], __privtrans->ind_sizes[2], __privtrans->ind_sizes[0], datapp, maskpp,
                                  clusterids_datap, cdatapp, cmaskpp, transpose, *__params->ctrMethodFlag);
            PDL_BROADCASTLOOP_END_getclustercentroids_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_getclustercentroids_1(PDL_LongLong,Q,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);

          PDL_BROADCASTLOOP_START_getclustercentroids_readdata
              p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);

              getclustercentroids(__privtrans->ind_sizes[1], __privtrans->ind_sizes[2], __privtrans->ind_sizes[0], datapp, maskpp,
                                  clusterids_datap, cdatapp, cmaskpp, transpose, *__params->ctrMethodFlag);
            PDL_BROADCASTLOOP_END_getclustercentroids_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_getclustercentroids_1(PDL_Float,F,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);

          PDL_BROADCASTLOOP_START_getclustercentroids_readdata
              p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);

              getclustercentroids(__privtrans->ind_sizes[1], __privtrans->ind_sizes[2], __privtrans->ind_sizes[0], datapp, maskpp,
                                  clusterids_datap, cdatapp, cmaskpp, transpose, *__params->ctrMethodFlag);
            PDL_BROADCASTLOOP_END_getclustercentroids_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_getclustercentroids_1(PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);

          PDL_BROADCASTLOOP_START_getclustercentroids_readdata
              p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);

              getclustercentroids(__privtrans->ind_sizes[1], __privtrans->ind_sizes[2], __privtrans->ind_sizes[0], datapp, maskpp,
                                  clusterids_datap, cdatapp, cmaskpp, transpose, *__params->ctrMethodFlag);
            PDL_BROADCASTLOOP_END_getclustercentroids_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_getclustercentroids_1(PDL_LDouble,E,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);

          PDL_BROADCASTLOOP_START_getclustercentroids_readdata
              p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);

              getclustercentroids(__privtrans->ind_sizes[1], __privtrans->ind_sizes[2], __privtrans->ind_sizes[0], datapp, maskpp,
                                  clusterids_datap, cdatapp, cmaskpp, transpose, *__params->ctrMethodFlag);
            PDL_BROADCASTLOOP_END_getclustercentroids_readdata

          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in getclustercentroids: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_getclustercentroids_free(pdl_trans *__privtrans, char destroy) {
  pdl_error PDL_err = {0, NULL, 0};
#line 1959 "Cluster.xs"
  pdl_params_getclustercentroids *__params = __privtrans->params; (void)__params;
  PDL_FREE_CODE(__privtrans, destroy, free(__params->ctrMethodFlag); /* CType.get_free */
  , )  return PDL_err;
}

static pdl_datatypes pdl_getclustercentroids_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_getclustercentroids_vtable_realdims[] = { 2, 2, 1, 2, 2 };
static char *pdl_getclustercentroids_vtable_parnames[] = { "data","mask","clusterids","cdata","cmask" };
static short pdl_getclustercentroids_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_getclustercentroids_vtable_partypes[] = { PDL_D, PDL_L, PDL_L, PDL_D, PDL_L };
static PDL_Indx pdl_getclustercentroids_vtable_realdims_starts[] = { 0, 2, 4, 5, 7 };
static PDL_Indx pdl_getclustercentroids_vtable_realdims_ind_ids[] = { 0, 2, 0, 2, 2, 0, 1, 0, 1 };
static char *pdl_getclustercentroids_vtable_indnames[] = { "d","k","n" };
pdl_transvtable pdl_getclustercentroids_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_getclustercentroids_vtable_gentypes, 3, 5, NULL /*CORE21*/,
  pdl_getclustercentroids_vtable_realdims, pdl_getclustercentroids_vtable_parnames,
  pdl_getclustercentroids_vtable_parflags, pdl_getclustercentroids_vtable_partypes,
  pdl_getclustercentroids_vtable_realdims_starts, pdl_getclustercentroids_vtable_realdims_ind_ids, 9,
  3, pdl_getclustercentroids_vtable_indnames,
  NULL, pdl_getclustercentroids_readdata, NULL,
  pdl_getclustercentroids_free,
  sizeof(pdl_params_getclustercentroids),"PDL::Cluster::getclustercentroids"
};


pdl_error pdl_run_getclustercentroids(pdl  *data,pdl  *mask,pdl  *clusterids,pdl  *cdata,pdl  *cmask,char  *ctrMethodFlag) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_getclustercentroids_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_getclustercentroids *__params = __privtrans->params;
  __privtrans->pdls[0] = data;
  __privtrans->pdls[1] = mask;
  __privtrans->pdls[2] = clusterids;
  __privtrans->pdls[3] = cdata;
  __privtrans->pdls[4] = cmask;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->ctrMethodFlag) = malloc(strlen(ctrMethodFlag)+1); strcpy(__params->ctrMethodFlag,ctrMethodFlag); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_getclustermedoids_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 2011 "Cluster.xs"
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in getclustermedoids:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_distance = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_centroids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_errors = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc1_distance = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_centroids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_errors = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  #define PDL_BROADCASTLOOP_START_getclustermedoids_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    distance_datap += __offsp[0]; \
    clusterids_datap += __offsp[1]; \
    centroids_datap += __offsp[2]; \
    errors_datap += __offsp[3]; \
    , \
    (  ,distance_datap += __tinc1_distance - __tinc0_distance * __tdims0 \
    ,clusterids_datap += __tinc1_clusterids - __tinc0_clusterids * __tdims0 \
    ,centroids_datap += __tinc1_centroids - __tinc0_centroids * __tdims0 \
    ,errors_datap += __tinc1_errors - __tinc0_errors * __tdims0 \
    ), \
    (  ,distance_datap += __tinc0_distance \
    ,clusterids_datap += __tinc0_clusterids \
    ,centroids_datap += __tinc0_centroids \
    ,errors_datap += __tinc0_errors \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_getclustermedoids_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    distance_datap -= __tinc1_distance * __tdims1 + __offsp[0]; \
    clusterids_datap -= __tinc1_clusterids * __tdims1 + __offsp[1]; \
    centroids_datap -= __tinc1_centroids * __tdims1 + __offsp[2]; \
    errors_datap -= __tinc1_errors * __tdims1 + __offsp[3]; \
  )
  register PDL_Indx __inc_centroids_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_centroids_k;
  register PDL_Indx __inc_clusterids_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_clusterids_n;
  register PDL_Indx __inc_distance_n0 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_distance_n0;register PDL_Indx __inc_distance_n1 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_distance_n1;
  register PDL_Indx __inc_errors_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,0)]; (void)__inc_errors_k;
  #ifndef PDL_DECLARE_PARAMS_getclustermedoids_1
  #define PDL_DECLARE_PARAMS_getclustermedoids_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_distance,PDL_PPSYM_PARAM_distance,PDL_TYPE_PARAM_clusterids,PDL_PPSYM_PARAM_clusterids,PDL_TYPE_PARAM_centroids,PDL_PPSYM_PARAM_centroids,PDL_TYPE_PARAM_errors,PDL_PPSYM_PARAM_errors) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_distance, distance, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_distance) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_clusterids, clusterids, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_clusterids) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_centroids, centroids, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_centroids) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_errors, errors, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_errors)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_getclustermedoids_1(PDL_SByte,A,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          PDL_BROADCASTLOOP_START_getclustermedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], distance_datap, distpp);
              getclustermedoids(__privtrans->ind_sizes[0], __privtrans->ind_sizes[1], distpp,
                                clusterids_datap, centroids_datap, errors_datap);
            PDL_BROADCASTLOOP_END_getclustermedoids_readdata
            /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_getclustermedoids_1(PDL_Byte,B,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          PDL_BROADCASTLOOP_START_getclustermedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], distance_datap, distpp);
              getclustermedoids(__privtrans->ind_sizes[0], __privtrans->ind_sizes[1], distpp,
                                clusterids_datap, centroids_datap, errors_datap);
            PDL_BROADCASTLOOP_END_getclustermedoids_readdata
            /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_getclustermedoids_1(PDL_Short,S,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          PDL_BROADCASTLOOP_START_getclustermedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], distance_datap, distpp);
              getclustermedoids(__privtrans->ind_sizes[0], __privtrans->ind_sizes[1], distpp,
                                clusterids_datap, centroids_datap, errors_datap);
            PDL_BROADCASTLOOP_END_getclustermedoids_readdata
            /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_getclustermedoids_1(PDL_Ushort,U,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          PDL_BROADCASTLOOP_START_getclustermedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], distance_datap, distpp);
              getclustermedoids(__privtrans->ind_sizes[0], __privtrans->ind_sizes[1], distpp,
                                clusterids_datap, centroids_datap, errors_datap);
            PDL_BROADCASTLOOP_END_getclustermedoids_readdata
            /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_getclustermedoids_1(PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          PDL_BROADCASTLOOP_START_getclustermedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], distance_datap, distpp);
              getclustermedoids(__privtrans->ind_sizes[0], __privtrans->ind_sizes[1], distpp,
                                clusterids_datap, centroids_datap, errors_datap);
            PDL_BROADCASTLOOP_END_getclustermedoids_readdata
            /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_getclustermedoids_1(PDL_ULong,K,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          PDL_BROADCASTLOOP_START_getclustermedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], distance_datap, distpp);
              getclustermedoids(__privtrans->ind_sizes[0], __privtrans->ind_sizes[1], distpp,
                                clusterids_datap, centroids_datap, errors_datap);
            PDL_BROADCASTLOOP_END_getclustermedoids_readdata
            /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_getclustermedoids_1(PDL_Indx,N,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          PDL_BROADCASTLOOP_START_getclustermedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], distance_datap, distpp);
              getclustermedoids(__privtrans->ind_sizes[0], __privtrans->ind_sizes[1], distpp,
                                clusterids_datap, centroids_datap, errors_datap);
            PDL_BROADCASTLOOP_END_getclustermedoids_readdata
            /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_getclustermedoids_1(PDL_ULongLong,P,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          PDL_BROADCASTLOOP_START_getclustermedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], distance_datap, distpp);
              getclustermedoids(__privtrans->ind_sizes[0], __privtrans->ind_sizes[1], distpp,
                                clusterids_datap, centroids_datap, errors_datap);
            PDL_BROADCASTLOOP_END_getclustermedoids_readdata
            /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_getclustermedoids_1(PDL_LongLong,Q,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          PDL_BROADCASTLOOP_START_getclustermedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], distance_datap, distpp);
              getclustermedoids(__privtrans->ind_sizes[0], __privtrans->ind_sizes[1], distpp,
                                clusterids_datap, centroids_datap, errors_datap);
            PDL_BROADCASTLOOP_END_getclustermedoids_readdata
            /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_getclustermedoids_1(PDL_Float,F,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          PDL_BROADCASTLOOP_START_getclustermedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], distance_datap, distpp);
              getclustermedoids(__privtrans->ind_sizes[0], __privtrans->ind_sizes[1], distpp,
                                clusterids_datap, centroids_datap, errors_datap);
            PDL_BROADCASTLOOP_END_getclustermedoids_readdata
            /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_getclustermedoids_1(PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          PDL_BROADCASTLOOP_START_getclustermedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], distance_datap, distpp);
              getclustermedoids(__privtrans->ind_sizes[0], __privtrans->ind_sizes[1], distpp,
                                clusterids_datap, centroids_datap, errors_datap);
            PDL_BROADCASTLOOP_END_getclustermedoids_readdata
            /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_getclustermedoids_1(PDL_LDouble,E,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          PDL_BROADCASTLOOP_START_getclustermedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[1], __privtrans->ind_sizes[1], distance_datap, distpp);
              getclustermedoids(__privtrans->ind_sizes[0], __privtrans->ind_sizes[1], distpp,
                                clusterids_datap, centroids_datap, errors_datap);
            PDL_BROADCASTLOOP_END_getclustermedoids_readdata
            /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in getclustermedoids: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}

static pdl_datatypes pdl_getclustermedoids_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_getclustermedoids_vtable_realdims[] = { 2, 1, 1, 1 };
static char *pdl_getclustermedoids_vtable_parnames[] = { "distance","clusterids","centroids","errors" };
static short pdl_getclustermedoids_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_getclustermedoids_vtable_partypes[] = { PDL_D, PDL_L, PDL_L, PDL_D };
static PDL_Indx pdl_getclustermedoids_vtable_realdims_starts[] = { 0, 2, 3, 4 };
static PDL_Indx pdl_getclustermedoids_vtable_realdims_ind_ids[] = { 1, 1, 1, 0, 0 };
static char *pdl_getclustermedoids_vtable_indnames[] = { "k","n" };
pdl_transvtable pdl_getclustermedoids_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_getclustermedoids_vtable_gentypes, 2, 4, NULL /*CORE21*/,
  pdl_getclustermedoids_vtable_realdims, pdl_getclustermedoids_vtable_parnames,
  pdl_getclustermedoids_vtable_parflags, pdl_getclustermedoids_vtable_partypes,
  pdl_getclustermedoids_vtable_realdims_starts, pdl_getclustermedoids_vtable_realdims_ind_ids, 5,
  2, pdl_getclustermedoids_vtable_indnames,
  NULL, pdl_getclustermedoids_readdata, NULL,
  NULL,
  0,"PDL::Cluster::getclustermedoids"
};


pdl_error pdl_run_getclustermedoids(pdl  *distance,pdl  *clusterids,pdl  *centroids,pdl  *errors) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_getclustermedoids_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  __privtrans->pdls[0] = distance;
  __privtrans->pdls[1] = clusterids;
  __privtrans->pdls[2] = centroids;
  __privtrans->pdls[3] = errors;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_kcluster {
#line 2269 "Cluster.xs"
  char  *distFlag;
  char  *ctrMethodFlag;
} pdl_params_kcluster;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_kcluster_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 2278 "Cluster.xs"
  pdl_params_kcluster *__params = __privtrans->params; (void)__params;
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in kcluster:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_nclusters = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc0_npass = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
  register PDL_Indx __tinc0_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,0);
  register PDL_Indx __tinc0_error = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,6,0);
  register PDL_Indx __tinc0_nfound = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,7,0);
  register PDL_Indx __tinc1_nclusters = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  register PDL_Indx __tinc1_npass = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
  register PDL_Indx __tinc1_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,1);
  register PDL_Indx __tinc1_error = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,6,1);
  register PDL_Indx __tinc1_nfound = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,7,1);
  #define PDL_BROADCASTLOOP_START_kcluster_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    nclusters_datap += __offsp[0]; \
    data_datap += __offsp[1]; \
    mask_datap += __offsp[2]; \
    weight_datap += __offsp[3]; \
    npass_datap += __offsp[4]; \
    clusterids_datap += __offsp[5]; \
    error_datap += __offsp[6]; \
    nfound_datap += __offsp[7]; \
    , \
    (  ,nclusters_datap += __tinc1_nclusters - __tinc0_nclusters * __tdims0 \
    ,data_datap += __tinc1_data - __tinc0_data * __tdims0 \
    ,mask_datap += __tinc1_mask - __tinc0_mask * __tdims0 \
    ,weight_datap += __tinc1_weight - __tinc0_weight * __tdims0 \
    ,npass_datap += __tinc1_npass - __tinc0_npass * __tdims0 \
    ,clusterids_datap += __tinc1_clusterids - __tinc0_clusterids * __tdims0 \
    ,error_datap += __tinc1_error - __tinc0_error * __tdims0 \
    ,nfound_datap += __tinc1_nfound - __tinc0_nfound * __tdims0 \
    ), \
    (  ,nclusters_datap += __tinc0_nclusters \
    ,data_datap += __tinc0_data \
    ,mask_datap += __tinc0_mask \
    ,weight_datap += __tinc0_weight \
    ,npass_datap += __tinc0_npass \
    ,clusterids_datap += __tinc0_clusterids \
    ,error_datap += __tinc0_error \
    ,nfound_datap += __tinc0_nfound \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_kcluster_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    nclusters_datap -= __tinc1_nclusters * __tdims1 + __offsp[0]; \
    data_datap -= __tinc1_data * __tdims1 + __offsp[1]; \
    mask_datap -= __tinc1_mask * __tdims1 + __offsp[2]; \
    weight_datap -= __tinc1_weight * __tdims1 + __offsp[3]; \
    npass_datap -= __tinc1_npass * __tdims1 + __offsp[4]; \
    clusterids_datap -= __tinc1_clusterids * __tdims1 + __offsp[5]; \
    error_datap -= __tinc1_error * __tdims1 + __offsp[6]; \
    nfound_datap -= __tinc1_nfound * __tdims1 + __offsp[7]; \
  )
  register PDL_Indx __inc_clusterids_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,5,0)]; (void)__inc_clusterids_n;
  register PDL_Indx __inc_data_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_data_d;register PDL_Indx __inc_data_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_data_n;
  register PDL_Indx __inc_mask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_mask_d;register PDL_Indx __inc_mask_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,1)]; (void)__inc_mask_n;
  register PDL_Indx __inc_weight_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,0)]; (void)__inc_weight_d;
  #ifndef PDL_DECLARE_PARAMS_kcluster_1
  #define PDL_DECLARE_PARAMS_kcluster_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_nclusters,PDL_PPSYM_PARAM_nclusters,PDL_TYPE_PARAM_data,PDL_PPSYM_PARAM_data,PDL_TYPE_PARAM_mask,PDL_PPSYM_PARAM_mask,PDL_TYPE_PARAM_weight,PDL_PPSYM_PARAM_weight,PDL_TYPE_PARAM_npass,PDL_PPSYM_PARAM_npass,PDL_TYPE_PARAM_clusterids,PDL_PPSYM_PARAM_clusterids,PDL_TYPE_PARAM_error,PDL_PPSYM_PARAM_error,PDL_TYPE_PARAM_nfound,PDL_PPSYM_PARAM_nfound) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_nclusters, nclusters, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_nclusters) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_data, data, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_data) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_mask, mask, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_mask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_weight, weight, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_weight) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_npass, npass, (__privtrans->pdls[4]), 1, PDL_PPSYM_PARAM_npass) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_clusterids, clusterids, (__privtrans->pdls[5]), 1, PDL_PPSYM_PARAM_clusterids) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_error, error, (__privtrans->pdls[6]), 1, PDL_PPSYM_PARAM_error) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_nfound, nfound, (__privtrans->pdls[7]), 1, PDL_PPSYM_PARAM_nfound)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_kcluster_1(PDL_SByte,A,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
            PDL_BROADCASTLOOP_START_kcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              kcluster((nclusters_datap)[0], __privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                       weight_datap, transpose, (npass_datap)[0], *__params->ctrMethodFlag, *__params->distFlag,
                       clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kcluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_kcluster_1(PDL_Byte,B,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
            PDL_BROADCASTLOOP_START_kcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              kcluster((nclusters_datap)[0], __privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                       weight_datap, transpose, (npass_datap)[0], *__params->ctrMethodFlag, *__params->distFlag,
                       clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kcluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_kcluster_1(PDL_Short,S,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
            PDL_BROADCASTLOOP_START_kcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              kcluster((nclusters_datap)[0], __privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                       weight_datap, transpose, (npass_datap)[0], *__params->ctrMethodFlag, *__params->distFlag,
                       clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kcluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_kcluster_1(PDL_Ushort,U,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
            PDL_BROADCASTLOOP_START_kcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              kcluster((nclusters_datap)[0], __privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                       weight_datap, transpose, (npass_datap)[0], *__params->ctrMethodFlag, *__params->distFlag,
                       clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kcluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_kcluster_1(PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
            PDL_BROADCASTLOOP_START_kcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              kcluster((nclusters_datap)[0], __privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                       weight_datap, transpose, (npass_datap)[0], *__params->ctrMethodFlag, *__params->distFlag,
                       clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kcluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_kcluster_1(PDL_ULong,K,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
            PDL_BROADCASTLOOP_START_kcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              kcluster((nclusters_datap)[0], __privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                       weight_datap, transpose, (npass_datap)[0], *__params->ctrMethodFlag, *__params->distFlag,
                       clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kcluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_kcluster_1(PDL_Indx,N,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
            PDL_BROADCASTLOOP_START_kcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              kcluster((nclusters_datap)[0], __privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                       weight_datap, transpose, (npass_datap)[0], *__params->ctrMethodFlag, *__params->distFlag,
                       clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kcluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_kcluster_1(PDL_ULongLong,P,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
            PDL_BROADCASTLOOP_START_kcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              kcluster((nclusters_datap)[0], __privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                       weight_datap, transpose, (npass_datap)[0], *__params->ctrMethodFlag, *__params->distFlag,
                       clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kcluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_kcluster_1(PDL_LongLong,Q,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
            PDL_BROADCASTLOOP_START_kcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              kcluster((nclusters_datap)[0], __privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                       weight_datap, transpose, (npass_datap)[0], *__params->ctrMethodFlag, *__params->distFlag,
                       clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kcluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_kcluster_1(PDL_Float,F,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
            PDL_BROADCASTLOOP_START_kcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              kcluster((nclusters_datap)[0], __privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                       weight_datap, transpose, (npass_datap)[0], *__params->ctrMethodFlag, *__params->distFlag,
                       clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kcluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_kcluster_1(PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
            PDL_BROADCASTLOOP_START_kcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              kcluster((nclusters_datap)[0], __privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                       weight_datap, transpose, (npass_datap)[0], *__params->ctrMethodFlag, *__params->distFlag,
                       clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kcluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_kcluster_1(PDL_LDouble,E,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
            PDL_BROADCASTLOOP_START_kcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              kcluster((nclusters_datap)[0], __privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp,
                       weight_datap, transpose, (npass_datap)[0], *__params->ctrMethodFlag, *__params->distFlag,
                       clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kcluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in kcluster: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_kcluster_free(pdl_trans *__privtrans, char destroy) {
  pdl_error PDL_err = {0, NULL, 0};
#line 2588 "Cluster.xs"
  pdl_params_kcluster *__params = __privtrans->params; (void)__params;
  PDL_FREE_CODE(__privtrans, destroy, free(__params->distFlag); /* CType.get_free */
  free(__params->ctrMethodFlag); /* CType.get_free */
  , )  return PDL_err;
}

static pdl_datatypes pdl_kcluster_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_kcluster_vtable_realdims[] = { 0, 2, 2, 1, 0, 1, 0, 0 };
static char *pdl_kcluster_vtable_parnames[] = { "nclusters","data","mask","weight","npass","clusterids","error","nfound" };
static short pdl_kcluster_vtable_parflags[] = {
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_kcluster_vtable_partypes[] = { PDL_L, PDL_D, PDL_L, PDL_D, PDL_L, PDL_L, PDL_D, PDL_L };
static PDL_Indx pdl_kcluster_vtable_realdims_starts[] = { 0, 0, 2, 4, 5, 5, 6, 6 };
static PDL_Indx pdl_kcluster_vtable_realdims_ind_ids[] = { 0, 1, 0, 1, 0, 1 };
static char *pdl_kcluster_vtable_indnames[] = { "d","n" };
pdl_transvtable pdl_kcluster_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_kcluster_vtable_gentypes, 5, 8, NULL /*CORE21*/,
  pdl_kcluster_vtable_realdims, pdl_kcluster_vtable_parnames,
  pdl_kcluster_vtable_parflags, pdl_kcluster_vtable_partypes,
  pdl_kcluster_vtable_realdims_starts, pdl_kcluster_vtable_realdims_ind_ids, 6,
  2, pdl_kcluster_vtable_indnames,
  NULL, pdl_kcluster_readdata, NULL,
  pdl_kcluster_free,
  sizeof(pdl_params_kcluster),"PDL::Cluster::kcluster"
};


pdl_error pdl_run_kcluster(pdl  *nclusters,pdl  *data,pdl  *mask,pdl  *weight,pdl  *npass,pdl  *clusterids,pdl  *error,pdl  *nfound,char  *distFlag,char  *ctrMethodFlag) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_kcluster_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_kcluster *__params = __privtrans->params;
  __privtrans->pdls[0] = nclusters;
  __privtrans->pdls[1] = data;
  __privtrans->pdls[2] = mask;
  __privtrans->pdls[3] = weight;
  __privtrans->pdls[4] = npass;
  __privtrans->pdls[5] = clusterids;
  __privtrans->pdls[6] = error;
  __privtrans->pdls[7] = nfound;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->distFlag) = malloc(strlen(distFlag)+1); strcpy(__params->distFlag,distFlag); /* CType.get_copy */
  (__params->ctrMethodFlag) = malloc(strlen(ctrMethodFlag)+1); strcpy(__params->ctrMethodFlag,ctrMethodFlag); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_kmedoids_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 2648 "Cluster.xs"
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in kmedoids:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_nclusters = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_distance = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_npass = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc0_error = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
  register PDL_Indx __tinc0_nfound = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,0);
  register PDL_Indx __tinc1_nclusters = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_distance = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_npass = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  register PDL_Indx __tinc1_error = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
  register PDL_Indx __tinc1_nfound = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,1);
  #define PDL_BROADCASTLOOP_START_kmedoids_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    nclusters_datap += __offsp[0]; \
    distance_datap += __offsp[1]; \
    npass_datap += __offsp[2]; \
    clusterids_datap += __offsp[3]; \
    error_datap += __offsp[4]; \
    nfound_datap += __offsp[5]; \
    , \
    (  ,nclusters_datap += __tinc1_nclusters - __tinc0_nclusters * __tdims0 \
    ,distance_datap += __tinc1_distance - __tinc0_distance * __tdims0 \
    ,npass_datap += __tinc1_npass - __tinc0_npass * __tdims0 \
    ,clusterids_datap += __tinc1_clusterids - __tinc0_clusterids * __tdims0 \
    ,error_datap += __tinc1_error - __tinc0_error * __tdims0 \
    ,nfound_datap += __tinc1_nfound - __tinc0_nfound * __tdims0 \
    ), \
    (  ,nclusters_datap += __tinc0_nclusters \
    ,distance_datap += __tinc0_distance \
    ,npass_datap += __tinc0_npass \
    ,clusterids_datap += __tinc0_clusterids \
    ,error_datap += __tinc0_error \
    ,nfound_datap += __tinc0_nfound \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_kmedoids_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    nclusters_datap -= __tinc1_nclusters * __tdims1 + __offsp[0]; \
    distance_datap -= __tinc1_distance * __tdims1 + __offsp[1]; \
    npass_datap -= __tinc1_npass * __tdims1 + __offsp[2]; \
    clusterids_datap -= __tinc1_clusterids * __tdims1 + __offsp[3]; \
    error_datap -= __tinc1_error * __tdims1 + __offsp[4]; \
    nfound_datap -= __tinc1_nfound * __tdims1 + __offsp[5]; \
  )
  register PDL_Indx __inc_clusterids_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,0)]; (void)__inc_clusterids_n;
  register PDL_Indx __inc_distance_n0 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_distance_n0;register PDL_Indx __inc_distance_n1 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_distance_n1;
  #ifndef PDL_DECLARE_PARAMS_kmedoids_1
  #define PDL_DECLARE_PARAMS_kmedoids_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_nclusters,PDL_PPSYM_PARAM_nclusters,PDL_TYPE_PARAM_distance,PDL_PPSYM_PARAM_distance,PDL_TYPE_PARAM_npass,PDL_PPSYM_PARAM_npass,PDL_TYPE_PARAM_clusterids,PDL_PPSYM_PARAM_clusterids,PDL_TYPE_PARAM_error,PDL_PPSYM_PARAM_error,PDL_TYPE_PARAM_nfound,PDL_PPSYM_PARAM_nfound) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_nclusters, nclusters, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_nclusters) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_distance, distance, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_distance) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_npass, npass, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_npass) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_clusterids, clusterids, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_clusterids) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_error, error, (__privtrans->pdls[4]), 1, PDL_PPSYM_PARAM_error) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_nfound, nfound, (__privtrans->pdls[5]), 1, PDL_PPSYM_PARAM_nfound)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_kmedoids_1(PDL_SByte,A,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          PDL_BROADCASTLOOP_START_kmedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], distance_datap, distpp);
              kmedoids((nclusters_datap)[0], __privtrans->ind_sizes[0], distpp,
                       (npass_datap)[0], clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kmedoids_readdata
          /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_kmedoids_1(PDL_Byte,B,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          PDL_BROADCASTLOOP_START_kmedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], distance_datap, distpp);
              kmedoids((nclusters_datap)[0], __privtrans->ind_sizes[0], distpp,
                       (npass_datap)[0], clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kmedoids_readdata
          /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_kmedoids_1(PDL_Short,S,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          PDL_BROADCASTLOOP_START_kmedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], distance_datap, distpp);
              kmedoids((nclusters_datap)[0], __privtrans->ind_sizes[0], distpp,
                       (npass_datap)[0], clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kmedoids_readdata
          /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_kmedoids_1(PDL_Ushort,U,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          PDL_BROADCASTLOOP_START_kmedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], distance_datap, distpp);
              kmedoids((nclusters_datap)[0], __privtrans->ind_sizes[0], distpp,
                       (npass_datap)[0], clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kmedoids_readdata
          /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_kmedoids_1(PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          PDL_BROADCASTLOOP_START_kmedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], distance_datap, distpp);
              kmedoids((nclusters_datap)[0], __privtrans->ind_sizes[0], distpp,
                       (npass_datap)[0], clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kmedoids_readdata
          /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_kmedoids_1(PDL_ULong,K,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          PDL_BROADCASTLOOP_START_kmedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], distance_datap, distpp);
              kmedoids((nclusters_datap)[0], __privtrans->ind_sizes[0], distpp,
                       (npass_datap)[0], clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kmedoids_readdata
          /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_kmedoids_1(PDL_Indx,N,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          PDL_BROADCASTLOOP_START_kmedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], distance_datap, distpp);
              kmedoids((nclusters_datap)[0], __privtrans->ind_sizes[0], distpp,
                       (npass_datap)[0], clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kmedoids_readdata
          /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_kmedoids_1(PDL_ULongLong,P,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          PDL_BROADCASTLOOP_START_kmedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], distance_datap, distpp);
              kmedoids((nclusters_datap)[0], __privtrans->ind_sizes[0], distpp,
                       (npass_datap)[0], clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kmedoids_readdata
          /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_kmedoids_1(PDL_LongLong,Q,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          PDL_BROADCASTLOOP_START_kmedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], distance_datap, distpp);
              kmedoids((nclusters_datap)[0], __privtrans->ind_sizes[0], distpp,
                       (npass_datap)[0], clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kmedoids_readdata
          /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_kmedoids_1(PDL_Float,F,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          PDL_BROADCASTLOOP_START_kmedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], distance_datap, distpp);
              kmedoids((nclusters_datap)[0], __privtrans->ind_sizes[0], distpp,
                       (npass_datap)[0], clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kmedoids_readdata
          /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_kmedoids_1(PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          PDL_BROADCASTLOOP_START_kmedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], distance_datap, distpp);
              kmedoids((nclusters_datap)[0], __privtrans->ind_sizes[0], distpp,
                       (npass_datap)[0], clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kmedoids_readdata
          /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_kmedoids_1(PDL_LDouble,E,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L)
        {
          double **distpp = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          PDL_BROADCASTLOOP_START_kmedoids_readdata
              p2pp_dbl_ragged(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], distance_datap, distpp);
              kmedoids((nclusters_datap)[0], __privtrans->ind_sizes[0], distpp,
                       (npass_datap)[0], clusterids_datap, error_datap, nfound_datap);
            PDL_BROADCASTLOOP_END_kmedoids_readdata
          /*-- cleanup --*/
          if (distpp) free(distpp);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in kmedoids: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}

static pdl_datatypes pdl_kmedoids_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_kmedoids_vtable_realdims[] = { 0, 2, 0, 1, 0, 0 };
static char *pdl_kmedoids_vtable_parnames[] = { "nclusters","distance","npass","clusterids","error","nfound" };
static short pdl_kmedoids_vtable_parflags[] = {
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_kmedoids_vtable_partypes[] = { PDL_L, PDL_D, PDL_L, PDL_L, PDL_D, PDL_L };
static PDL_Indx pdl_kmedoids_vtable_realdims_starts[] = { 0, 0, 2, 2, 3, 3 };
static PDL_Indx pdl_kmedoids_vtable_realdims_ind_ids[] = { 0, 0, 0 };
static char *pdl_kmedoids_vtable_indnames[] = { "n" };
pdl_transvtable pdl_kmedoids_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_kmedoids_vtable_gentypes, 3, 6, NULL /*CORE21*/,
  pdl_kmedoids_vtable_realdims, pdl_kmedoids_vtable_parnames,
  pdl_kmedoids_vtable_parflags, pdl_kmedoids_vtable_partypes,
  pdl_kmedoids_vtable_realdims_starts, pdl_kmedoids_vtable_realdims_ind_ids, 3,
  1, pdl_kmedoids_vtable_indnames,
  NULL, pdl_kmedoids_readdata, NULL,
  NULL,
  0,"PDL::Cluster::kmedoids"
};


pdl_error pdl_run_kmedoids(pdl  *nclusters,pdl  *distance,pdl  *npass,pdl  *clusterids,pdl  *error,pdl  *nfound) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_kmedoids_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  __privtrans->pdls[0] = nclusters;
  __privtrans->pdls[1] = distance;
  __privtrans->pdls[2] = npass;
  __privtrans->pdls[3] = clusterids;
  __privtrans->pdls[4] = error;
  __privtrans->pdls[5] = nfound;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_treecluster {
#line 2922 "Cluster.xs"
  char  *distFlag;
  char  *methodFlag;
} pdl_params_treecluster;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_treecluster_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 2931 "Cluster.xs"
  pdl_params_treecluster *__params = __privtrans->params; (void)__params;
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in treecluster:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_tree = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc0_lnkdist = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
  register PDL_Indx __tinc1_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_tree = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  register PDL_Indx __tinc1_lnkdist = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
  #define PDL_BROADCASTLOOP_START_treecluster_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    data_datap += __offsp[0]; \
    mask_datap += __offsp[1]; \
    weight_datap += __offsp[2]; \
    tree_datap += __offsp[3]; \
    lnkdist_datap += __offsp[4]; \
    , \
    (  ,data_datap += __tinc1_data - __tinc0_data * __tdims0 \
    ,mask_datap += __tinc1_mask - __tinc0_mask * __tdims0 \
    ,weight_datap += __tinc1_weight - __tinc0_weight * __tdims0 \
    ,tree_datap += __tinc1_tree - __tinc0_tree * __tdims0 \
    ,lnkdist_datap += __tinc1_lnkdist - __tinc0_lnkdist * __tdims0 \
    ), \
    (  ,data_datap += __tinc0_data \
    ,mask_datap += __tinc0_mask \
    ,weight_datap += __tinc0_weight \
    ,tree_datap += __tinc0_tree \
    ,lnkdist_datap += __tinc0_lnkdist \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_treecluster_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    data_datap -= __tinc1_data * __tdims1 + __offsp[0]; \
    mask_datap -= __tinc1_mask * __tdims1 + __offsp[1]; \
    weight_datap -= __tinc1_weight * __tdims1 + __offsp[2]; \
    tree_datap -= __tinc1_tree * __tdims1 + __offsp[3]; \
    lnkdist_datap -= __tinc1_lnkdist * __tdims1 + __offsp[4]; \
  )
  register PDL_Indx __inc_data_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_data_d;register PDL_Indx __inc_data_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_data_n;
  register PDL_Indx __inc_lnkdist_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,4,0)]; (void)__inc_lnkdist_n;
  register PDL_Indx __inc_mask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_mask_d;register PDL_Indx __inc_mask_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_mask_n;
  register PDL_Indx __inc_tree_2 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,0)]; (void)__inc_tree_2;register PDL_Indx __inc_tree_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,1)]; (void)__inc_tree_n;
  register PDL_Indx __inc_weight_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_weight_d;
  #ifndef PDL_DECLARE_PARAMS_treecluster_1
  #define PDL_DECLARE_PARAMS_treecluster_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_data,PDL_PPSYM_PARAM_data,PDL_TYPE_PARAM_mask,PDL_PPSYM_PARAM_mask,PDL_TYPE_PARAM_weight,PDL_PPSYM_PARAM_weight,PDL_TYPE_PARAM_tree,PDL_PPSYM_PARAM_tree,PDL_TYPE_PARAM_lnkdist,PDL_PPSYM_PARAM_lnkdist) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_data, data, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_data) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_mask, mask, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_mask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_weight, weight, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_weight) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_tree, tree, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_tree) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_lnkdist, lnkdist, (__privtrans->pdls[4]), 1, PDL_PPSYM_PARAM_lnkdist)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_treecluster_1(PDL_SByte,A,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = NULL;
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
          PDL_BROADCASTLOOP_START_treecluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                NULL);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treecluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_treecluster_1(PDL_Byte,B,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = NULL;
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
          PDL_BROADCASTLOOP_START_treecluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                NULL);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treecluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_treecluster_1(PDL_Short,S,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = NULL;
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
          PDL_BROADCASTLOOP_START_treecluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                NULL);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treecluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_treecluster_1(PDL_Ushort,U,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = NULL;
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
          PDL_BROADCASTLOOP_START_treecluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                NULL);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treecluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_treecluster_1(PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = NULL;
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
          PDL_BROADCASTLOOP_START_treecluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                NULL);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treecluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_treecluster_1(PDL_ULong,K,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = NULL;
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
          PDL_BROADCASTLOOP_START_treecluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                NULL);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treecluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_treecluster_1(PDL_Indx,N,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = NULL;
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
          PDL_BROADCASTLOOP_START_treecluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                NULL);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treecluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_treecluster_1(PDL_ULongLong,P,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = NULL;
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
          PDL_BROADCASTLOOP_START_treecluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                NULL);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treecluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_treecluster_1(PDL_LongLong,Q,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = NULL;
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
          PDL_BROADCASTLOOP_START_treecluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                NULL);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treecluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_treecluster_1(PDL_Float,F,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = NULL;
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
          PDL_BROADCASTLOOP_START_treecluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                NULL);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treecluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_treecluster_1(PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = NULL;
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
          PDL_BROADCASTLOOP_START_treecluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                NULL);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treecluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_treecluster_1(PDL_LDouble,E,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = NULL;
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
          PDL_BROADCASTLOOP_START_treecluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                NULL);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treecluster_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (nod)    free(nod);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in treecluster: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_treecluster_free(pdl_trans *__privtrans, char destroy) {
  pdl_error PDL_err = {0, NULL, 0};
#line 3329 "Cluster.xs"
  pdl_params_treecluster *__params = __privtrans->params; (void)__params;
  PDL_FREE_CODE(__privtrans, destroy, free(__params->distFlag); /* CType.get_free */
  free(__params->methodFlag); /* CType.get_free */
  , )  return PDL_err;
}

static pdl_datatypes pdl_treecluster_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_treecluster_vtable_realdims[] = { 2, 2, 1, 2, 1 };
static char *pdl_treecluster_vtable_parnames[] = { "data","mask","weight","tree","lnkdist" };
static short pdl_treecluster_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_treecluster_vtable_partypes[] = { PDL_D, PDL_L, PDL_D, PDL_L, PDL_D };
static PDL_Indx pdl_treecluster_vtable_realdims_starts[] = { 0, 2, 4, 5, 7 };
static PDL_Indx pdl_treecluster_vtable_realdims_ind_ids[] = { 1, 2, 1, 2, 1, 0, 2, 2 };
static char *pdl_treecluster_vtable_indnames[] = { "2","d","n" };
pdl_transvtable pdl_treecluster_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_treecluster_vtable_gentypes, 3, 5, NULL /*CORE21*/,
  pdl_treecluster_vtable_realdims, pdl_treecluster_vtable_parnames,
  pdl_treecluster_vtable_parflags, pdl_treecluster_vtable_partypes,
  pdl_treecluster_vtable_realdims_starts, pdl_treecluster_vtable_realdims_ind_ids, 8,
  3, pdl_treecluster_vtable_indnames,
  NULL, pdl_treecluster_readdata, NULL,
  pdl_treecluster_free,
  sizeof(pdl_params_treecluster),"PDL::Cluster::treecluster"
};


pdl_error pdl_run_treecluster(pdl  *data,pdl  *mask,pdl  *weight,pdl  *tree,pdl  *lnkdist,char  *distFlag,char  *methodFlag) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_treecluster_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_treecluster *__params = __privtrans->params;
  __privtrans->pdls[0] = data;
  __privtrans->pdls[1] = mask;
  __privtrans->pdls[2] = weight;
  __privtrans->pdls[3] = tree;
  __privtrans->pdls[4] = lnkdist;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->distFlag) = malloc(strlen(distFlag)+1); strcpy(__params->distFlag,distFlag); /* CType.get_copy */
  (__params->methodFlag) = malloc(strlen(methodFlag)+1); strcpy(__params->methodFlag,methodFlag); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_treeclusterd {
#line 3382 "Cluster.xs"
  char  *distFlag;
  char  *methodFlag;
} pdl_params_treeclusterd;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_treeclusterd_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 3391 "Cluster.xs"
  pdl_params_treeclusterd *__params = __privtrans->params; (void)__params;
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in treeclusterd:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_distances = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc0_tree = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
  register PDL_Indx __tinc0_lnkdist = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,0);
  register PDL_Indx __tinc1_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_distances = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  register PDL_Indx __tinc1_tree = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
  register PDL_Indx __tinc1_lnkdist = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,1);
  #define PDL_BROADCASTLOOP_START_treeclusterd_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    data_datap += __offsp[0]; \
    mask_datap += __offsp[1]; \
    weight_datap += __offsp[2]; \
    distances_datap += __offsp[3]; \
    tree_datap += __offsp[4]; \
    lnkdist_datap += __offsp[5]; \
    , \
    (  ,data_datap += __tinc1_data - __tinc0_data * __tdims0 \
    ,mask_datap += __tinc1_mask - __tinc0_mask * __tdims0 \
    ,weight_datap += __tinc1_weight - __tinc0_weight * __tdims0 \
    ,distances_datap += __tinc1_distances - __tinc0_distances * __tdims0 \
    ,tree_datap += __tinc1_tree - __tinc0_tree * __tdims0 \
    ,lnkdist_datap += __tinc1_lnkdist - __tinc0_lnkdist * __tdims0 \
    ), \
    (  ,data_datap += __tinc0_data \
    ,mask_datap += __tinc0_mask \
    ,weight_datap += __tinc0_weight \
    ,distances_datap += __tinc0_distances \
    ,tree_datap += __tinc0_tree \
    ,lnkdist_datap += __tinc0_lnkdist \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_treeclusterd_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    data_datap -= __tinc1_data * __tdims1 + __offsp[0]; \
    mask_datap -= __tinc1_mask * __tdims1 + __offsp[1]; \
    weight_datap -= __tinc1_weight * __tdims1 + __offsp[2]; \
    distances_datap -= __tinc1_distances * __tdims1 + __offsp[3]; \
    tree_datap -= __tinc1_tree * __tdims1 + __offsp[4]; \
    lnkdist_datap -= __tinc1_lnkdist * __tdims1 + __offsp[5]; \
  )
  register PDL_Indx __inc_data_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_data_d;register PDL_Indx __inc_data_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_data_n;
  register PDL_Indx __inc_distances_n0 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,0)]; (void)__inc_distances_n0;register PDL_Indx __inc_distances_n1 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,1)]; (void)__inc_distances_n1;
  register PDL_Indx __inc_lnkdist_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,5,0)]; (void)__inc_lnkdist_n;
  register PDL_Indx __inc_mask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_mask_d;register PDL_Indx __inc_mask_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_mask_n;
  register PDL_Indx __inc_tree_2 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,4,0)]; (void)__inc_tree_2;register PDL_Indx __inc_tree_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,4,1)]; (void)__inc_tree_n;
  register PDL_Indx __inc_weight_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_weight_d;
  #ifndef PDL_DECLARE_PARAMS_treeclusterd_1
  #define PDL_DECLARE_PARAMS_treeclusterd_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_data,PDL_PPSYM_PARAM_data,PDL_TYPE_PARAM_mask,PDL_PPSYM_PARAM_mask,PDL_TYPE_PARAM_weight,PDL_PPSYM_PARAM_weight,PDL_TYPE_PARAM_distances,PDL_PPSYM_PARAM_distances,PDL_TYPE_PARAM_tree,PDL_PPSYM_PARAM_tree,PDL_TYPE_PARAM_lnkdist,PDL_PPSYM_PARAM_lnkdist) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_data, data, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_data) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_mask, mask, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_mask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_weight, weight, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_weight) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_distances, distances, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_distances) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_tree, tree, (__privtrans->pdls[4]), 1, PDL_PPSYM_PARAM_tree) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_lnkdist, lnkdist, (__privtrans->pdls[5]), 1, PDL_PPSYM_PARAM_lnkdist)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_treeclusterd_1(PDL_SByte,A,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
            PDL_BROADCASTLOOP_START_treeclusterd_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              p2pp_dbl_ragged(__privtrans->ind_sizes[2], __privtrans->ind_sizes[2], distances_datap, distpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                distpp);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treeclusterd_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (distpp) free(distpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_treeclusterd_1(PDL_Byte,B,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
            PDL_BROADCASTLOOP_START_treeclusterd_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              p2pp_dbl_ragged(__privtrans->ind_sizes[2], __privtrans->ind_sizes[2], distances_datap, distpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                distpp);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treeclusterd_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (distpp) free(distpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_treeclusterd_1(PDL_Short,S,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
            PDL_BROADCASTLOOP_START_treeclusterd_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              p2pp_dbl_ragged(__privtrans->ind_sizes[2], __privtrans->ind_sizes[2], distances_datap, distpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                distpp);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treeclusterd_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (distpp) free(distpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_treeclusterd_1(PDL_Ushort,U,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
            PDL_BROADCASTLOOP_START_treeclusterd_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              p2pp_dbl_ragged(__privtrans->ind_sizes[2], __privtrans->ind_sizes[2], distances_datap, distpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                distpp);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treeclusterd_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (distpp) free(distpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_treeclusterd_1(PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
            PDL_BROADCASTLOOP_START_treeclusterd_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              p2pp_dbl_ragged(__privtrans->ind_sizes[2], __privtrans->ind_sizes[2], distances_datap, distpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                distpp);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treeclusterd_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (distpp) free(distpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_treeclusterd_1(PDL_ULong,K,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
            PDL_BROADCASTLOOP_START_treeclusterd_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              p2pp_dbl_ragged(__privtrans->ind_sizes[2], __privtrans->ind_sizes[2], distances_datap, distpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                distpp);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treeclusterd_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (distpp) free(distpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_treeclusterd_1(PDL_Indx,N,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
            PDL_BROADCASTLOOP_START_treeclusterd_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              p2pp_dbl_ragged(__privtrans->ind_sizes[2], __privtrans->ind_sizes[2], distances_datap, distpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                distpp);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treeclusterd_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (distpp) free(distpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_treeclusterd_1(PDL_ULongLong,P,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
            PDL_BROADCASTLOOP_START_treeclusterd_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              p2pp_dbl_ragged(__privtrans->ind_sizes[2], __privtrans->ind_sizes[2], distances_datap, distpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                distpp);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treeclusterd_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (distpp) free(distpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_treeclusterd_1(PDL_LongLong,Q,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
            PDL_BROADCASTLOOP_START_treeclusterd_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              p2pp_dbl_ragged(__privtrans->ind_sizes[2], __privtrans->ind_sizes[2], distances_datap, distpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                distpp);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treeclusterd_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (distpp) free(distpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_treeclusterd_1(PDL_Float,F,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
            PDL_BROADCASTLOOP_START_treeclusterd_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              p2pp_dbl_ragged(__privtrans->ind_sizes[2], __privtrans->ind_sizes[2], distances_datap, distpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                distpp);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treeclusterd_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (distpp) free(distpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_treeclusterd_1(PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
            PDL_BROADCASTLOOP_START_treeclusterd_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              p2pp_dbl_ragged(__privtrans->ind_sizes[2], __privtrans->ind_sizes[2], distances_datap, distpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                distpp);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treeclusterd_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (distpp) free(distpp);
          if (nod)    free(nod);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_treeclusterd_1(PDL_LDouble,E,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **distpp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          Node    *nod     = NULL;
          int      nmax    = __privtrans->ind_sizes[2]-1;
            PDL_BROADCASTLOOP_START_treeclusterd_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              p2pp_dbl_ragged(__privtrans->ind_sizes[2], __privtrans->ind_sizes[2], distances_datap, distpp);
              nod = treecluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                                weight_datap, transpose, *__params->distFlag, *__params->methodFlag,
                                distpp);

              node2p(nmax, nod, tree_datap, lnkdist_datap);
              (tree_datap)[0+(__inc_tree_2*(0))+(__inc_tree_n*(nmax))] = 0;
              (tree_datap)[0+(__inc_tree_2*(1))+(__inc_tree_n*(nmax))] = 0;
              (lnkdist_datap)[0+(__inc_lnkdist_n*(nmax))] = 0;
            PDL_BROADCASTLOOP_END_treeclusterd_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (distpp) free(distpp);
          if (nod)    free(nod);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in treeclusterd: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_treeclusterd_free(pdl_trans *__privtrans, char destroy) {
  pdl_error PDL_err = {0, NULL, 0};
#line 3821 "Cluster.xs"
  pdl_params_treeclusterd *__params = __privtrans->params; (void)__params;
  PDL_FREE_CODE(__privtrans, destroy, free(__params->distFlag); /* CType.get_free */
  free(__params->methodFlag); /* CType.get_free */
  , )  return PDL_err;
}

static pdl_datatypes pdl_treeclusterd_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_treeclusterd_vtable_realdims[] = { 2, 2, 1, 2, 2, 1 };
static char *pdl_treeclusterd_vtable_parnames[] = { "data","mask","weight","distances","tree","lnkdist" };
static short pdl_treeclusterd_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_treeclusterd_vtable_partypes[] = { PDL_D, PDL_L, PDL_D, PDL_D, PDL_L, PDL_D };
static PDL_Indx pdl_treeclusterd_vtable_realdims_starts[] = { 0, 2, 4, 5, 7, 9 };
static PDL_Indx pdl_treeclusterd_vtable_realdims_ind_ids[] = { 1, 2, 1, 2, 1, 2, 2, 0, 2, 2 };
static char *pdl_treeclusterd_vtable_indnames[] = { "2","d","n" };
pdl_transvtable pdl_treeclusterd_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_treeclusterd_vtable_gentypes, 4, 6, NULL /*CORE21*/,
  pdl_treeclusterd_vtable_realdims, pdl_treeclusterd_vtable_parnames,
  pdl_treeclusterd_vtable_parflags, pdl_treeclusterd_vtable_partypes,
  pdl_treeclusterd_vtable_realdims_starts, pdl_treeclusterd_vtable_realdims_ind_ids, 10,
  3, pdl_treeclusterd_vtable_indnames,
  NULL, pdl_treeclusterd_readdata, NULL,
  pdl_treeclusterd_free,
  sizeof(pdl_params_treeclusterd),"PDL::Cluster::treeclusterd"
};


pdl_error pdl_run_treeclusterd(pdl  *data,pdl  *mask,pdl  *weight,pdl  *distances,pdl  *tree,pdl  *lnkdist,char  *distFlag,char  *methodFlag) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_treeclusterd_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_treeclusterd *__params = __privtrans->params;
  __privtrans->pdls[0] = data;
  __privtrans->pdls[1] = mask;
  __privtrans->pdls[2] = weight;
  __privtrans->pdls[3] = distances;
  __privtrans->pdls[4] = tree;
  __privtrans->pdls[5] = lnkdist;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->distFlag) = malloc(strlen(distFlag)+1); strcpy(__params->distFlag,distFlag); /* CType.get_copy */
  (__params->methodFlag) = malloc(strlen(methodFlag)+1); strcpy(__params->methodFlag,methodFlag); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_cuttree_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 3877 "Cluster.xs"
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in cuttree:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_tree = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_nclusters = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc1_tree = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_nclusters = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  #define PDL_BROADCASTLOOP_START_cuttree_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    tree_datap += __offsp[0]; \
    nclusters_datap += __offsp[1]; \
    clusterids_datap += __offsp[2]; \
    , \
    (  ,tree_datap += __tinc1_tree - __tinc0_tree * __tdims0 \
    ,nclusters_datap += __tinc1_nclusters - __tinc0_nclusters * __tdims0 \
    ,clusterids_datap += __tinc1_clusterids - __tinc0_clusterids * __tdims0 \
    ), \
    (  ,tree_datap += __tinc0_tree \
    ,nclusters_datap += __tinc0_nclusters \
    ,clusterids_datap += __tinc0_clusterids \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_cuttree_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    tree_datap -= __tinc1_tree * __tdims1 + __offsp[0]; \
    nclusters_datap -= __tinc1_nclusters * __tdims1 + __offsp[1]; \
    clusterids_datap -= __tinc1_clusterids * __tdims1 + __offsp[2]; \
  )
  register PDL_Indx __inc_clusterids_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_clusterids_n;
  register PDL_Indx __inc_tree_2 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_tree_2;register PDL_Indx __inc_tree_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_tree_n;
  #ifndef PDL_DECLARE_PARAMS_cuttree_1
  #define PDL_DECLARE_PARAMS_cuttree_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_tree,PDL_PPSYM_PARAM_tree,PDL_TYPE_PARAM_nclusters,PDL_PPSYM_PARAM_nclusters,PDL_TYPE_PARAM_clusterids,PDL_PPSYM_PARAM_clusterids) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_tree, tree, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_tree) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_nclusters, nclusters, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_nclusters) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_clusterids, clusterids, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_clusterids)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_cuttree_1(PDL_SByte,A,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_cuttree_readdata    {
              Node *nod = p2node(__privtrans->ind_sizes[1]-1,tree_datap,NULL);
              cuttree(__privtrans->ind_sizes[1], nod, (nclusters_datap)[0], clusterids_datap);
              if (nod) free(nod);
          }PDL_BROADCASTLOOP_END_cuttree_readdata
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_cuttree_1(PDL_Byte,B,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_cuttree_readdata    {
              Node *nod = p2node(__privtrans->ind_sizes[1]-1,tree_datap,NULL);
              cuttree(__privtrans->ind_sizes[1], nod, (nclusters_datap)[0], clusterids_datap);
              if (nod) free(nod);
          }PDL_BROADCASTLOOP_END_cuttree_readdata
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_cuttree_1(PDL_Short,S,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_cuttree_readdata    {
              Node *nod = p2node(__privtrans->ind_sizes[1]-1,tree_datap,NULL);
              cuttree(__privtrans->ind_sizes[1], nod, (nclusters_datap)[0], clusterids_datap);
              if (nod) free(nod);
          }PDL_BROADCASTLOOP_END_cuttree_readdata
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_cuttree_1(PDL_Ushort,U,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_cuttree_readdata    {
              Node *nod = p2node(__privtrans->ind_sizes[1]-1,tree_datap,NULL);
              cuttree(__privtrans->ind_sizes[1], nod, (nclusters_datap)[0], clusterids_datap);
              if (nod) free(nod);
          }PDL_BROADCASTLOOP_END_cuttree_readdata
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_cuttree_1(PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_cuttree_readdata    {
              Node *nod = p2node(__privtrans->ind_sizes[1]-1,tree_datap,NULL);
              cuttree(__privtrans->ind_sizes[1], nod, (nclusters_datap)[0], clusterids_datap);
              if (nod) free(nod);
          }PDL_BROADCASTLOOP_END_cuttree_readdata
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_cuttree_1(PDL_ULong,K,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_cuttree_readdata    {
              Node *nod = p2node(__privtrans->ind_sizes[1]-1,tree_datap,NULL);
              cuttree(__privtrans->ind_sizes[1], nod, (nclusters_datap)[0], clusterids_datap);
              if (nod) free(nod);
          }PDL_BROADCASTLOOP_END_cuttree_readdata
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_cuttree_1(PDL_Indx,N,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_cuttree_readdata    {
              Node *nod = p2node(__privtrans->ind_sizes[1]-1,tree_datap,NULL);
              cuttree(__privtrans->ind_sizes[1], nod, (nclusters_datap)[0], clusterids_datap);
              if (nod) free(nod);
          }PDL_BROADCASTLOOP_END_cuttree_readdata
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_cuttree_1(PDL_ULongLong,P,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_cuttree_readdata    {
              Node *nod = p2node(__privtrans->ind_sizes[1]-1,tree_datap,NULL);
              cuttree(__privtrans->ind_sizes[1], nod, (nclusters_datap)[0], clusterids_datap);
              if (nod) free(nod);
          }PDL_BROADCASTLOOP_END_cuttree_readdata
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_cuttree_1(PDL_LongLong,Q,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_cuttree_readdata    {
              Node *nod = p2node(__privtrans->ind_sizes[1]-1,tree_datap,NULL);
              cuttree(__privtrans->ind_sizes[1], nod, (nclusters_datap)[0], clusterids_datap);
              if (nod) free(nod);
          }PDL_BROADCASTLOOP_END_cuttree_readdata
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_cuttree_1(PDL_Float,F,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_cuttree_readdata    {
              Node *nod = p2node(__privtrans->ind_sizes[1]-1,tree_datap,NULL);
              cuttree(__privtrans->ind_sizes[1], nod, (nclusters_datap)[0], clusterids_datap);
              if (nod) free(nod);
          }PDL_BROADCASTLOOP_END_cuttree_readdata
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_cuttree_1(PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_cuttree_readdata    {
              Node *nod = p2node(__privtrans->ind_sizes[1]-1,tree_datap,NULL);
              cuttree(__privtrans->ind_sizes[1], nod, (nclusters_datap)[0], clusterids_datap);
              if (nod) free(nod);
          }PDL_BROADCASTLOOP_END_cuttree_readdata
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_cuttree_1(PDL_LDouble,E,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_cuttree_readdata    {
              Node *nod = p2node(__privtrans->ind_sizes[1]-1,tree_datap,NULL);
              cuttree(__privtrans->ind_sizes[1], nod, (nclusters_datap)[0], clusterids_datap);
              if (nod) free(nod);
          }PDL_BROADCASTLOOP_END_cuttree_readdata
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in cuttree: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}

static pdl_datatypes pdl_cuttree_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_cuttree_vtable_realdims[] = { 2, 0, 1 };
static char *pdl_cuttree_vtable_parnames[] = { "tree","nclusters","clusterids" };
static short pdl_cuttree_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_cuttree_vtable_partypes[] = { PDL_L, PDL_L, PDL_L };
static PDL_Indx pdl_cuttree_vtable_realdims_starts[] = { 0, 2, 2 };
static PDL_Indx pdl_cuttree_vtable_realdims_ind_ids[] = { 0, 1, 1 };
static char *pdl_cuttree_vtable_indnames[] = { "2","n" };
pdl_transvtable pdl_cuttree_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_cuttree_vtable_gentypes, 2, 3, NULL /*CORE21*/,
  pdl_cuttree_vtable_realdims, pdl_cuttree_vtable_parnames,
  pdl_cuttree_vtable_parflags, pdl_cuttree_vtable_partypes,
  pdl_cuttree_vtable_realdims_starts, pdl_cuttree_vtable_realdims_ind_ids, 3,
  2, pdl_cuttree_vtable_indnames,
  NULL, pdl_cuttree_readdata, NULL,
  NULL,
  0,"PDL::Cluster::cuttree"
};


pdl_error pdl_run_cuttree(pdl  *tree,pdl  *nclusters,pdl  *clusterids) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_cuttree_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  __privtrans->pdls[0] = tree;
  __privtrans->pdls[1] = nclusters;
  __privtrans->pdls[2] = clusterids;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_somcluster {
#line 4064 "Cluster.xs"
  char  *distFlag;
} pdl_params_somcluster;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_somcluster_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 4072 "Cluster.xs"
  pdl_params_somcluster *__params = __privtrans->params; (void)__params;
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in somcluster:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_nxnodes = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc0_nynodes = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
  register PDL_Indx __tinc0_inittau = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,0);
  register PDL_Indx __tinc0_niter = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,6,0);
  register PDL_Indx __tinc0_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,7,0);
  register PDL_Indx __tinc1_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_nxnodes = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  register PDL_Indx __tinc1_nynodes = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
  register PDL_Indx __tinc1_inittau = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,1);
  register PDL_Indx __tinc1_niter = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,6,1);
  register PDL_Indx __tinc1_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,7,1);
  #define PDL_BROADCASTLOOP_START_somcluster_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    data_datap += __offsp[0]; \
    mask_datap += __offsp[1]; \
    weight_datap += __offsp[2]; \
    nxnodes_datap += __offsp[3]; \
    nynodes_datap += __offsp[4]; \
    inittau_datap += __offsp[5]; \
    niter_datap += __offsp[6]; \
    clusterids_datap += __offsp[7]; \
    , \
    (  ,data_datap += __tinc1_data - __tinc0_data * __tdims0 \
    ,mask_datap += __tinc1_mask - __tinc0_mask * __tdims0 \
    ,weight_datap += __tinc1_weight - __tinc0_weight * __tdims0 \
    ,nxnodes_datap += __tinc1_nxnodes - __tinc0_nxnodes * __tdims0 \
    ,nynodes_datap += __tinc1_nynodes - __tinc0_nynodes * __tdims0 \
    ,inittau_datap += __tinc1_inittau - __tinc0_inittau * __tdims0 \
    ,niter_datap += __tinc1_niter - __tinc0_niter * __tdims0 \
    ,clusterids_datap += __tinc1_clusterids - __tinc0_clusterids * __tdims0 \
    ), \
    (  ,data_datap += __tinc0_data \
    ,mask_datap += __tinc0_mask \
    ,weight_datap += __tinc0_weight \
    ,nxnodes_datap += __tinc0_nxnodes \
    ,nynodes_datap += __tinc0_nynodes \
    ,inittau_datap += __tinc0_inittau \
    ,niter_datap += __tinc0_niter \
    ,clusterids_datap += __tinc0_clusterids \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_somcluster_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    data_datap -= __tinc1_data * __tdims1 + __offsp[0]; \
    mask_datap -= __tinc1_mask * __tdims1 + __offsp[1]; \
    weight_datap -= __tinc1_weight * __tdims1 + __offsp[2]; \
    nxnodes_datap -= __tinc1_nxnodes * __tdims1 + __offsp[3]; \
    nynodes_datap -= __tinc1_nynodes * __tdims1 + __offsp[4]; \
    inittau_datap -= __tinc1_inittau * __tdims1 + __offsp[5]; \
    niter_datap -= __tinc1_niter * __tdims1 + __offsp[6]; \
    clusterids_datap -= __tinc1_clusterids * __tdims1 + __offsp[7]; \
  )
  register PDL_Indx __inc_clusterids_2 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,7,0)]; (void)__inc_clusterids_2;register PDL_Indx __inc_clusterids_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,7,1)]; (void)__inc_clusterids_n;
  register PDL_Indx __inc_data_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_data_d;register PDL_Indx __inc_data_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_data_n;
  register PDL_Indx __inc_mask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_mask_d;register PDL_Indx __inc_mask_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_mask_n;
  register PDL_Indx __inc_weight_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_weight_d;
  #ifndef PDL_DECLARE_PARAMS_somcluster_1
  #define PDL_DECLARE_PARAMS_somcluster_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_data,PDL_PPSYM_PARAM_data,PDL_TYPE_PARAM_mask,PDL_PPSYM_PARAM_mask,PDL_TYPE_PARAM_weight,PDL_PPSYM_PARAM_weight,PDL_TYPE_PARAM_nxnodes,PDL_PPSYM_PARAM_nxnodes,PDL_TYPE_PARAM_nynodes,PDL_PPSYM_PARAM_nynodes,PDL_TYPE_PARAM_inittau,PDL_PPSYM_PARAM_inittau,PDL_TYPE_PARAM_niter,PDL_PPSYM_PARAM_niter,PDL_TYPE_PARAM_clusterids,PDL_PPSYM_PARAM_clusterids) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_data, data, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_data) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_mask, mask, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_mask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_weight, weight, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_weight) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_nxnodes, nxnodes, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_nxnodes) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_nynodes, nynodes, (__privtrans->pdls[4]), 1, PDL_PPSYM_PARAM_nynodes) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_inittau, inittau, (__privtrans->pdls[5]), 1, PDL_PPSYM_PARAM_inittau) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_niter, niter, (__privtrans->pdls[6]), 1, PDL_PPSYM_PARAM_niter) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_clusterids, clusterids, (__privtrans->pdls[7]), 1, PDL_PPSYM_PARAM_clusterids)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_somcluster_1(PDL_SByte,A,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          PDL_BROADCASTLOOP_START_somcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              somcluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                          weight_datap, transpose, (nxnodes_datap)[0], (nynodes_datap)[0],
                          (inittau_datap)[0], (niter_datap)[0], *__params->distFlag, NULL,
                          (int (*)[2])(clusterids_datap));
            PDL_BROADCASTLOOP_END_somcluster_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_somcluster_1(PDL_Byte,B,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          PDL_BROADCASTLOOP_START_somcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              somcluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                          weight_datap, transpose, (nxnodes_datap)[0], (nynodes_datap)[0],
                          (inittau_datap)[0], (niter_datap)[0], *__params->distFlag, NULL,
                          (int (*)[2])(clusterids_datap));
            PDL_BROADCASTLOOP_END_somcluster_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_somcluster_1(PDL_Short,S,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          PDL_BROADCASTLOOP_START_somcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              somcluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                          weight_datap, transpose, (nxnodes_datap)[0], (nynodes_datap)[0],
                          (inittau_datap)[0], (niter_datap)[0], *__params->distFlag, NULL,
                          (int (*)[2])(clusterids_datap));
            PDL_BROADCASTLOOP_END_somcluster_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_somcluster_1(PDL_Ushort,U,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          PDL_BROADCASTLOOP_START_somcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              somcluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                          weight_datap, transpose, (nxnodes_datap)[0], (nynodes_datap)[0],
                          (inittau_datap)[0], (niter_datap)[0], *__params->distFlag, NULL,
                          (int (*)[2])(clusterids_datap));
            PDL_BROADCASTLOOP_END_somcluster_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_somcluster_1(PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          PDL_BROADCASTLOOP_START_somcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              somcluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                          weight_datap, transpose, (nxnodes_datap)[0], (nynodes_datap)[0],
                          (inittau_datap)[0], (niter_datap)[0], *__params->distFlag, NULL,
                          (int (*)[2])(clusterids_datap));
            PDL_BROADCASTLOOP_END_somcluster_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_somcluster_1(PDL_ULong,K,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          PDL_BROADCASTLOOP_START_somcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              somcluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                          weight_datap, transpose, (nxnodes_datap)[0], (nynodes_datap)[0],
                          (inittau_datap)[0], (niter_datap)[0], *__params->distFlag, NULL,
                          (int (*)[2])(clusterids_datap));
            PDL_BROADCASTLOOP_END_somcluster_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_somcluster_1(PDL_Indx,N,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          PDL_BROADCASTLOOP_START_somcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              somcluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                          weight_datap, transpose, (nxnodes_datap)[0], (nynodes_datap)[0],
                          (inittau_datap)[0], (niter_datap)[0], *__params->distFlag, NULL,
                          (int (*)[2])(clusterids_datap));
            PDL_BROADCASTLOOP_END_somcluster_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_somcluster_1(PDL_ULongLong,P,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          PDL_BROADCASTLOOP_START_somcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              somcluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                          weight_datap, transpose, (nxnodes_datap)[0], (nynodes_datap)[0],
                          (inittau_datap)[0], (niter_datap)[0], *__params->distFlag, NULL,
                          (int (*)[2])(clusterids_datap));
            PDL_BROADCASTLOOP_END_somcluster_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_somcluster_1(PDL_LongLong,Q,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          PDL_BROADCASTLOOP_START_somcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              somcluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                          weight_datap, transpose, (nxnodes_datap)[0], (nynodes_datap)[0],
                          (inittau_datap)[0], (niter_datap)[0], *__params->distFlag, NULL,
                          (int (*)[2])(clusterids_datap));
            PDL_BROADCASTLOOP_END_somcluster_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_somcluster_1(PDL_Float,F,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          PDL_BROADCASTLOOP_START_somcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              somcluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                          weight_datap, transpose, (nxnodes_datap)[0], (nynodes_datap)[0],
                          (inittau_datap)[0], (niter_datap)[0], *__params->distFlag, NULL,
                          (int (*)[2])(clusterids_datap));
            PDL_BROADCASTLOOP_END_somcluster_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_somcluster_1(PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          PDL_BROADCASTLOOP_START_somcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              somcluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                          weight_datap, transpose, (nxnodes_datap)[0], (nynodes_datap)[0],
                          (inittau_datap)[0], (niter_datap)[0], *__params->distFlag, NULL,
                          (int (*)[2])(clusterids_datap));
            PDL_BROADCASTLOOP_END_somcluster_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_somcluster_1(PDL_LDouble,E,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L)
        {
          int    transpose = 0;
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          PDL_BROADCASTLOOP_START_somcluster_readdata
              p2pp_dbl(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2],   __privtrans->ind_sizes[1], mask_datap, maskpp);
              somcluster(__privtrans->ind_sizes[2], __privtrans->ind_sizes[1], datapp, maskpp,
                          weight_datap, transpose, (nxnodes_datap)[0], (nynodes_datap)[0],
                          (inittau_datap)[0], (niter_datap)[0], *__params->distFlag, NULL,
                          (int (*)[2])(clusterids_datap));
            PDL_BROADCASTLOOP_END_somcluster_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in somcluster: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_somcluster_free(pdl_trans *__privtrans, char destroy) {
  pdl_error PDL_err = {0, NULL, 0};
#line 4394 "Cluster.xs"
  pdl_params_somcluster *__params = __privtrans->params; (void)__params;
  PDL_FREE_CODE(__privtrans, destroy, free(__params->distFlag); /* CType.get_free */
  , )  return PDL_err;
}

static pdl_datatypes pdl_somcluster_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_somcluster_vtable_realdims[] = { 2, 2, 1, 0, 0, 0, 0, 2 };
static char *pdl_somcluster_vtable_parnames[] = { "data","mask","weight","nxnodes","nynodes","inittau","niter","clusterids" };
static short pdl_somcluster_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_somcluster_vtable_partypes[] = { PDL_D, PDL_L, PDL_D, PDL_L, PDL_L, PDL_D, PDL_L, PDL_L };
static PDL_Indx pdl_somcluster_vtable_realdims_starts[] = { 0, 2, 4, 5, 5, 5, 5, 5 };
static PDL_Indx pdl_somcluster_vtable_realdims_ind_ids[] = { 1, 2, 1, 2, 1, 0, 2 };
static char *pdl_somcluster_vtable_indnames[] = { "2","d","n" };
pdl_transvtable pdl_somcluster_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_somcluster_vtable_gentypes, 7, 8, NULL /*CORE21*/,
  pdl_somcluster_vtable_realdims, pdl_somcluster_vtable_parnames,
  pdl_somcluster_vtable_parflags, pdl_somcluster_vtable_partypes,
  pdl_somcluster_vtable_realdims_starts, pdl_somcluster_vtable_realdims_ind_ids, 7,
  3, pdl_somcluster_vtable_indnames,
  NULL, pdl_somcluster_readdata, NULL,
  pdl_somcluster_free,
  sizeof(pdl_params_somcluster),"PDL::Cluster::somcluster"
};


pdl_error pdl_run_somcluster(pdl  *data,pdl  *mask,pdl  *weight,pdl  *nxnodes,pdl  *nynodes,pdl  *inittau,pdl  *niter,pdl  *clusterids,char  *distFlag) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_somcluster_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_somcluster *__params = __privtrans->params;
  __privtrans->pdls[0] = data;
  __privtrans->pdls[1] = mask;
  __privtrans->pdls[2] = weight;
  __privtrans->pdls[3] = nxnodes;
  __privtrans->pdls[4] = nynodes;
  __privtrans->pdls[5] = inittau;
  __privtrans->pdls[6] = niter;
  __privtrans->pdls[7] = clusterids;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->distFlag) = malloc(strlen(distFlag)+1); strcpy(__params->distFlag,distFlag); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_pca_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 4452 "Cluster.xs"
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in pca:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_U = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_S = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_V = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc1_U = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_S = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_V = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  #define PDL_BROADCASTLOOP_START_pca_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    U_datap += __offsp[0]; \
    S_datap += __offsp[1]; \
    V_datap += __offsp[2]; \
    , \
    (  ,U_datap += __tinc1_U - __tinc0_U * __tdims0 \
    ,S_datap += __tinc1_S - __tinc0_S * __tdims0 \
    ,V_datap += __tinc1_V - __tinc0_V * __tdims0 \
    ), \
    (  ,U_datap += __tinc0_U \
    ,S_datap += __tinc0_S \
    ,V_datap += __tinc0_V \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_pca_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    U_datap -= __tinc1_U * __tdims1 + __offsp[0]; \
    S_datap -= __tinc1_S * __tdims1 + __offsp[1]; \
    V_datap -= __tinc1_V * __tdims1 + __offsp[2]; \
  )
  register PDL_Indx __inc_S_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_S_d;
  register PDL_Indx __inc_U_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_U_d;register PDL_Indx __inc_U_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_U_n;
  register PDL_Indx __inc_V_d0 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_V_d0;register PDL_Indx __inc_V_d1 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,1)]; (void)__inc_V_d1;
  #ifndef PDL_DECLARE_PARAMS_pca_1
  #define PDL_DECLARE_PARAMS_pca_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_U,PDL_PPSYM_PARAM_U,PDL_TYPE_PARAM_S,PDL_PPSYM_PARAM_S,PDL_TYPE_PARAM_V,PDL_PPSYM_PARAM_V) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_U, U, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_U) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_S, S, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_S) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_V, V, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_V)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_pca_1(PDL_SByte,A,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **Upp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          double **Vpp  = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          if (__privtrans->ind_sizes[1] < __privtrans->ind_sizes[0]) {
            barf("svd(): Number of rows (=%d) must be >= number of columns (=%d)!\n", __privtrans->ind_sizes[1], __privtrans->ind_sizes[0]);
          }
            PDL_BROADCASTLOOP_START_pca_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], U_datap, Upp);
              p2pp_dbl(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], V_datap, Vpp);
                  pca(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], Upp, Vpp, S_datap);
            PDL_BROADCASTLOOP_END_pca_readdata
          /*-- cleanup --*/
          if (Upp) free(Upp);
          if (Vpp) free(Vpp);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_pca_1(PDL_Byte,B,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **Upp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          double **Vpp  = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          if (__privtrans->ind_sizes[1] < __privtrans->ind_sizes[0]) {
            barf("svd(): Number of rows (=%d) must be >= number of columns (=%d)!\n", __privtrans->ind_sizes[1], __privtrans->ind_sizes[0]);
          }
            PDL_BROADCASTLOOP_START_pca_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], U_datap, Upp);
              p2pp_dbl(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], V_datap, Vpp);
                  pca(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], Upp, Vpp, S_datap);
            PDL_BROADCASTLOOP_END_pca_readdata
          /*-- cleanup --*/
          if (Upp) free(Upp);
          if (Vpp) free(Vpp);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_pca_1(PDL_Short,S,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **Upp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          double **Vpp  = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          if (__privtrans->ind_sizes[1] < __privtrans->ind_sizes[0]) {
            barf("svd(): Number of rows (=%d) must be >= number of columns (=%d)!\n", __privtrans->ind_sizes[1], __privtrans->ind_sizes[0]);
          }
            PDL_BROADCASTLOOP_START_pca_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], U_datap, Upp);
              p2pp_dbl(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], V_datap, Vpp);
                  pca(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], Upp, Vpp, S_datap);
            PDL_BROADCASTLOOP_END_pca_readdata
          /*-- cleanup --*/
          if (Upp) free(Upp);
          if (Vpp) free(Vpp);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_pca_1(PDL_Ushort,U,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **Upp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          double **Vpp  = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          if (__privtrans->ind_sizes[1] < __privtrans->ind_sizes[0]) {
            barf("svd(): Number of rows (=%d) must be >= number of columns (=%d)!\n", __privtrans->ind_sizes[1], __privtrans->ind_sizes[0]);
          }
            PDL_BROADCASTLOOP_START_pca_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], U_datap, Upp);
              p2pp_dbl(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], V_datap, Vpp);
                  pca(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], Upp, Vpp, S_datap);
            PDL_BROADCASTLOOP_END_pca_readdata
          /*-- cleanup --*/
          if (Upp) free(Upp);
          if (Vpp) free(Vpp);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_pca_1(PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **Upp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          double **Vpp  = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          if (__privtrans->ind_sizes[1] < __privtrans->ind_sizes[0]) {
            barf("svd(): Number of rows (=%d) must be >= number of columns (=%d)!\n", __privtrans->ind_sizes[1], __privtrans->ind_sizes[0]);
          }
            PDL_BROADCASTLOOP_START_pca_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], U_datap, Upp);
              p2pp_dbl(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], V_datap, Vpp);
                  pca(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], Upp, Vpp, S_datap);
            PDL_BROADCASTLOOP_END_pca_readdata
          /*-- cleanup --*/
          if (Upp) free(Upp);
          if (Vpp) free(Vpp);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_pca_1(PDL_ULong,K,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **Upp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          double **Vpp  = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          if (__privtrans->ind_sizes[1] < __privtrans->ind_sizes[0]) {
            barf("svd(): Number of rows (=%d) must be >= number of columns (=%d)!\n", __privtrans->ind_sizes[1], __privtrans->ind_sizes[0]);
          }
            PDL_BROADCASTLOOP_START_pca_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], U_datap, Upp);
              p2pp_dbl(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], V_datap, Vpp);
                  pca(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], Upp, Vpp, S_datap);
            PDL_BROADCASTLOOP_END_pca_readdata
          /*-- cleanup --*/
          if (Upp) free(Upp);
          if (Vpp) free(Vpp);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_pca_1(PDL_Indx,N,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **Upp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          double **Vpp  = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          if (__privtrans->ind_sizes[1] < __privtrans->ind_sizes[0]) {
            barf("svd(): Number of rows (=%d) must be >= number of columns (=%d)!\n", __privtrans->ind_sizes[1], __privtrans->ind_sizes[0]);
          }
            PDL_BROADCASTLOOP_START_pca_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], U_datap, Upp);
              p2pp_dbl(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], V_datap, Vpp);
                  pca(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], Upp, Vpp, S_datap);
            PDL_BROADCASTLOOP_END_pca_readdata
          /*-- cleanup --*/
          if (Upp) free(Upp);
          if (Vpp) free(Vpp);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_pca_1(PDL_ULongLong,P,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **Upp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          double **Vpp  = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          if (__privtrans->ind_sizes[1] < __privtrans->ind_sizes[0]) {
            barf("svd(): Number of rows (=%d) must be >= number of columns (=%d)!\n", __privtrans->ind_sizes[1], __privtrans->ind_sizes[0]);
          }
            PDL_BROADCASTLOOP_START_pca_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], U_datap, Upp);
              p2pp_dbl(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], V_datap, Vpp);
                  pca(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], Upp, Vpp, S_datap);
            PDL_BROADCASTLOOP_END_pca_readdata
          /*-- cleanup --*/
          if (Upp) free(Upp);
          if (Vpp) free(Vpp);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_pca_1(PDL_LongLong,Q,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **Upp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          double **Vpp  = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          if (__privtrans->ind_sizes[1] < __privtrans->ind_sizes[0]) {
            barf("svd(): Number of rows (=%d) must be >= number of columns (=%d)!\n", __privtrans->ind_sizes[1], __privtrans->ind_sizes[0]);
          }
            PDL_BROADCASTLOOP_START_pca_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], U_datap, Upp);
              p2pp_dbl(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], V_datap, Vpp);
                  pca(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], Upp, Vpp, S_datap);
            PDL_BROADCASTLOOP_END_pca_readdata
          /*-- cleanup --*/
          if (Upp) free(Upp);
          if (Vpp) free(Vpp);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_pca_1(PDL_Float,F,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **Upp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          double **Vpp  = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          if (__privtrans->ind_sizes[1] < __privtrans->ind_sizes[0]) {
            barf("svd(): Number of rows (=%d) must be >= number of columns (=%d)!\n", __privtrans->ind_sizes[1], __privtrans->ind_sizes[0]);
          }
            PDL_BROADCASTLOOP_START_pca_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], U_datap, Upp);
              p2pp_dbl(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], V_datap, Vpp);
                  pca(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], Upp, Vpp, S_datap);
            PDL_BROADCASTLOOP_END_pca_readdata
          /*-- cleanup --*/
          if (Upp) free(Upp);
          if (Vpp) free(Vpp);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_pca_1(PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **Upp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          double **Vpp  = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          if (__privtrans->ind_sizes[1] < __privtrans->ind_sizes[0]) {
            barf("svd(): Number of rows (=%d) must be >= number of columns (=%d)!\n", __privtrans->ind_sizes[1], __privtrans->ind_sizes[0]);
          }
            PDL_BROADCASTLOOP_START_pca_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], U_datap, Upp);
              p2pp_dbl(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], V_datap, Vpp);
                  pca(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], Upp, Vpp, S_datap);
            PDL_BROADCASTLOOP_END_pca_readdata
          /*-- cleanup --*/
          if (Upp) free(Upp);
          if (Vpp) free(Vpp);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_pca_1(PDL_LDouble,E,PDL_Double,D,PDL_Double,D,PDL_Double,D)
        {
          double **Upp  = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          double **Vpp  = (double **)pp_alloc(__privtrans->ind_sizes[0]);
          if (__privtrans->ind_sizes[1] < __privtrans->ind_sizes[0]) {
            barf("svd(): Number of rows (=%d) must be >= number of columns (=%d)!\n", __privtrans->ind_sizes[1], __privtrans->ind_sizes[0]);
          }
            PDL_BROADCASTLOOP_START_pca_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], U_datap, Upp);
              p2pp_dbl(__privtrans->ind_sizes[0], __privtrans->ind_sizes[0], V_datap, Vpp);
                  pca(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], Upp, Vpp, S_datap);
            PDL_BROADCASTLOOP_END_pca_readdata
          /*-- cleanup --*/
          if (Upp) free(Upp);
          if (Vpp) free(Vpp);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in pca: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}

static pdl_datatypes pdl_pca_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_pca_vtable_realdims[] = { 2, 1, 2 };
static char *pdl_pca_vtable_parnames[] = { "U","S","V" };
static short pdl_pca_vtable_parflags[] = {
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_pca_vtable_partypes[] = { PDL_D, PDL_D, PDL_D };
static PDL_Indx pdl_pca_vtable_realdims_starts[] = { 0, 2, 3 };
static PDL_Indx pdl_pca_vtable_realdims_ind_ids[] = { 0, 1, 0, 0, 0 };
static char *pdl_pca_vtable_indnames[] = { "d","n" };
pdl_transvtable pdl_pca_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_pca_vtable_gentypes, 0, 3, NULL /*CORE21*/,
  pdl_pca_vtable_realdims, pdl_pca_vtable_parnames,
  pdl_pca_vtable_parflags, pdl_pca_vtable_partypes,
  pdl_pca_vtable_realdims_starts, pdl_pca_vtable_realdims_ind_ids, 5,
  2, pdl_pca_vtable_indnames,
  NULL, pdl_pca_readdata, NULL,
  NULL,
  0,"PDL::Cluster::pca"
};


pdl_error pdl_run_pca(pdl  *U,pdl  *S,pdl  *V) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_pca_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  __privtrans->pdls[0] = U;
  __privtrans->pdls[1] = S;
  __privtrans->pdls[2] = V;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_rowdistances {
#line 4760 "Cluster.xs"
  char  *distFlag;
} pdl_params_rowdistances;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_rowdistances_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 4768 "Cluster.xs"
  pdl_params_rowdistances *__params = __privtrans->params; (void)__params;
  register PDL_Indx __ncmps_size = __privtrans->ind_sizes[2];
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in rowdistances:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_rowids1 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc0_rowids2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
  register PDL_Indx __tinc0_dist = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,0);
  register PDL_Indx __tinc1_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_rowids1 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  register PDL_Indx __tinc1_rowids2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
  register PDL_Indx __tinc1_dist = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,1);
  #define PDL_BROADCASTLOOP_START_rowdistances_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    data_datap += __offsp[0]; \
    mask_datap += __offsp[1]; \
    weight_datap += __offsp[2]; \
    rowids1_datap += __offsp[3]; \
    rowids2_datap += __offsp[4]; \
    dist_datap += __offsp[5]; \
    , \
    (  ,data_datap += __tinc1_data - __tinc0_data * __tdims0 \
    ,mask_datap += __tinc1_mask - __tinc0_mask * __tdims0 \
    ,weight_datap += __tinc1_weight - __tinc0_weight * __tdims0 \
    ,rowids1_datap += __tinc1_rowids1 - __tinc0_rowids1 * __tdims0 \
    ,rowids2_datap += __tinc1_rowids2 - __tinc0_rowids2 * __tdims0 \
    ,dist_datap += __tinc1_dist - __tinc0_dist * __tdims0 \
    ), \
    (  ,data_datap += __tinc0_data \
    ,mask_datap += __tinc0_mask \
    ,weight_datap += __tinc0_weight \
    ,rowids1_datap += __tinc0_rowids1 \
    ,rowids2_datap += __tinc0_rowids2 \
    ,dist_datap += __tinc0_dist \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_rowdistances_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    data_datap -= __tinc1_data * __tdims1 + __offsp[0]; \
    mask_datap -= __tinc1_mask * __tdims1 + __offsp[1]; \
    weight_datap -= __tinc1_weight * __tdims1 + __offsp[2]; \
    rowids1_datap -= __tinc1_rowids1 * __tdims1 + __offsp[3]; \
    rowids2_datap -= __tinc1_rowids2 * __tdims1 + __offsp[4]; \
    dist_datap -= __tinc1_dist * __tdims1 + __offsp[5]; \
  )
  register PDL_Indx __inc_data_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_data_d;register PDL_Indx __inc_data_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_data_n;
  register PDL_Indx __inc_dist_ncmps = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,5,0)]; (void)__inc_dist_ncmps;
  register PDL_Indx __inc_mask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_mask_d;register PDL_Indx __inc_mask_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_mask_n;
  register PDL_Indx __inc_rowids1_ncmps = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,0)]; (void)__inc_rowids1_ncmps;
  register PDL_Indx __inc_rowids2_ncmps = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,4,0)]; (void)__inc_rowids2_ncmps;
  register PDL_Indx __inc_weight_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_weight_d;
  #ifndef PDL_DECLARE_PARAMS_rowdistances_1
  #define PDL_DECLARE_PARAMS_rowdistances_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_data,PDL_PPSYM_PARAM_data,PDL_TYPE_PARAM_mask,PDL_PPSYM_PARAM_mask,PDL_TYPE_PARAM_weight,PDL_PPSYM_PARAM_weight,PDL_TYPE_PARAM_rowids1,PDL_PPSYM_PARAM_rowids1,PDL_TYPE_PARAM_rowids2,PDL_PPSYM_PARAM_rowids2,PDL_TYPE_PARAM_dist,PDL_PPSYM_PARAM_dist) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_data, data, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_data) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_mask, mask, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_mask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_weight, weight, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_weight) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_rowids1, rowids1, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_rowids1) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_rowids2, rowids2, (__privtrans->pdls[4]), 1, PDL_PPSYM_PARAM_rowids2) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_dist, dist, (__privtrans->pdls[5]), 1, PDL_PPSYM_PARAM_dist)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_rowdistances_1(PDL_SByte,A,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    rowid1, rowid2;
          char   methodChar = 'x'; /*-- doesnt matter --*/
          int    transpose=0;
            PDL_BROADCASTLOOP_START_rowdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  rowid1 = (rowids1_datap)[0+(__inc_rowids1_ncmps*(ncmps))];
                  rowid2 = (rowids2_datap)[0+(__inc_rowids2_ncmps*(ncmps))];
                  (dist_datap)[0+(__inc_dist_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, 1,
                                            &rowid1, &rowid2,
                                            *__params->distFlag, methodChar, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_rowdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_rowdistances_1(PDL_Byte,B,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    rowid1, rowid2;
          char   methodChar = 'x'; /*-- doesnt matter --*/
          int    transpose=0;
            PDL_BROADCASTLOOP_START_rowdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  rowid1 = (rowids1_datap)[0+(__inc_rowids1_ncmps*(ncmps))];
                  rowid2 = (rowids2_datap)[0+(__inc_rowids2_ncmps*(ncmps))];
                  (dist_datap)[0+(__inc_dist_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, 1,
                                            &rowid1, &rowid2,
                                            *__params->distFlag, methodChar, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_rowdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_rowdistances_1(PDL_Short,S,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    rowid1, rowid2;
          char   methodChar = 'x'; /*-- doesnt matter --*/
          int    transpose=0;
            PDL_BROADCASTLOOP_START_rowdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  rowid1 = (rowids1_datap)[0+(__inc_rowids1_ncmps*(ncmps))];
                  rowid2 = (rowids2_datap)[0+(__inc_rowids2_ncmps*(ncmps))];
                  (dist_datap)[0+(__inc_dist_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, 1,
                                            &rowid1, &rowid2,
                                            *__params->distFlag, methodChar, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_rowdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_rowdistances_1(PDL_Ushort,U,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    rowid1, rowid2;
          char   methodChar = 'x'; /*-- doesnt matter --*/
          int    transpose=0;
            PDL_BROADCASTLOOP_START_rowdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  rowid1 = (rowids1_datap)[0+(__inc_rowids1_ncmps*(ncmps))];
                  rowid2 = (rowids2_datap)[0+(__inc_rowids2_ncmps*(ncmps))];
                  (dist_datap)[0+(__inc_dist_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, 1,
                                            &rowid1, &rowid2,
                                            *__params->distFlag, methodChar, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_rowdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_rowdistances_1(PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    rowid1, rowid2;
          char   methodChar = 'x'; /*-- doesnt matter --*/
          int    transpose=0;
            PDL_BROADCASTLOOP_START_rowdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  rowid1 = (rowids1_datap)[0+(__inc_rowids1_ncmps*(ncmps))];
                  rowid2 = (rowids2_datap)[0+(__inc_rowids2_ncmps*(ncmps))];
                  (dist_datap)[0+(__inc_dist_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, 1,
                                            &rowid1, &rowid2,
                                            *__params->distFlag, methodChar, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_rowdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_rowdistances_1(PDL_ULong,K,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    rowid1, rowid2;
          char   methodChar = 'x'; /*-- doesnt matter --*/
          int    transpose=0;
            PDL_BROADCASTLOOP_START_rowdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  rowid1 = (rowids1_datap)[0+(__inc_rowids1_ncmps*(ncmps))];
                  rowid2 = (rowids2_datap)[0+(__inc_rowids2_ncmps*(ncmps))];
                  (dist_datap)[0+(__inc_dist_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, 1,
                                            &rowid1, &rowid2,
                                            *__params->distFlag, methodChar, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_rowdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_rowdistances_1(PDL_Indx,N,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    rowid1, rowid2;
          char   methodChar = 'x'; /*-- doesnt matter --*/
          int    transpose=0;
            PDL_BROADCASTLOOP_START_rowdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  rowid1 = (rowids1_datap)[0+(__inc_rowids1_ncmps*(ncmps))];
                  rowid2 = (rowids2_datap)[0+(__inc_rowids2_ncmps*(ncmps))];
                  (dist_datap)[0+(__inc_dist_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, 1,
                                            &rowid1, &rowid2,
                                            *__params->distFlag, methodChar, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_rowdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_rowdistances_1(PDL_ULongLong,P,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    rowid1, rowid2;
          char   methodChar = 'x'; /*-- doesnt matter --*/
          int    transpose=0;
            PDL_BROADCASTLOOP_START_rowdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  rowid1 = (rowids1_datap)[0+(__inc_rowids1_ncmps*(ncmps))];
                  rowid2 = (rowids2_datap)[0+(__inc_rowids2_ncmps*(ncmps))];
                  (dist_datap)[0+(__inc_dist_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, 1,
                                            &rowid1, &rowid2,
                                            *__params->distFlag, methodChar, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_rowdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_rowdistances_1(PDL_LongLong,Q,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    rowid1, rowid2;
          char   methodChar = 'x'; /*-- doesnt matter --*/
          int    transpose=0;
            PDL_BROADCASTLOOP_START_rowdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  rowid1 = (rowids1_datap)[0+(__inc_rowids1_ncmps*(ncmps))];
                  rowid2 = (rowids2_datap)[0+(__inc_rowids2_ncmps*(ncmps))];
                  (dist_datap)[0+(__inc_dist_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, 1,
                                            &rowid1, &rowid2,
                                            *__params->distFlag, methodChar, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_rowdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_rowdistances_1(PDL_Float,F,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    rowid1, rowid2;
          char   methodChar = 'x'; /*-- doesnt matter --*/
          int    transpose=0;
            PDL_BROADCASTLOOP_START_rowdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  rowid1 = (rowids1_datap)[0+(__inc_rowids1_ncmps*(ncmps))];
                  rowid2 = (rowids2_datap)[0+(__inc_rowids2_ncmps*(ncmps))];
                  (dist_datap)[0+(__inc_dist_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, 1,
                                            &rowid1, &rowid2,
                                            *__params->distFlag, methodChar, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_rowdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_rowdistances_1(PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    rowid1, rowid2;
          char   methodChar = 'x'; /*-- doesnt matter --*/
          int    transpose=0;
            PDL_BROADCASTLOOP_START_rowdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  rowid1 = (rowids1_datap)[0+(__inc_rowids1_ncmps*(ncmps))];
                  rowid2 = (rowids2_datap)[0+(__inc_rowids2_ncmps*(ncmps))];
                  (dist_datap)[0+(__inc_dist_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, 1,
                                            &rowid1, &rowid2,
                                            *__params->distFlag, methodChar, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_rowdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_rowdistances_1(PDL_LDouble,E,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    rowid1, rowid2;
          char   methodChar = 'x'; /*-- doesnt matter --*/
          int    transpose=0;
            PDL_BROADCASTLOOP_START_rowdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  rowid1 = (rowids1_datap)[0+(__inc_rowids1_ncmps*(ncmps))];
                  rowid2 = (rowids2_datap)[0+(__inc_rowids2_ncmps*(ncmps))];
                  (dist_datap)[0+(__inc_dist_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, 1,
                                            &rowid1, &rowid2,
                                            *__params->distFlag, methodChar, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_rowdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in rowdistances: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_rowdistances_free(pdl_trans *__privtrans, char destroy) {
  pdl_error PDL_err = {0, NULL, 0};
#line 5151 "Cluster.xs"
  pdl_params_rowdistances *__params = __privtrans->params; (void)__params;
  PDL_FREE_CODE(__privtrans, destroy, free(__params->distFlag); /* CType.get_free */
  , )  return PDL_err;
}

static pdl_datatypes pdl_rowdistances_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_rowdistances_vtable_realdims[] = { 2, 2, 1, 1, 1, 1 };
static char *pdl_rowdistances_vtable_parnames[] = { "data","mask","weight","rowids1","rowids2","dist" };
static short pdl_rowdistances_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_rowdistances_vtable_partypes[] = { PDL_D, PDL_L, PDL_D, PDL_L, PDL_L, PDL_D };
static PDL_Indx pdl_rowdistances_vtable_realdims_starts[] = { 0, 2, 4, 5, 6, 7 };
static PDL_Indx pdl_rowdistances_vtable_realdims_ind_ids[] = { 0, 1, 0, 1, 0, 2, 2, 2 };
static char *pdl_rowdistances_vtable_indnames[] = { "d","n","ncmps" };
pdl_transvtable pdl_rowdistances_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_rowdistances_vtable_gentypes, 5, 6, NULL /*CORE21*/,
  pdl_rowdistances_vtable_realdims, pdl_rowdistances_vtable_parnames,
  pdl_rowdistances_vtable_parflags, pdl_rowdistances_vtable_partypes,
  pdl_rowdistances_vtable_realdims_starts, pdl_rowdistances_vtable_realdims_ind_ids, 8,
  3, pdl_rowdistances_vtable_indnames,
  NULL, pdl_rowdistances_readdata, NULL,
  pdl_rowdistances_free,
  sizeof(pdl_params_rowdistances),"PDL::Cluster::rowdistances"
};


pdl_error pdl_run_rowdistances(pdl  *data,pdl  *mask,pdl  *weight,pdl  *rowids1,pdl  *rowids2,pdl  *dist,char  *distFlag) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_rowdistances_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_rowdistances *__params = __privtrans->params;
  __privtrans->pdls[0] = data;
  __privtrans->pdls[1] = mask;
  __privtrans->pdls[2] = weight;
  __privtrans->pdls[3] = rowids1;
  __privtrans->pdls[4] = rowids2;
  __privtrans->pdls[5] = dist;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->distFlag) = malloc(strlen(distFlag)+1); strcpy(__params->distFlag,distFlag); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_clusterdistances {
#line 5204 "Cluster.xs"
  char  *distFlag;
  char  *methodFlag;
} pdl_params_clusterdistances;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_clusterdistances_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 5213 "Cluster.xs"
  pdl_params_clusterdistances *__params = __privtrans->params; (void)__params;
  register PDL_Indx __nr_size = __privtrans->ind_sizes[3];
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in clusterdistances:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_rowids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc0_index2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
  register PDL_Indx __tinc0_dist = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,0);
  register PDL_Indx __tinc1_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_rowids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  register PDL_Indx __tinc1_index2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
  register PDL_Indx __tinc1_dist = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,1);
  #define PDL_BROADCASTLOOP_START_clusterdistances_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    data_datap += __offsp[0]; \
    mask_datap += __offsp[1]; \
    weight_datap += __offsp[2]; \
    rowids_datap += __offsp[3]; \
    index2_datap += __offsp[4]; \
    dist_datap += __offsp[5]; \
    , \
    (  ,data_datap += __tinc1_data - __tinc0_data * __tdims0 \
    ,mask_datap += __tinc1_mask - __tinc0_mask * __tdims0 \
    ,weight_datap += __tinc1_weight - __tinc0_weight * __tdims0 \
    ,rowids_datap += __tinc1_rowids - __tinc0_rowids * __tdims0 \
    ,index2_datap += __tinc1_index2 - __tinc0_index2 * __tdims0 \
    ,dist_datap += __tinc1_dist - __tinc0_dist * __tdims0 \
    ), \
    (  ,data_datap += __tinc0_data \
    ,mask_datap += __tinc0_mask \
    ,weight_datap += __tinc0_weight \
    ,rowids_datap += __tinc0_rowids \
    ,index2_datap += __tinc0_index2 \
    ,dist_datap += __tinc0_dist \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_clusterdistances_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    data_datap -= __tinc1_data * __tdims1 + __offsp[0]; \
    mask_datap -= __tinc1_mask * __tdims1 + __offsp[1]; \
    weight_datap -= __tinc1_weight * __tdims1 + __offsp[2]; \
    rowids_datap -= __tinc1_rowids * __tdims1 + __offsp[3]; \
    index2_datap -= __tinc1_index2 * __tdims1 + __offsp[4]; \
    dist_datap -= __tinc1_dist * __tdims1 + __offsp[5]; \
  )
  register PDL_Indx __inc_data_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_data_d;register PDL_Indx __inc_data_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_data_n;
  register PDL_Indx __inc_dist_nr = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,5,0)]; (void)__inc_dist_nr;
  register PDL_Indx __inc_index2_n2 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,4,0)]; (void)__inc_index2_n2;
  register PDL_Indx __inc_mask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_mask_d;register PDL_Indx __inc_mask_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_mask_n;
  register PDL_Indx __inc_rowids_nr = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,0)]; (void)__inc_rowids_nr;
  register PDL_Indx __inc_weight_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_weight_d;
  #ifndef PDL_DECLARE_PARAMS_clusterdistances_1
  #define PDL_DECLARE_PARAMS_clusterdistances_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_data,PDL_PPSYM_PARAM_data,PDL_TYPE_PARAM_mask,PDL_PPSYM_PARAM_mask,PDL_TYPE_PARAM_weight,PDL_PPSYM_PARAM_weight,PDL_TYPE_PARAM_rowids,PDL_PPSYM_PARAM_rowids,PDL_TYPE_PARAM_index2,PDL_PPSYM_PARAM_index2,PDL_TYPE_PARAM_dist,PDL_PPSYM_PARAM_dist) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_data, data, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_data) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_mask, mask, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_mask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_weight, weight, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_weight) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_rowids, rowids, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_rowids) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_index2, index2, (__privtrans->pdls[4]), 1, PDL_PPSYM_PARAM_index2) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_dist, dist, (__privtrans->pdls[5]), 1, PDL_PPSYM_PARAM_dist)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_clusterdistances_1(PDL_SByte,A,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  (dist_datap)[0+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, __privtrans->ind_sizes[2], &((rowids_datap)[0+(__inc_rowids_nr*(nr))]), index2_datap,
                                            *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_clusterdistances_1(PDL_Byte,B,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  (dist_datap)[0+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, __privtrans->ind_sizes[2], &((rowids_datap)[0+(__inc_rowids_nr*(nr))]), index2_datap,
                                            *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_clusterdistances_1(PDL_Short,S,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  (dist_datap)[0+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, __privtrans->ind_sizes[2], &((rowids_datap)[0+(__inc_rowids_nr*(nr))]), index2_datap,
                                            *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_clusterdistances_1(PDL_Ushort,U,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  (dist_datap)[0+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, __privtrans->ind_sizes[2], &((rowids_datap)[0+(__inc_rowids_nr*(nr))]), index2_datap,
                                            *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_clusterdistances_1(PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  (dist_datap)[0+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, __privtrans->ind_sizes[2], &((rowids_datap)[0+(__inc_rowids_nr*(nr))]), index2_datap,
                                            *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_clusterdistances_1(PDL_ULong,K,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  (dist_datap)[0+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, __privtrans->ind_sizes[2], &((rowids_datap)[0+(__inc_rowids_nr*(nr))]), index2_datap,
                                            *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_clusterdistances_1(PDL_Indx,N,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  (dist_datap)[0+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, __privtrans->ind_sizes[2], &((rowids_datap)[0+(__inc_rowids_nr*(nr))]), index2_datap,
                                            *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_clusterdistances_1(PDL_ULongLong,P,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  (dist_datap)[0+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, __privtrans->ind_sizes[2], &((rowids_datap)[0+(__inc_rowids_nr*(nr))]), index2_datap,
                                            *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_clusterdistances_1(PDL_LongLong,Q,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  (dist_datap)[0+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, __privtrans->ind_sizes[2], &((rowids_datap)[0+(__inc_rowids_nr*(nr))]), index2_datap,
                                            *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_clusterdistances_1(PDL_Float,F,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  (dist_datap)[0+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, __privtrans->ind_sizes[2], &((rowids_datap)[0+(__inc_rowids_nr*(nr))]), index2_datap,
                                            *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_clusterdistances_1(PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  (dist_datap)[0+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, __privtrans->ind_sizes[2], &((rowids_datap)[0+(__inc_rowids_nr*(nr))]), index2_datap,
                                            *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_clusterdistances_1(PDL_LDouble,E,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **maskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistances_readdata
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], mask_datap, maskpp);
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  (dist_datap)[0+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                            1, __privtrans->ind_sizes[2], &((rowids_datap)[0+(__inc_rowids_nr*(nr))]), index2_datap,
                                            *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistances_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in clusterdistances: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_clusterdistances_free(pdl_trans *__privtrans, char destroy) {
  pdl_error PDL_err = {0, NULL, 0};
#line 5536 "Cluster.xs"
  pdl_params_clusterdistances *__params = __privtrans->params; (void)__params;
  PDL_FREE_CODE(__privtrans, destroy, free(__params->distFlag); /* CType.get_free */
  free(__params->methodFlag); /* CType.get_free */
  , )  return PDL_err;
}

static pdl_datatypes pdl_clusterdistances_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_clusterdistances_vtable_realdims[] = { 2, 2, 1, 1, 1, 1 };
static char *pdl_clusterdistances_vtable_parnames[] = { "data","mask","weight","rowids","index2","dist" };
static short pdl_clusterdistances_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_clusterdistances_vtable_partypes[] = { PDL_D, PDL_L, PDL_D, PDL_L, PDL_L, PDL_D };
static PDL_Indx pdl_clusterdistances_vtable_realdims_starts[] = { 0, 2, 4, 5, 6, 7 };
static PDL_Indx pdl_clusterdistances_vtable_realdims_ind_ids[] = { 0, 1, 0, 1, 0, 3, 2, 3 };
static char *pdl_clusterdistances_vtable_indnames[] = { "d","n","n2","nr" };
pdl_transvtable pdl_clusterdistances_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_clusterdistances_vtable_gentypes, 5, 6, NULL /*CORE21*/,
  pdl_clusterdistances_vtable_realdims, pdl_clusterdistances_vtable_parnames,
  pdl_clusterdistances_vtable_parflags, pdl_clusterdistances_vtable_partypes,
  pdl_clusterdistances_vtable_realdims_starts, pdl_clusterdistances_vtable_realdims_ind_ids, 8,
  4, pdl_clusterdistances_vtable_indnames,
  NULL, pdl_clusterdistances_readdata, NULL,
  pdl_clusterdistances_free,
  sizeof(pdl_params_clusterdistances),"PDL::Cluster::clusterdistances"
};


pdl_error pdl_run_clusterdistances(pdl  *data,pdl  *mask,pdl  *weight,pdl  *rowids,pdl  *index2,pdl  *dist,char  *distFlag,char  *methodFlag) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_clusterdistances_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_clusterdistances *__params = __privtrans->params;
  __privtrans->pdls[0] = data;
  __privtrans->pdls[1] = mask;
  __privtrans->pdls[2] = weight;
  __privtrans->pdls[3] = rowids;
  __privtrans->pdls[4] = index2;
  __privtrans->pdls[5] = dist;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->distFlag) = malloc(strlen(distFlag)+1); strcpy(__params->distFlag,distFlag); /* CType.get_copy */
  (__params->methodFlag) = malloc(strlen(methodFlag)+1); strcpy(__params->methodFlag,methodFlag); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_clustersizes_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 5592 "Cluster.xs"
  register PDL_Indx __k_size = __privtrans->ind_sizes[0];
  register PDL_Indx __n_size = __privtrans->ind_sizes[1];
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in clustersizes:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_clustersizes = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc1_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_clustersizes = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  #define PDL_BROADCASTLOOP_START_clustersizes_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    clusterids_datap += __offsp[0]; \
    clustersizes_datap += __offsp[1]; \
    , \
    (  ,clusterids_datap += __tinc1_clusterids - __tinc0_clusterids * __tdims0 \
    ,clustersizes_datap += __tinc1_clustersizes - __tinc0_clustersizes * __tdims0 \
    ), \
    (  ,clusterids_datap += __tinc0_clusterids \
    ,clustersizes_datap += __tinc0_clustersizes \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_clustersizes_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    clusterids_datap -= __tinc1_clusterids * __tdims1 + __offsp[0]; \
    clustersizes_datap -= __tinc1_clustersizes * __tdims1 + __offsp[1]; \
  )
  register PDL_Indx __inc_clusterids_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_clusterids_n;
  register PDL_Indx __inc_clustersizes_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_clustersizes_k;
  #ifndef PDL_DECLARE_PARAMS_clustersizes_1
  #define PDL_DECLARE_PARAMS_clustersizes_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_clusterids,PDL_PPSYM_PARAM_clusterids,PDL_TYPE_PARAM_clustersizes,PDL_PPSYM_PARAM_clustersizes) \
    PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_PARAM_clusterids, clusterids, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_clusterids) \
    PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_PARAM_clustersizes, clustersizes, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_clustersizes)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_clustersizes_1(PDL_SByte,A,PDL_Long,L,PDL_Long,L)
        {
        PDL_BROADCASTLOOP_START_clustersizes_readdata
           int cid, csize;
           {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
           {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
               cid = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
               if (cid < 0 || cid >= __privtrans->ind_sizes[0] || PDL_ISBAD2(cid,clusterids_badval,L,clusterids_badval_isnan)) continue; /*-- sanity check --*/
               (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
             }} /* Close n */
        PDL_BROADCASTLOOP_END_clustersizes_readdata
        __privtrans->pdls[1]->state &= ~PDL_BADVAL; /* always make sure the output is "good" */
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_clustersizes_1(PDL_Byte,B,PDL_Long,L,PDL_Long,L)
        {
        PDL_BROADCASTLOOP_START_clustersizes_readdata
           int cid, csize;
           {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
           {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
               cid = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
               if (cid < 0 || cid >= __privtrans->ind_sizes[0] || PDL_ISBAD2(cid,clusterids_badval,L,clusterids_badval_isnan)) continue; /*-- sanity check --*/
               (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
             }} /* Close n */
        PDL_BROADCASTLOOP_END_clustersizes_readdata
        __privtrans->pdls[1]->state &= ~PDL_BADVAL; /* always make sure the output is "good" */
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_clustersizes_1(PDL_Short,S,PDL_Long,L,PDL_Long,L)
        {
        PDL_BROADCASTLOOP_START_clustersizes_readdata
           int cid, csize;
           {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
           {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
               cid = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
               if (cid < 0 || cid >= __privtrans->ind_sizes[0] || PDL_ISBAD2(cid,clusterids_badval,L,clusterids_badval_isnan)) continue; /*-- sanity check --*/
               (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
             }} /* Close n */
        PDL_BROADCASTLOOP_END_clustersizes_readdata
        __privtrans->pdls[1]->state &= ~PDL_BADVAL; /* always make sure the output is "good" */
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_clustersizes_1(PDL_Ushort,U,PDL_Long,L,PDL_Long,L)
        {
        PDL_BROADCASTLOOP_START_clustersizes_readdata
           int cid, csize;
           {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
           {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
               cid = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
               if (cid < 0 || cid >= __privtrans->ind_sizes[0] || PDL_ISBAD2(cid,clusterids_badval,L,clusterids_badval_isnan)) continue; /*-- sanity check --*/
               (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
             }} /* Close n */
        PDL_BROADCASTLOOP_END_clustersizes_readdata
        __privtrans->pdls[1]->state &= ~PDL_BADVAL; /* always make sure the output is "good" */
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_clustersizes_1(PDL_Long,L,PDL_Long,L,PDL_Long,L)
        {
        PDL_BROADCASTLOOP_START_clustersizes_readdata
           int cid, csize;
           {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
           {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
               cid = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
               if (cid < 0 || cid >= __privtrans->ind_sizes[0] || PDL_ISBAD2(cid,clusterids_badval,L,clusterids_badval_isnan)) continue; /*-- sanity check --*/
               (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
             }} /* Close n */
        PDL_BROADCASTLOOP_END_clustersizes_readdata
        __privtrans->pdls[1]->state &= ~PDL_BADVAL; /* always make sure the output is "good" */
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_clustersizes_1(PDL_ULong,K,PDL_Long,L,PDL_Long,L)
        {
        PDL_BROADCASTLOOP_START_clustersizes_readdata
           int cid, csize;
           {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
           {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
               cid = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
               if (cid < 0 || cid >= __privtrans->ind_sizes[0] || PDL_ISBAD2(cid,clusterids_badval,L,clusterids_badval_isnan)) continue; /*-- sanity check --*/
               (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
             }} /* Close n */
        PDL_BROADCASTLOOP_END_clustersizes_readdata
        __privtrans->pdls[1]->state &= ~PDL_BADVAL; /* always make sure the output is "good" */
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_clustersizes_1(PDL_Indx,N,PDL_Long,L,PDL_Long,L)
        {
        PDL_BROADCASTLOOP_START_clustersizes_readdata
           int cid, csize;
           {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
           {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
               cid = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
               if (cid < 0 || cid >= __privtrans->ind_sizes[0] || PDL_ISBAD2(cid,clusterids_badval,L,clusterids_badval_isnan)) continue; /*-- sanity check --*/
               (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
             }} /* Close n */
        PDL_BROADCASTLOOP_END_clustersizes_readdata
        __privtrans->pdls[1]->state &= ~PDL_BADVAL; /* always make sure the output is "good" */
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_clustersizes_1(PDL_ULongLong,P,PDL_Long,L,PDL_Long,L)
        {
        PDL_BROADCASTLOOP_START_clustersizes_readdata
           int cid, csize;
           {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
           {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
               cid = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
               if (cid < 0 || cid >= __privtrans->ind_sizes[0] || PDL_ISBAD2(cid,clusterids_badval,L,clusterids_badval_isnan)) continue; /*-- sanity check --*/
               (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
             }} /* Close n */
        PDL_BROADCASTLOOP_END_clustersizes_readdata
        __privtrans->pdls[1]->state &= ~PDL_BADVAL; /* always make sure the output is "good" */
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_clustersizes_1(PDL_LongLong,Q,PDL_Long,L,PDL_Long,L)
        {
        PDL_BROADCASTLOOP_START_clustersizes_readdata
           int cid, csize;
           {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
           {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
               cid = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
               if (cid < 0 || cid >= __privtrans->ind_sizes[0] || PDL_ISBAD2(cid,clusterids_badval,L,clusterids_badval_isnan)) continue; /*-- sanity check --*/
               (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
             }} /* Close n */
        PDL_BROADCASTLOOP_END_clustersizes_readdata
        __privtrans->pdls[1]->state &= ~PDL_BADVAL; /* always make sure the output is "good" */
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_clustersizes_1(PDL_Float,F,PDL_Long,L,PDL_Long,L)
        {
        PDL_BROADCASTLOOP_START_clustersizes_readdata
           int cid, csize;
           {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
           {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
               cid = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
               if (cid < 0 || cid >= __privtrans->ind_sizes[0] || PDL_ISBAD2(cid,clusterids_badval,L,clusterids_badval_isnan)) continue; /*-- sanity check --*/
               (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
             }} /* Close n */
        PDL_BROADCASTLOOP_END_clustersizes_readdata
        __privtrans->pdls[1]->state &= ~PDL_BADVAL; /* always make sure the output is "good" */
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_clustersizes_1(PDL_Double,D,PDL_Long,L,PDL_Long,L)
        {
        PDL_BROADCASTLOOP_START_clustersizes_readdata
           int cid, csize;
           {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
           {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
               cid = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
               if (cid < 0 || cid >= __privtrans->ind_sizes[0] || PDL_ISBAD2(cid,clusterids_badval,L,clusterids_badval_isnan)) continue; /*-- sanity check --*/
               (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
             }} /* Close n */
        PDL_BROADCASTLOOP_END_clustersizes_readdata
        __privtrans->pdls[1]->state &= ~PDL_BADVAL; /* always make sure the output is "good" */
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_clustersizes_1(PDL_LDouble,E,PDL_Long,L,PDL_Long,L)
        {
        PDL_BROADCASTLOOP_START_clustersizes_readdata
           int cid, csize;
           {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
           {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
               cid = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
               if (cid < 0 || cid >= __privtrans->ind_sizes[0] || PDL_ISBAD2(cid,clusterids_badval,L,clusterids_badval_isnan)) continue; /*-- sanity check --*/
               (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
             }} /* Close n */
        PDL_BROADCASTLOOP_END_clustersizes_readdata
        __privtrans->pdls[1]->state &= ~PDL_BADVAL; /* always make sure the output is "good" */
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in clustersizes: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}

static pdl_datatypes pdl_clustersizes_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_clustersizes_vtable_realdims[] = { 1, 1 };
static char *pdl_clustersizes_vtable_parnames[] = { "clusterids","clustersizes" };
static short pdl_clustersizes_vtable_parflags[] = {
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_clustersizes_vtable_partypes[] = { PDL_L, PDL_L };
static PDL_Indx pdl_clustersizes_vtable_realdims_starts[] = { 0, 1 };
static PDL_Indx pdl_clustersizes_vtable_realdims_ind_ids[] = { 1, 0 };
static char *pdl_clustersizes_vtable_indnames[] = { "k","n" };
pdl_transvtable pdl_clustersizes_vtable = {
  PDL_TRANS_DO_BROADCAST|PDL_TRANS_BADPROCESS, 0, pdl_clustersizes_vtable_gentypes, 1, 2, NULL /*CORE21*/,
  pdl_clustersizes_vtable_realdims, pdl_clustersizes_vtable_parnames,
  pdl_clustersizes_vtable_parflags, pdl_clustersizes_vtable_partypes,
  pdl_clustersizes_vtable_realdims_starts, pdl_clustersizes_vtable_realdims_ind_ids, 2,
  2, pdl_clustersizes_vtable_indnames,
  NULL, pdl_clustersizes_readdata, NULL,
  NULL,
  0,"PDL::Cluster::clustersizes"
};


pdl_error pdl_run_clustersizes(pdl  *clusterids,pdl  *clustersizes) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_clustersizes_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  __privtrans->pdls[0] = clusterids;
  __privtrans->pdls[1] = clustersizes;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_clusterelements_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 5857 "Cluster.xs"
  register PDL_Indx __k_size = __privtrans->ind_sizes[0];
  register PDL_Indx __n_size = __privtrans->ind_sizes[2];
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in clusterelements:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_clustersizes = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_eltids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc1_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_clustersizes = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_eltids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  #define PDL_BROADCASTLOOP_START_clusterelements_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    clusterids_datap += __offsp[0]; \
    clustersizes_datap += __offsp[1]; \
    eltids_datap += __offsp[2]; \
    , \
    (  ,clusterids_datap += __tinc1_clusterids - __tinc0_clusterids * __tdims0 \
    ,clustersizes_datap += __tinc1_clustersizes - __tinc0_clustersizes * __tdims0 \
    ,eltids_datap += __tinc1_eltids - __tinc0_eltids * __tdims0 \
    ), \
    (  ,clusterids_datap += __tinc0_clusterids \
    ,clustersizes_datap += __tinc0_clustersizes \
    ,eltids_datap += __tinc0_eltids \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_clusterelements_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    clusterids_datap -= __tinc1_clusterids * __tdims1 + __offsp[0]; \
    clustersizes_datap -= __tinc1_clustersizes * __tdims1 + __offsp[1]; \
    eltids_datap -= __tinc1_eltids * __tdims1 + __offsp[2]; \
  )
  register PDL_Indx __inc_clusterids_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_clusterids_n;
  register PDL_Indx __inc_clustersizes_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_clustersizes_k;
  register PDL_Indx __inc_eltids_mcsize = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_eltids_mcsize;register PDL_Indx __inc_eltids_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,1)]; (void)__inc_eltids_k;
  #ifndef PDL_DECLARE_PARAMS_clusterelements_1
  #define PDL_DECLARE_PARAMS_clusterelements_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_clusterids,PDL_PPSYM_PARAM_clusterids,PDL_TYPE_PARAM_clustersizes,PDL_PPSYM_PARAM_clustersizes,PDL_TYPE_PARAM_eltids,PDL_PPSYM_PARAM_eltids) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_clusterids, clusterids, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_clusterids) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_clustersizes, clustersizes, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_clustersizes) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_eltids, eltids, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_eltids)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_clusterelements_1(PDL_SByte,A,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_clusterelements_readdata    {
            int cid, csize;
            {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                csize = (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
                (eltids_datap)[0+(__inc_eltids_mcsize*(csize))+(__inc_eltids_k*(cid))] = n;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelements_readdata
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_clusterelements_1(PDL_Byte,B,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_clusterelements_readdata    {
            int cid, csize;
            {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                csize = (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
                (eltids_datap)[0+(__inc_eltids_mcsize*(csize))+(__inc_eltids_k*(cid))] = n;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelements_readdata
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_clusterelements_1(PDL_Short,S,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_clusterelements_readdata    {
            int cid, csize;
            {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                csize = (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
                (eltids_datap)[0+(__inc_eltids_mcsize*(csize))+(__inc_eltids_k*(cid))] = n;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelements_readdata
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_clusterelements_1(PDL_Ushort,U,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_clusterelements_readdata    {
            int cid, csize;
            {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                csize = (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
                (eltids_datap)[0+(__inc_eltids_mcsize*(csize))+(__inc_eltids_k*(cid))] = n;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelements_readdata
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_clusterelements_1(PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_clusterelements_readdata    {
            int cid, csize;
            {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                csize = (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
                (eltids_datap)[0+(__inc_eltids_mcsize*(csize))+(__inc_eltids_k*(cid))] = n;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelements_readdata
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_clusterelements_1(PDL_ULong,K,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_clusterelements_readdata    {
            int cid, csize;
            {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                csize = (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
                (eltids_datap)[0+(__inc_eltids_mcsize*(csize))+(__inc_eltids_k*(cid))] = n;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelements_readdata
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_clusterelements_1(PDL_Indx,N,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_clusterelements_readdata    {
            int cid, csize;
            {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                csize = (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
                (eltids_datap)[0+(__inc_eltids_mcsize*(csize))+(__inc_eltids_k*(cid))] = n;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelements_readdata
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_clusterelements_1(PDL_ULongLong,P,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_clusterelements_readdata    {
            int cid, csize;
            {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                csize = (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
                (eltids_datap)[0+(__inc_eltids_mcsize*(csize))+(__inc_eltids_k*(cid))] = n;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelements_readdata
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_clusterelements_1(PDL_LongLong,Q,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_clusterelements_readdata    {
            int cid, csize;
            {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                csize = (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
                (eltids_datap)[0+(__inc_eltids_mcsize*(csize))+(__inc_eltids_k*(cid))] = n;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelements_readdata
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_clusterelements_1(PDL_Float,F,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_clusterelements_readdata    {
            int cid, csize;
            {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                csize = (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
                (eltids_datap)[0+(__inc_eltids_mcsize*(csize))+(__inc_eltids_k*(cid))] = n;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelements_readdata
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_clusterelements_1(PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_clusterelements_readdata    {
            int cid, csize;
            {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                csize = (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
                (eltids_datap)[0+(__inc_eltids_mcsize*(csize))+(__inc_eltids_k*(cid))] = n;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelements_readdata
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_clusterelements_1(PDL_LDouble,E,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_clusterelements_readdata    {
            int cid, csize;
            {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (clustersizes_datap)[0+(__inc_clustersizes_k*(k))] = 0; }} /* Close k */
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                csize = (clustersizes_datap)[0+(__inc_clustersizes_k*(cid))]++;
                (eltids_datap)[0+(__inc_eltids_mcsize*(csize))+(__inc_eltids_k*(cid))] = n;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelements_readdata
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in clusterelements: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}

static pdl_datatypes pdl_clusterelements_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_clusterelements_vtable_realdims[] = { 1, 1, 2 };
static char *pdl_clusterelements_vtable_parnames[] = { "clusterids","clustersizes","eltids" };
static short pdl_clusterelements_vtable_parflags[] = {
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_clusterelements_vtable_partypes[] = { PDL_L, PDL_L, PDL_L };
static PDL_Indx pdl_clusterelements_vtable_realdims_starts[] = { 0, 1, 2 };
static PDL_Indx pdl_clusterelements_vtable_realdims_ind_ids[] = { 2, 0, 1, 0 };
static char *pdl_clusterelements_vtable_indnames[] = { "k","mcsize","n" };
pdl_transvtable pdl_clusterelements_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_clusterelements_vtable_gentypes, 1, 3, NULL /*CORE21*/,
  pdl_clusterelements_vtable_realdims, pdl_clusterelements_vtable_parnames,
  pdl_clusterelements_vtable_parflags, pdl_clusterelements_vtable_partypes,
  pdl_clusterelements_vtable_realdims_starts, pdl_clusterelements_vtable_realdims_ind_ids, 4,
  3, pdl_clusterelements_vtable_indnames,
  NULL, pdl_clusterelements_readdata, NULL,
  NULL,
  0,"PDL::Cluster::clusterelements"
};


pdl_error pdl_run_clusterelements(pdl  *clusterids,pdl  *clustersizes,pdl  *eltids) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_clusterelements_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  __privtrans->pdls[0] = clusterids;
  __privtrans->pdls[1] = clustersizes;
  __privtrans->pdls[2] = eltids;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_clusterelementmask_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 6096 "Cluster.xs"
  register PDL_Indx __n_size = __privtrans->ind_sizes[1];
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in clusterelementmask:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_eltmask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc1_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_eltmask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  #define PDL_BROADCASTLOOP_START_clusterelementmask_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    clusterids_datap += __offsp[0]; \
    eltmask_datap += __offsp[1]; \
    , \
    (  ,clusterids_datap += __tinc1_clusterids - __tinc0_clusterids * __tdims0 \
    ,eltmask_datap += __tinc1_eltmask - __tinc0_eltmask * __tdims0 \
    ), \
    (  ,clusterids_datap += __tinc0_clusterids \
    ,eltmask_datap += __tinc0_eltmask \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_clusterelementmask_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    clusterids_datap -= __tinc1_clusterids * __tdims1 + __offsp[0]; \
    eltmask_datap -= __tinc1_eltmask * __tdims1 + __offsp[1]; \
  )
  register PDL_Indx __inc_clusterids_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_clusterids_n;
  register PDL_Indx __inc_eltmask_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_eltmask_k;register PDL_Indx __inc_eltmask_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_eltmask_n;
  #ifndef PDL_DECLARE_PARAMS_clusterelementmask_1
  #define PDL_DECLARE_PARAMS_clusterelementmask_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_clusterids,PDL_PPSYM_PARAM_clusterids,PDL_TYPE_PARAM_eltmask,PDL_PPSYM_PARAM_eltmask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_clusterids, clusterids, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_clusterids) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_eltmask, eltmask, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_eltmask)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_clusterelementmask_1(PDL_SByte,A,PDL_Long,L,PDL_Byte,B)
      PDL_BROADCASTLOOP_START_clusterelementmask_readdata    {
            int cid, csize;
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                (eltmask_datap)[0+(__inc_eltmask_k*(cid))+(__inc_eltmask_n*(n))] = 1;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelementmask_readdata
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_clusterelementmask_1(PDL_Byte,B,PDL_Long,L,PDL_Byte,B)
      PDL_BROADCASTLOOP_START_clusterelementmask_readdata    {
            int cid, csize;
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                (eltmask_datap)[0+(__inc_eltmask_k*(cid))+(__inc_eltmask_n*(n))] = 1;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelementmask_readdata
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_clusterelementmask_1(PDL_Short,S,PDL_Long,L,PDL_Byte,B)
      PDL_BROADCASTLOOP_START_clusterelementmask_readdata    {
            int cid, csize;
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                (eltmask_datap)[0+(__inc_eltmask_k*(cid))+(__inc_eltmask_n*(n))] = 1;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelementmask_readdata
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_clusterelementmask_1(PDL_Ushort,U,PDL_Long,L,PDL_Byte,B)
      PDL_BROADCASTLOOP_START_clusterelementmask_readdata    {
            int cid, csize;
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                (eltmask_datap)[0+(__inc_eltmask_k*(cid))+(__inc_eltmask_n*(n))] = 1;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelementmask_readdata
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_clusterelementmask_1(PDL_Long,L,PDL_Long,L,PDL_Byte,B)
      PDL_BROADCASTLOOP_START_clusterelementmask_readdata    {
            int cid, csize;
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                (eltmask_datap)[0+(__inc_eltmask_k*(cid))+(__inc_eltmask_n*(n))] = 1;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelementmask_readdata
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_clusterelementmask_1(PDL_ULong,K,PDL_Long,L,PDL_Byte,B)
      PDL_BROADCASTLOOP_START_clusterelementmask_readdata    {
            int cid, csize;
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                (eltmask_datap)[0+(__inc_eltmask_k*(cid))+(__inc_eltmask_n*(n))] = 1;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelementmask_readdata
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_clusterelementmask_1(PDL_Indx,N,PDL_Long,L,PDL_Byte,B)
      PDL_BROADCASTLOOP_START_clusterelementmask_readdata    {
            int cid, csize;
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                (eltmask_datap)[0+(__inc_eltmask_k*(cid))+(__inc_eltmask_n*(n))] = 1;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelementmask_readdata
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_clusterelementmask_1(PDL_ULongLong,P,PDL_Long,L,PDL_Byte,B)
      PDL_BROADCASTLOOP_START_clusterelementmask_readdata    {
            int cid, csize;
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                (eltmask_datap)[0+(__inc_eltmask_k*(cid))+(__inc_eltmask_n*(n))] = 1;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelementmask_readdata
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_clusterelementmask_1(PDL_LongLong,Q,PDL_Long,L,PDL_Byte,B)
      PDL_BROADCASTLOOP_START_clusterelementmask_readdata    {
            int cid, csize;
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                (eltmask_datap)[0+(__inc_eltmask_k*(cid))+(__inc_eltmask_n*(n))] = 1;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelementmask_readdata
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_clusterelementmask_1(PDL_Float,F,PDL_Long,L,PDL_Byte,B)
      PDL_BROADCASTLOOP_START_clusterelementmask_readdata    {
            int cid, csize;
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                (eltmask_datap)[0+(__inc_eltmask_k*(cid))+(__inc_eltmask_n*(n))] = 1;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelementmask_readdata
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_clusterelementmask_1(PDL_Double,D,PDL_Long,L,PDL_Byte,B)
      PDL_BROADCASTLOOP_START_clusterelementmask_readdata    {
            int cid, csize;
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                (eltmask_datap)[0+(__inc_eltmask_k*(cid))+(__inc_eltmask_n*(n))] = 1;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelementmask_readdata
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_clusterelementmask_1(PDL_LDouble,E,PDL_Long,L,PDL_Byte,B)
      PDL_BROADCASTLOOP_START_clusterelementmask_readdata    {
            int cid, csize;
            {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                cid   = (clusterids_datap)[0+(__inc_clusterids_n*(n))];
                (eltmask_datap)[0+(__inc_eltmask_k*(cid))+(__inc_eltmask_n*(n))] = 1;
              }} /* Close n */
          }PDL_BROADCASTLOOP_END_clusterelementmask_readdata
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in clusterelementmask: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}

static pdl_datatypes pdl_clusterelementmask_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_clusterelementmask_vtable_realdims[] = { 1, 2 };
static char *pdl_clusterelementmask_vtable_parnames[] = { "clusterids","eltmask" };
static short pdl_clusterelementmask_vtable_parflags[] = {
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_clusterelementmask_vtable_partypes[] = { PDL_L, PDL_B };
static PDL_Indx pdl_clusterelementmask_vtable_realdims_starts[] = { 0, 1 };
static PDL_Indx pdl_clusterelementmask_vtable_realdims_ind_ids[] = { 1, 0, 1 };
static char *pdl_clusterelementmask_vtable_indnames[] = { "k","n" };
pdl_transvtable pdl_clusterelementmask_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_clusterelementmask_vtable_gentypes, 1, 2, NULL /*CORE21*/,
  pdl_clusterelementmask_vtable_realdims, pdl_clusterelementmask_vtable_parnames,
  pdl_clusterelementmask_vtable_parflags, pdl_clusterelementmask_vtable_partypes,
  pdl_clusterelementmask_vtable_realdims_starts, pdl_clusterelementmask_vtable_realdims_ind_ids, 3,
  2, pdl_clusterelementmask_vtable_indnames,
  NULL, pdl_clusterelementmask_readdata, NULL,
  NULL,
  0,"PDL::Cluster::clusterelementmask"
};


pdl_error pdl_run_clusterelementmask(pdl  *clusterids,pdl  *eltmask) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_clusterelementmask_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  __privtrans->pdls[0] = clusterids;
  __privtrans->pdls[1] = eltmask;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_clusterdistancematrix {
#line 6299 "Cluster.xs"
  char  *distFlag;
  char  *methodFlag;
} pdl_params_clusterdistancematrix;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_clusterdistancematrix_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 6308 "Cluster.xs"
  pdl_params_clusterdistancematrix *__params = __privtrans->params; (void)__params;
  register PDL_Indx __k_size = __privtrans->ind_sizes[1];
  register PDL_Indx __nr_size = __privtrans->ind_sizes[4];
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in clusterdistancematrix:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_rowids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc0_clustersizes = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
  register PDL_Indx __tinc0_eltids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,0);
  register PDL_Indx __tinc0_dist = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,6,0);
  register PDL_Indx __tinc1_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_rowids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  register PDL_Indx __tinc1_clustersizes = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
  register PDL_Indx __tinc1_eltids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,1);
  register PDL_Indx __tinc1_dist = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,6,1);
  #define PDL_BROADCASTLOOP_START_clusterdistancematrix_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    data_datap += __offsp[0]; \
    mask_datap += __offsp[1]; \
    weight_datap += __offsp[2]; \
    rowids_datap += __offsp[3]; \
    clustersizes_datap += __offsp[4]; \
    eltids_datap += __offsp[5]; \
    dist_datap += __offsp[6]; \
    , \
    (  ,data_datap += __tinc1_data - __tinc0_data * __tdims0 \
    ,mask_datap += __tinc1_mask - __tinc0_mask * __tdims0 \
    ,weight_datap += __tinc1_weight - __tinc0_weight * __tdims0 \
    ,rowids_datap += __tinc1_rowids - __tinc0_rowids * __tdims0 \
    ,clustersizes_datap += __tinc1_clustersizes - __tinc0_clustersizes * __tdims0 \
    ,eltids_datap += __tinc1_eltids - __tinc0_eltids * __tdims0 \
    ,dist_datap += __tinc1_dist - __tinc0_dist * __tdims0 \
    ), \
    (  ,data_datap += __tinc0_data \
    ,mask_datap += __tinc0_mask \
    ,weight_datap += __tinc0_weight \
    ,rowids_datap += __tinc0_rowids \
    ,clustersizes_datap += __tinc0_clustersizes \
    ,eltids_datap += __tinc0_eltids \
    ,dist_datap += __tinc0_dist \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_clusterdistancematrix_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    data_datap -= __tinc1_data * __tdims1 + __offsp[0]; \
    mask_datap -= __tinc1_mask * __tdims1 + __offsp[1]; \
    weight_datap -= __tinc1_weight * __tdims1 + __offsp[2]; \
    rowids_datap -= __tinc1_rowids * __tdims1 + __offsp[3]; \
    clustersizes_datap -= __tinc1_clustersizes * __tdims1 + __offsp[4]; \
    eltids_datap -= __tinc1_eltids * __tdims1 + __offsp[5]; \
    dist_datap -= __tinc1_dist * __tdims1 + __offsp[6]; \
  )
  register PDL_Indx __inc_clustersizes_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,4,0)]; (void)__inc_clustersizes_k;
  register PDL_Indx __inc_data_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_data_d;register PDL_Indx __inc_data_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_data_n;
  register PDL_Indx __inc_dist_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,6,0)]; (void)__inc_dist_k;register PDL_Indx __inc_dist_nr = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,6,1)]; (void)__inc_dist_nr;
  register PDL_Indx __inc_eltids_mcsize = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,5,0)]; (void)__inc_eltids_mcsize;register PDL_Indx __inc_eltids_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,5,1)]; (void)__inc_eltids_k;
  register PDL_Indx __inc_mask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_mask_d;register PDL_Indx __inc_mask_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_mask_n;
  register PDL_Indx __inc_rowids_nr = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,0)]; (void)__inc_rowids_nr;
  register PDL_Indx __inc_weight_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_weight_d;
  #ifndef PDL_DECLARE_PARAMS_clusterdistancematrix_1
  #define PDL_DECLARE_PARAMS_clusterdistancematrix_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_data,PDL_PPSYM_PARAM_data,PDL_TYPE_PARAM_mask,PDL_PPSYM_PARAM_mask,PDL_TYPE_PARAM_weight,PDL_PPSYM_PARAM_weight,PDL_TYPE_PARAM_rowids,PDL_PPSYM_PARAM_rowids,PDL_TYPE_PARAM_clustersizes,PDL_PPSYM_PARAM_clustersizes,PDL_TYPE_PARAM_eltids,PDL_PPSYM_PARAM_eltids,PDL_TYPE_PARAM_dist,PDL_PPSYM_PARAM_dist) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_data, data, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_data) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_mask, mask, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_mask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_weight, weight, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_weight) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_rowids, rowids, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_rowids) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_clustersizes, clustersizes, (__privtrans->pdls[4]), 1, PDL_PPSYM_PARAM_clustersizes) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_eltids, eltids, (__privtrans->pdls[5]), 1, PDL_PPSYM_PARAM_eltids) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_dist, dist, (__privtrans->pdls[6]), 1, PDL_PPSYM_PARAM_dist)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_clusterdistancematrix_1(PDL_SByte,A,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **eltidspp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    rowid;
            PDL_BROADCASTLOOP_START_clusterdistancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[2], eltids_datap, eltidspp);
                  {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  rowid = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                      (dist_datap)[0+(__inc_dist_k*(k))+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                1,        (clustersizes_datap)[0+(__inc_clustersizes_k*(k))],
                                                &rowid,   eltidspp[k],
                                                *__params->distFlag, *__params->methodFlag, transpose);
                    }} /* Close k */
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistancematrix_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (eltidspp) free(eltidspp);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_clusterdistancematrix_1(PDL_Byte,B,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **eltidspp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    rowid;
            PDL_BROADCASTLOOP_START_clusterdistancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[2], eltids_datap, eltidspp);
                  {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  rowid = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                      (dist_datap)[0+(__inc_dist_k*(k))+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                1,        (clustersizes_datap)[0+(__inc_clustersizes_k*(k))],
                                                &rowid,   eltidspp[k],
                                                *__params->distFlag, *__params->methodFlag, transpose);
                    }} /* Close k */
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistancematrix_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (eltidspp) free(eltidspp);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_clusterdistancematrix_1(PDL_Short,S,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **eltidspp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    rowid;
            PDL_BROADCASTLOOP_START_clusterdistancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[2], eltids_datap, eltidspp);
                  {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  rowid = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                      (dist_datap)[0+(__inc_dist_k*(k))+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                1,        (clustersizes_datap)[0+(__inc_clustersizes_k*(k))],
                                                &rowid,   eltidspp[k],
                                                *__params->distFlag, *__params->methodFlag, transpose);
                    }} /* Close k */
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistancematrix_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (eltidspp) free(eltidspp);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_clusterdistancematrix_1(PDL_Ushort,U,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **eltidspp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    rowid;
            PDL_BROADCASTLOOP_START_clusterdistancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[2], eltids_datap, eltidspp);
                  {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  rowid = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                      (dist_datap)[0+(__inc_dist_k*(k))+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                1,        (clustersizes_datap)[0+(__inc_clustersizes_k*(k))],
                                                &rowid,   eltidspp[k],
                                                *__params->distFlag, *__params->methodFlag, transpose);
                    }} /* Close k */
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistancematrix_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (eltidspp) free(eltidspp);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_clusterdistancematrix_1(PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **eltidspp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    rowid;
            PDL_BROADCASTLOOP_START_clusterdistancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[2], eltids_datap, eltidspp);
                  {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  rowid = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                      (dist_datap)[0+(__inc_dist_k*(k))+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                1,        (clustersizes_datap)[0+(__inc_clustersizes_k*(k))],
                                                &rowid,   eltidspp[k],
                                                *__params->distFlag, *__params->methodFlag, transpose);
                    }} /* Close k */
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistancematrix_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (eltidspp) free(eltidspp);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_clusterdistancematrix_1(PDL_ULong,K,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **eltidspp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    rowid;
            PDL_BROADCASTLOOP_START_clusterdistancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[2], eltids_datap, eltidspp);
                  {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  rowid = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                      (dist_datap)[0+(__inc_dist_k*(k))+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                1,        (clustersizes_datap)[0+(__inc_clustersizes_k*(k))],
                                                &rowid,   eltidspp[k],
                                                *__params->distFlag, *__params->methodFlag, transpose);
                    }} /* Close k */
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistancematrix_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (eltidspp) free(eltidspp);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_clusterdistancematrix_1(PDL_Indx,N,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **eltidspp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    rowid;
            PDL_BROADCASTLOOP_START_clusterdistancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[2], eltids_datap, eltidspp);
                  {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  rowid = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                      (dist_datap)[0+(__inc_dist_k*(k))+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                1,        (clustersizes_datap)[0+(__inc_clustersizes_k*(k))],
                                                &rowid,   eltidspp[k],
                                                *__params->distFlag, *__params->methodFlag, transpose);
                    }} /* Close k */
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistancematrix_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (eltidspp) free(eltidspp);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_clusterdistancematrix_1(PDL_ULongLong,P,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **eltidspp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    rowid;
            PDL_BROADCASTLOOP_START_clusterdistancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[2], eltids_datap, eltidspp);
                  {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  rowid = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                      (dist_datap)[0+(__inc_dist_k*(k))+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                1,        (clustersizes_datap)[0+(__inc_clustersizes_k*(k))],
                                                &rowid,   eltidspp[k],
                                                *__params->distFlag, *__params->methodFlag, transpose);
                    }} /* Close k */
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistancematrix_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (eltidspp) free(eltidspp);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_clusterdistancematrix_1(PDL_LongLong,Q,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **eltidspp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    rowid;
            PDL_BROADCASTLOOP_START_clusterdistancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[2], eltids_datap, eltidspp);
                  {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  rowid = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                      (dist_datap)[0+(__inc_dist_k*(k))+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                1,        (clustersizes_datap)[0+(__inc_clustersizes_k*(k))],
                                                &rowid,   eltidspp[k],
                                                *__params->distFlag, *__params->methodFlag, transpose);
                    }} /* Close k */
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistancematrix_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (eltidspp) free(eltidspp);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_clusterdistancematrix_1(PDL_Float,F,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **eltidspp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    rowid;
            PDL_BROADCASTLOOP_START_clusterdistancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[2], eltids_datap, eltidspp);
                  {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  rowid = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                      (dist_datap)[0+(__inc_dist_k*(k))+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                1,        (clustersizes_datap)[0+(__inc_clustersizes_k*(k))],
                                                &rowid,   eltidspp[k],
                                                *__params->distFlag, *__params->methodFlag, transpose);
                    }} /* Close k */
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistancematrix_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (eltidspp) free(eltidspp);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_clusterdistancematrix_1(PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **eltidspp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    rowid;
            PDL_BROADCASTLOOP_START_clusterdistancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[2], eltids_datap, eltidspp);
                  {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  rowid = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                      (dist_datap)[0+(__inc_dist_k*(k))+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                1,        (clustersizes_datap)[0+(__inc_clustersizes_k*(k))],
                                                &rowid,   eltidspp[k],
                                                *__params->distFlag, *__params->methodFlag, transpose);
                    }} /* Close k */
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistancematrix_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (eltidspp) free(eltidspp);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_clusterdistancematrix_1(PDL_LDouble,E,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **eltidspp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          int    transpose=0;
          int    rowid;
            PDL_BROADCASTLOOP_START_clusterdistancematrix_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              p2pp_int(__privtrans->ind_sizes[1],   __privtrans->ind_sizes[2], eltids_datap, eltidspp);
                  {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  rowid = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                      (dist_datap)[0+(__inc_dist_k*(k))+(__inc_dist_nr*(nr))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                1,        (clustersizes_datap)[0+(__inc_clustersizes_k*(k))],
                                                &rowid,   eltidspp[k],
                                                *__params->distFlag, *__params->methodFlag, transpose);
                    }} /* Close k */
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_clusterdistancematrix_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (eltidspp) free(eltidspp);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in clusterdistancematrix: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_clusterdistancematrix_free(pdl_trans *__privtrans, char destroy) {
  pdl_error PDL_err = {0, NULL, 0};
#line 6736 "Cluster.xs"
  pdl_params_clusterdistancematrix *__params = __privtrans->params; (void)__params;
  PDL_FREE_CODE(__privtrans, destroy, free(__params->distFlag); /* CType.get_free */
  free(__params->methodFlag); /* CType.get_free */
  , )  return PDL_err;
}

static pdl_datatypes pdl_clusterdistancematrix_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_clusterdistancematrix_vtable_realdims[] = { 2, 2, 1, 1, 1, 2, 2 };
static char *pdl_clusterdistancematrix_vtable_parnames[] = { "data","mask","weight","rowids","clustersizes","eltids","dist" };
static short pdl_clusterdistancematrix_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_clusterdistancematrix_vtable_partypes[] = { PDL_D, PDL_L, PDL_D, PDL_L, PDL_L, PDL_L, PDL_D };
static PDL_Indx pdl_clusterdistancematrix_vtable_realdims_starts[] = { 0, 2, 4, 5, 6, 7, 9 };
static PDL_Indx pdl_clusterdistancematrix_vtable_realdims_ind_ids[] = { 0, 3, 0, 3, 0, 4, 1, 2, 1, 1, 4 };
static char *pdl_clusterdistancematrix_vtable_indnames[] = { "d","k","mcsize","n","nr" };
pdl_transvtable pdl_clusterdistancematrix_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_clusterdistancematrix_vtable_gentypes, 6, 7, NULL /*CORE21*/,
  pdl_clusterdistancematrix_vtable_realdims, pdl_clusterdistancematrix_vtable_parnames,
  pdl_clusterdistancematrix_vtable_parflags, pdl_clusterdistancematrix_vtable_partypes,
  pdl_clusterdistancematrix_vtable_realdims_starts, pdl_clusterdistancematrix_vtable_realdims_ind_ids, 11,
  5, pdl_clusterdistancematrix_vtable_indnames,
  NULL, pdl_clusterdistancematrix_readdata, NULL,
  pdl_clusterdistancematrix_free,
  sizeof(pdl_params_clusterdistancematrix),"PDL::Cluster::clusterdistancematrix"
};


pdl_error pdl_run_clusterdistancematrix(pdl  *data,pdl  *mask,pdl  *weight,pdl  *rowids,pdl  *clustersizes,pdl  *eltids,pdl  *dist,char  *distFlag,char  *methodFlag) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_clusterdistancematrix_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_clusterdistancematrix *__params = __privtrans->params;
  __privtrans->pdls[0] = data;
  __privtrans->pdls[1] = mask;
  __privtrans->pdls[2] = weight;
  __privtrans->pdls[3] = rowids;
  __privtrans->pdls[4] = clustersizes;
  __privtrans->pdls[5] = eltids;
  __privtrans->pdls[6] = dist;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->distFlag) = malloc(strlen(distFlag)+1); strcpy(__params->distFlag,distFlag); /* CType.get_copy */
  (__params->methodFlag) = malloc(strlen(methodFlag)+1); strcpy(__params->methodFlag,methodFlag); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_clusterdistancematrixenc {
#line 6793 "Cluster.xs"
  char  *distFlag;
  char  *methodFlag;
} pdl_params_clusterdistancematrixenc;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_clusterdistancematrixenc_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 6802 "Cluster.xs"
  pdl_params_clusterdistancematrixenc *__params = __privtrans->params; (void)__params;
  register PDL_Indx __k1_size = __privtrans->ind_sizes[1];
  register PDL_Indx __k2_size = __privtrans->ind_sizes[2];
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in clusterdistancematrixenc:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_clens1 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc0_crowids1 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
  register PDL_Indx __tinc0_clens2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,0);
  register PDL_Indx __tinc0_crowids2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,6,0);
  register PDL_Indx __tinc0_dist = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,7,0);
  register PDL_Indx __tinc1_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_clens1 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  register PDL_Indx __tinc1_crowids1 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
  register PDL_Indx __tinc1_clens2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,1);
  register PDL_Indx __tinc1_crowids2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,6,1);
  register PDL_Indx __tinc1_dist = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,7,1);
  #define PDL_BROADCASTLOOP_START_clusterdistancematrixenc_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    data_datap += __offsp[0]; \
    mask_datap += __offsp[1]; \
    weight_datap += __offsp[2]; \
    clens1_datap += __offsp[3]; \
    crowids1_datap += __offsp[4]; \
    clens2_datap += __offsp[5]; \
    crowids2_datap += __offsp[6]; \
    dist_datap += __offsp[7]; \
    , \
    (  ,data_datap += __tinc1_data - __tinc0_data * __tdims0 \
    ,mask_datap += __tinc1_mask - __tinc0_mask * __tdims0 \
    ,weight_datap += __tinc1_weight - __tinc0_weight * __tdims0 \
    ,clens1_datap += __tinc1_clens1 - __tinc0_clens1 * __tdims0 \
    ,crowids1_datap += __tinc1_crowids1 - __tinc0_crowids1 * __tdims0 \
    ,clens2_datap += __tinc1_clens2 - __tinc0_clens2 * __tdims0 \
    ,crowids2_datap += __tinc1_crowids2 - __tinc0_crowids2 * __tdims0 \
    ,dist_datap += __tinc1_dist - __tinc0_dist * __tdims0 \
    ), \
    (  ,data_datap += __tinc0_data \
    ,mask_datap += __tinc0_mask \
    ,weight_datap += __tinc0_weight \
    ,clens1_datap += __tinc0_clens1 \
    ,crowids1_datap += __tinc0_crowids1 \
    ,clens2_datap += __tinc0_clens2 \
    ,crowids2_datap += __tinc0_crowids2 \
    ,dist_datap += __tinc0_dist \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_clusterdistancematrixenc_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    data_datap -= __tinc1_data * __tdims1 + __offsp[0]; \
    mask_datap -= __tinc1_mask * __tdims1 + __offsp[1]; \
    weight_datap -= __tinc1_weight * __tdims1 + __offsp[2]; \
    clens1_datap -= __tinc1_clens1 * __tdims1 + __offsp[3]; \
    crowids1_datap -= __tinc1_crowids1 * __tdims1 + __offsp[4]; \
    clens2_datap -= __tinc1_clens2 * __tdims1 + __offsp[5]; \
    crowids2_datap -= __tinc1_crowids2 * __tdims1 + __offsp[6]; \
    dist_datap -= __tinc1_dist * __tdims1 + __offsp[7]; \
  )
  register PDL_Indx __inc_clens1_k1 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,0)]; (void)__inc_clens1_k1;
  register PDL_Indx __inc_clens2_k2 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,5,0)]; (void)__inc_clens2_k2;
  register PDL_Indx __inc_crowids1_nc1 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,4,0)]; (void)__inc_crowids1_nc1;
  register PDL_Indx __inc_crowids2_nc2 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,6,0)]; (void)__inc_crowids2_nc2;
  register PDL_Indx __inc_data_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_data_d;register PDL_Indx __inc_data_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_data_n;
  register PDL_Indx __inc_dist_k1 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,7,0)]; (void)__inc_dist_k1;register PDL_Indx __inc_dist_k2 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,7,1)]; (void)__inc_dist_k2;
  register PDL_Indx __inc_mask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_mask_d;register PDL_Indx __inc_mask_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_mask_n;
  register PDL_Indx __inc_weight_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_weight_d;
  #ifndef PDL_DECLARE_PARAMS_clusterdistancematrixenc_1
  #define PDL_DECLARE_PARAMS_clusterdistancematrixenc_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_data,PDL_PPSYM_PARAM_data,PDL_TYPE_PARAM_mask,PDL_PPSYM_PARAM_mask,PDL_TYPE_PARAM_weight,PDL_PPSYM_PARAM_weight,PDL_TYPE_PARAM_clens1,PDL_PPSYM_PARAM_clens1,PDL_TYPE_PARAM_crowids1,PDL_PPSYM_PARAM_crowids1,PDL_TYPE_PARAM_clens2,PDL_PPSYM_PARAM_clens2,PDL_TYPE_PARAM_crowids2,PDL_PPSYM_PARAM_crowids2,PDL_TYPE_PARAM_dist,PDL_PPSYM_PARAM_dist) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_data, data, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_data) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_mask, mask, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_mask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_weight, weight, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_weight) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_clens1, clens1, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_clens1) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_crowids1, crowids1, (__privtrans->pdls[4]), 1, PDL_PPSYM_PARAM_crowids1) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_clens2, clens2, (__privtrans->pdls[5]), 1, PDL_PPSYM_PARAM_clens2) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_crowids2, crowids2, (__privtrans->pdls[6]), 1, PDL_PPSYM_PARAM_crowids2) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_dist, dist, (__privtrans->pdls[7]), 1, PDL_PPSYM_PARAM_dist)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_clusterdistancematrixenc_1(PDL_SByte,A,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
          int    *crowids1p, *crowids2p;
            PDL_BROADCASTLOOP_START_clusterdistancematrixenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              crowids1p = crowids1_datap;
                  {/* Open k1 */ PDL_EXPAND2(register PDL_Indx k1=0, __k1_stop=(__k1_size)); for(; k1<__k1_stop; k1+=1) {
                  crowids2p = crowids2_datap;
                  {/* Open k2 */ PDL_EXPAND2(register PDL_Indx k2=0, __k2_stop=(__k2_size)); for(; k2<__k2_stop; k2+=1) {
                      (dist_datap)[0+(__inc_dist_k1*(k1))+(__inc_dist_k2*(k2))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                (clens1_datap)[0+(__inc_clens1_k1*(k1))], (clens2_datap)[0+(__inc_clens2_k2*(k2))],
                                                crowids1p, crowids2p,
                                                *__params->distFlag, *__params->methodFlag, transpose);
                      crowids2p += (clens2_datap)[0+(__inc_clens2_k2*(k2))];
                    }} /* Close k2 */
                  crowids1p += (clens1_datap)[0+(__inc_clens1_k1*(k1))];
                }} /* Close k1 */
            PDL_BROADCASTLOOP_END_clusterdistancematrixenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_clusterdistancematrixenc_1(PDL_Byte,B,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
          int    *crowids1p, *crowids2p;
            PDL_BROADCASTLOOP_START_clusterdistancematrixenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              crowids1p = crowids1_datap;
                  {/* Open k1 */ PDL_EXPAND2(register PDL_Indx k1=0, __k1_stop=(__k1_size)); for(; k1<__k1_stop; k1+=1) {
                  crowids2p = crowids2_datap;
                  {/* Open k2 */ PDL_EXPAND2(register PDL_Indx k2=0, __k2_stop=(__k2_size)); for(; k2<__k2_stop; k2+=1) {
                      (dist_datap)[0+(__inc_dist_k1*(k1))+(__inc_dist_k2*(k2))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                (clens1_datap)[0+(__inc_clens1_k1*(k1))], (clens2_datap)[0+(__inc_clens2_k2*(k2))],
                                                crowids1p, crowids2p,
                                                *__params->distFlag, *__params->methodFlag, transpose);
                      crowids2p += (clens2_datap)[0+(__inc_clens2_k2*(k2))];
                    }} /* Close k2 */
                  crowids1p += (clens1_datap)[0+(__inc_clens1_k1*(k1))];
                }} /* Close k1 */
            PDL_BROADCASTLOOP_END_clusterdistancematrixenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_clusterdistancematrixenc_1(PDL_Short,S,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
          int    *crowids1p, *crowids2p;
            PDL_BROADCASTLOOP_START_clusterdistancematrixenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              crowids1p = crowids1_datap;
                  {/* Open k1 */ PDL_EXPAND2(register PDL_Indx k1=0, __k1_stop=(__k1_size)); for(; k1<__k1_stop; k1+=1) {
                  crowids2p = crowids2_datap;
                  {/* Open k2 */ PDL_EXPAND2(register PDL_Indx k2=0, __k2_stop=(__k2_size)); for(; k2<__k2_stop; k2+=1) {
                      (dist_datap)[0+(__inc_dist_k1*(k1))+(__inc_dist_k2*(k2))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                (clens1_datap)[0+(__inc_clens1_k1*(k1))], (clens2_datap)[0+(__inc_clens2_k2*(k2))],
                                                crowids1p, crowids2p,
                                                *__params->distFlag, *__params->methodFlag, transpose);
                      crowids2p += (clens2_datap)[0+(__inc_clens2_k2*(k2))];
                    }} /* Close k2 */
                  crowids1p += (clens1_datap)[0+(__inc_clens1_k1*(k1))];
                }} /* Close k1 */
            PDL_BROADCASTLOOP_END_clusterdistancematrixenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_clusterdistancematrixenc_1(PDL_Ushort,U,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
          int    *crowids1p, *crowids2p;
            PDL_BROADCASTLOOP_START_clusterdistancematrixenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              crowids1p = crowids1_datap;
                  {/* Open k1 */ PDL_EXPAND2(register PDL_Indx k1=0, __k1_stop=(__k1_size)); for(; k1<__k1_stop; k1+=1) {
                  crowids2p = crowids2_datap;
                  {/* Open k2 */ PDL_EXPAND2(register PDL_Indx k2=0, __k2_stop=(__k2_size)); for(; k2<__k2_stop; k2+=1) {
                      (dist_datap)[0+(__inc_dist_k1*(k1))+(__inc_dist_k2*(k2))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                (clens1_datap)[0+(__inc_clens1_k1*(k1))], (clens2_datap)[0+(__inc_clens2_k2*(k2))],
                                                crowids1p, crowids2p,
                                                *__params->distFlag, *__params->methodFlag, transpose);
                      crowids2p += (clens2_datap)[0+(__inc_clens2_k2*(k2))];
                    }} /* Close k2 */
                  crowids1p += (clens1_datap)[0+(__inc_clens1_k1*(k1))];
                }} /* Close k1 */
            PDL_BROADCASTLOOP_END_clusterdistancematrixenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_clusterdistancematrixenc_1(PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
          int    *crowids1p, *crowids2p;
            PDL_BROADCASTLOOP_START_clusterdistancematrixenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              crowids1p = crowids1_datap;
                  {/* Open k1 */ PDL_EXPAND2(register PDL_Indx k1=0, __k1_stop=(__k1_size)); for(; k1<__k1_stop; k1+=1) {
                  crowids2p = crowids2_datap;
                  {/* Open k2 */ PDL_EXPAND2(register PDL_Indx k2=0, __k2_stop=(__k2_size)); for(; k2<__k2_stop; k2+=1) {
                      (dist_datap)[0+(__inc_dist_k1*(k1))+(__inc_dist_k2*(k2))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                (clens1_datap)[0+(__inc_clens1_k1*(k1))], (clens2_datap)[0+(__inc_clens2_k2*(k2))],
                                                crowids1p, crowids2p,
                                                *__params->distFlag, *__params->methodFlag, transpose);
                      crowids2p += (clens2_datap)[0+(__inc_clens2_k2*(k2))];
                    }} /* Close k2 */
                  crowids1p += (clens1_datap)[0+(__inc_clens1_k1*(k1))];
                }} /* Close k1 */
            PDL_BROADCASTLOOP_END_clusterdistancematrixenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_clusterdistancematrixenc_1(PDL_ULong,K,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
          int    *crowids1p, *crowids2p;
            PDL_BROADCASTLOOP_START_clusterdistancematrixenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              crowids1p = crowids1_datap;
                  {/* Open k1 */ PDL_EXPAND2(register PDL_Indx k1=0, __k1_stop=(__k1_size)); for(; k1<__k1_stop; k1+=1) {
                  crowids2p = crowids2_datap;
                  {/* Open k2 */ PDL_EXPAND2(register PDL_Indx k2=0, __k2_stop=(__k2_size)); for(; k2<__k2_stop; k2+=1) {
                      (dist_datap)[0+(__inc_dist_k1*(k1))+(__inc_dist_k2*(k2))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                (clens1_datap)[0+(__inc_clens1_k1*(k1))], (clens2_datap)[0+(__inc_clens2_k2*(k2))],
                                                crowids1p, crowids2p,
                                                *__params->distFlag, *__params->methodFlag, transpose);
                      crowids2p += (clens2_datap)[0+(__inc_clens2_k2*(k2))];
                    }} /* Close k2 */
                  crowids1p += (clens1_datap)[0+(__inc_clens1_k1*(k1))];
                }} /* Close k1 */
            PDL_BROADCASTLOOP_END_clusterdistancematrixenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_clusterdistancematrixenc_1(PDL_Indx,N,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
          int    *crowids1p, *crowids2p;
            PDL_BROADCASTLOOP_START_clusterdistancematrixenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              crowids1p = crowids1_datap;
                  {/* Open k1 */ PDL_EXPAND2(register PDL_Indx k1=0, __k1_stop=(__k1_size)); for(; k1<__k1_stop; k1+=1) {
                  crowids2p = crowids2_datap;
                  {/* Open k2 */ PDL_EXPAND2(register PDL_Indx k2=0, __k2_stop=(__k2_size)); for(; k2<__k2_stop; k2+=1) {
                      (dist_datap)[0+(__inc_dist_k1*(k1))+(__inc_dist_k2*(k2))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                (clens1_datap)[0+(__inc_clens1_k1*(k1))], (clens2_datap)[0+(__inc_clens2_k2*(k2))],
                                                crowids1p, crowids2p,
                                                *__params->distFlag, *__params->methodFlag, transpose);
                      crowids2p += (clens2_datap)[0+(__inc_clens2_k2*(k2))];
                    }} /* Close k2 */
                  crowids1p += (clens1_datap)[0+(__inc_clens1_k1*(k1))];
                }} /* Close k1 */
            PDL_BROADCASTLOOP_END_clusterdistancematrixenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_clusterdistancematrixenc_1(PDL_ULongLong,P,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
          int    *crowids1p, *crowids2p;
            PDL_BROADCASTLOOP_START_clusterdistancematrixenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              crowids1p = crowids1_datap;
                  {/* Open k1 */ PDL_EXPAND2(register PDL_Indx k1=0, __k1_stop=(__k1_size)); for(; k1<__k1_stop; k1+=1) {
                  crowids2p = crowids2_datap;
                  {/* Open k2 */ PDL_EXPAND2(register PDL_Indx k2=0, __k2_stop=(__k2_size)); for(; k2<__k2_stop; k2+=1) {
                      (dist_datap)[0+(__inc_dist_k1*(k1))+(__inc_dist_k2*(k2))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                (clens1_datap)[0+(__inc_clens1_k1*(k1))], (clens2_datap)[0+(__inc_clens2_k2*(k2))],
                                                crowids1p, crowids2p,
                                                *__params->distFlag, *__params->methodFlag, transpose);
                      crowids2p += (clens2_datap)[0+(__inc_clens2_k2*(k2))];
                    }} /* Close k2 */
                  crowids1p += (clens1_datap)[0+(__inc_clens1_k1*(k1))];
                }} /* Close k1 */
            PDL_BROADCASTLOOP_END_clusterdistancematrixenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_clusterdistancematrixenc_1(PDL_LongLong,Q,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
          int    *crowids1p, *crowids2p;
            PDL_BROADCASTLOOP_START_clusterdistancematrixenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              crowids1p = crowids1_datap;
                  {/* Open k1 */ PDL_EXPAND2(register PDL_Indx k1=0, __k1_stop=(__k1_size)); for(; k1<__k1_stop; k1+=1) {
                  crowids2p = crowids2_datap;
                  {/* Open k2 */ PDL_EXPAND2(register PDL_Indx k2=0, __k2_stop=(__k2_size)); for(; k2<__k2_stop; k2+=1) {
                      (dist_datap)[0+(__inc_dist_k1*(k1))+(__inc_dist_k2*(k2))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                (clens1_datap)[0+(__inc_clens1_k1*(k1))], (clens2_datap)[0+(__inc_clens2_k2*(k2))],
                                                crowids1p, crowids2p,
                                                *__params->distFlag, *__params->methodFlag, transpose);
                      crowids2p += (clens2_datap)[0+(__inc_clens2_k2*(k2))];
                    }} /* Close k2 */
                  crowids1p += (clens1_datap)[0+(__inc_clens1_k1*(k1))];
                }} /* Close k1 */
            PDL_BROADCASTLOOP_END_clusterdistancematrixenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_clusterdistancematrixenc_1(PDL_Float,F,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
          int    *crowids1p, *crowids2p;
            PDL_BROADCASTLOOP_START_clusterdistancematrixenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              crowids1p = crowids1_datap;
                  {/* Open k1 */ PDL_EXPAND2(register PDL_Indx k1=0, __k1_stop=(__k1_size)); for(; k1<__k1_stop; k1+=1) {
                  crowids2p = crowids2_datap;
                  {/* Open k2 */ PDL_EXPAND2(register PDL_Indx k2=0, __k2_stop=(__k2_size)); for(; k2<__k2_stop; k2+=1) {
                      (dist_datap)[0+(__inc_dist_k1*(k1))+(__inc_dist_k2*(k2))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                (clens1_datap)[0+(__inc_clens1_k1*(k1))], (clens2_datap)[0+(__inc_clens2_k2*(k2))],
                                                crowids1p, crowids2p,
                                                *__params->distFlag, *__params->methodFlag, transpose);
                      crowids2p += (clens2_datap)[0+(__inc_clens2_k2*(k2))];
                    }} /* Close k2 */
                  crowids1p += (clens1_datap)[0+(__inc_clens1_k1*(k1))];
                }} /* Close k1 */
            PDL_BROADCASTLOOP_END_clusterdistancematrixenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_clusterdistancematrixenc_1(PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
          int    *crowids1p, *crowids2p;
            PDL_BROADCASTLOOP_START_clusterdistancematrixenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              crowids1p = crowids1_datap;
                  {/* Open k1 */ PDL_EXPAND2(register PDL_Indx k1=0, __k1_stop=(__k1_size)); for(; k1<__k1_stop; k1+=1) {
                  crowids2p = crowids2_datap;
                  {/* Open k2 */ PDL_EXPAND2(register PDL_Indx k2=0, __k2_stop=(__k2_size)); for(; k2<__k2_stop; k2+=1) {
                      (dist_datap)[0+(__inc_dist_k1*(k1))+(__inc_dist_k2*(k2))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                (clens1_datap)[0+(__inc_clens1_k1*(k1))], (clens2_datap)[0+(__inc_clens2_k2*(k2))],
                                                crowids1p, crowids2p,
                                                *__params->distFlag, *__params->methodFlag, transpose);
                      crowids2p += (clens2_datap)[0+(__inc_clens2_k2*(k2))];
                    }} /* Close k2 */
                  crowids1p += (clens1_datap)[0+(__inc_clens1_k1*(k1))];
                }} /* Close k1 */
            PDL_BROADCASTLOOP_END_clusterdistancematrixenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_clusterdistancematrixenc_1(PDL_LDouble,E,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
          int    *crowids1p, *crowids2p;
            PDL_BROADCASTLOOP_START_clusterdistancematrixenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
              crowids1p = crowids1_datap;
                  {/* Open k1 */ PDL_EXPAND2(register PDL_Indx k1=0, __k1_stop=(__k1_size)); for(; k1<__k1_stop; k1+=1) {
                  crowids2p = crowids2_datap;
                  {/* Open k2 */ PDL_EXPAND2(register PDL_Indx k2=0, __k2_stop=(__k2_size)); for(; k2<__k2_stop; k2+=1) {
                      (dist_datap)[0+(__inc_dist_k1*(k1))+(__inc_dist_k2*(k2))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                                (clens1_datap)[0+(__inc_clens1_k1*(k1))], (clens2_datap)[0+(__inc_clens2_k2*(k2))],
                                                crowids1p, crowids2p,
                                                *__params->distFlag, *__params->methodFlag, transpose);
                      crowids2p += (clens2_datap)[0+(__inc_clens2_k2*(k2))];
                    }} /* Close k2 */
                  crowids1p += (clens1_datap)[0+(__inc_clens1_k1*(k1))];
                }} /* Close k1 */
            PDL_BROADCASTLOOP_END_clusterdistancematrixenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in clusterdistancematrixenc: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_clusterdistancematrixenc_free(pdl_trans *__privtrans, char destroy) {
  pdl_error PDL_err = {0, NULL, 0};
#line 7238 "Cluster.xs"
  pdl_params_clusterdistancematrixenc *__params = __privtrans->params; (void)__params;
  PDL_FREE_CODE(__privtrans, destroy, free(__params->distFlag); /* CType.get_free */
  free(__params->methodFlag); /* CType.get_free */
  , )  return PDL_err;
}

static pdl_datatypes pdl_clusterdistancematrixenc_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_clusterdistancematrixenc_vtable_realdims[] = { 2, 2, 1, 1, 1, 1, 1, 2 };
static char *pdl_clusterdistancematrixenc_vtable_parnames[] = { "data","mask","weight","clens1","crowids1","clens2","crowids2","dist" };
static short pdl_clusterdistancematrixenc_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_clusterdistancematrixenc_vtable_partypes[] = { PDL_D, PDL_L, PDL_D, PDL_L, PDL_L, PDL_L, PDL_L, PDL_D };
static PDL_Indx pdl_clusterdistancematrixenc_vtable_realdims_starts[] = { 0, 2, 4, 5, 6, 7, 8, 9 };
static PDL_Indx pdl_clusterdistancematrixenc_vtable_realdims_ind_ids[] = { 0, 3, 0, 3, 0, 1, 4, 2, 5, 1, 2 };
static char *pdl_clusterdistancematrixenc_vtable_indnames[] = { "d","k1","k2","n","nc1","nc2" };
pdl_transvtable pdl_clusterdistancematrixenc_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_clusterdistancematrixenc_vtable_gentypes, 7, 8, NULL /*CORE21*/,
  pdl_clusterdistancematrixenc_vtable_realdims, pdl_clusterdistancematrixenc_vtable_parnames,
  pdl_clusterdistancematrixenc_vtable_parflags, pdl_clusterdistancematrixenc_vtable_partypes,
  pdl_clusterdistancematrixenc_vtable_realdims_starts, pdl_clusterdistancematrixenc_vtable_realdims_ind_ids, 11,
  6, pdl_clusterdistancematrixenc_vtable_indnames,
  NULL, pdl_clusterdistancematrixenc_readdata, NULL,
  pdl_clusterdistancematrixenc_free,
  sizeof(pdl_params_clusterdistancematrixenc),"PDL::Cluster::clusterdistancematrixenc"
};


pdl_error pdl_run_clusterdistancematrixenc(pdl  *data,pdl  *mask,pdl  *weight,pdl  *clens1,pdl  *crowids1,pdl  *clens2,pdl  *crowids2,pdl  *dist,char  *distFlag,char  *methodFlag) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_clusterdistancematrixenc_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_clusterdistancematrixenc *__params = __privtrans->params;
  __privtrans->pdls[0] = data;
  __privtrans->pdls[1] = mask;
  __privtrans->pdls[2] = weight;
  __privtrans->pdls[3] = clens1;
  __privtrans->pdls[4] = crowids1;
  __privtrans->pdls[5] = clens2;
  __privtrans->pdls[6] = crowids2;
  __privtrans->pdls[7] = dist;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->distFlag) = malloc(strlen(distFlag)+1); strcpy(__params->distFlag,distFlag); /* CType.get_copy */
  (__params->methodFlag) = malloc(strlen(methodFlag)+1); strcpy(__params->methodFlag,methodFlag); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_clusterdistancesenc {
#line 7297 "Cluster.xs"
  char  *distFlag;
  char  *methodFlag;
} pdl_params_clusterdistancesenc;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_clusterdistancesenc_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 7306 "Cluster.xs"
  pdl_params_clusterdistancesenc *__params = __privtrans->params; (void)__params;
  register PDL_Indx __ncmps_size = __privtrans->ind_sizes[6];
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in clusterdistancesenc:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_coffsets1 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc0_crowids1 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
  register PDL_Indx __tinc0_cwhich1 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,0);
  register PDL_Indx __tinc0_coffsets2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,6,0);
  register PDL_Indx __tinc0_crowids2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,7,0);
  register PDL_Indx __tinc0_cwhich2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,8,0);
  register PDL_Indx __tinc0_dists = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,9,0);
  register PDL_Indx __tinc1_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_coffsets1 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  register PDL_Indx __tinc1_crowids1 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
  register PDL_Indx __tinc1_cwhich1 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,1);
  register PDL_Indx __tinc1_coffsets2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,6,1);
  register PDL_Indx __tinc1_crowids2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,7,1);
  register PDL_Indx __tinc1_cwhich2 = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,8,1);
  register PDL_Indx __tinc1_dists = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,9,1);
  #define PDL_BROADCASTLOOP_START_clusterdistancesenc_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    data_datap += __offsp[0]; \
    mask_datap += __offsp[1]; \
    weight_datap += __offsp[2]; \
    coffsets1_datap += __offsp[3]; \
    crowids1_datap += __offsp[4]; \
    cwhich1_datap += __offsp[5]; \
    coffsets2_datap += __offsp[6]; \
    crowids2_datap += __offsp[7]; \
    cwhich2_datap += __offsp[8]; \
    dists_datap += __offsp[9]; \
    , \
    (  ,data_datap += __tinc1_data - __tinc0_data * __tdims0 \
    ,mask_datap += __tinc1_mask - __tinc0_mask * __tdims0 \
    ,weight_datap += __tinc1_weight - __tinc0_weight * __tdims0 \
    ,coffsets1_datap += __tinc1_coffsets1 - __tinc0_coffsets1 * __tdims0 \
    ,crowids1_datap += __tinc1_crowids1 - __tinc0_crowids1 * __tdims0 \
    ,cwhich1_datap += __tinc1_cwhich1 - __tinc0_cwhich1 * __tdims0 \
    ,coffsets2_datap += __tinc1_coffsets2 - __tinc0_coffsets2 * __tdims0 \
    ,crowids2_datap += __tinc1_crowids2 - __tinc0_crowids2 * __tdims0 \
    ,cwhich2_datap += __tinc1_cwhich2 - __tinc0_cwhich2 * __tdims0 \
    ,dists_datap += __tinc1_dists - __tinc0_dists * __tdims0 \
    ), \
    (  ,data_datap += __tinc0_data \
    ,mask_datap += __tinc0_mask \
    ,weight_datap += __tinc0_weight \
    ,coffsets1_datap += __tinc0_coffsets1 \
    ,crowids1_datap += __tinc0_crowids1 \
    ,cwhich1_datap += __tinc0_cwhich1 \
    ,coffsets2_datap += __tinc0_coffsets2 \
    ,crowids2_datap += __tinc0_crowids2 \
    ,cwhich2_datap += __tinc0_cwhich2 \
    ,dists_datap += __tinc0_dists \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_clusterdistancesenc_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    data_datap -= __tinc1_data * __tdims1 + __offsp[0]; \
    mask_datap -= __tinc1_mask * __tdims1 + __offsp[1]; \
    weight_datap -= __tinc1_weight * __tdims1 + __offsp[2]; \
    coffsets1_datap -= __tinc1_coffsets1 * __tdims1 + __offsp[3]; \
    crowids1_datap -= __tinc1_crowids1 * __tdims1 + __offsp[4]; \
    cwhich1_datap -= __tinc1_cwhich1 * __tdims1 + __offsp[5]; \
    coffsets2_datap -= __tinc1_coffsets2 * __tdims1 + __offsp[6]; \
    crowids2_datap -= __tinc1_crowids2 * __tdims1 + __offsp[7]; \
    cwhich2_datap -= __tinc1_cwhich2 * __tdims1 + __offsp[8]; \
    dists_datap -= __tinc1_dists * __tdims1 + __offsp[9]; \
  )
  register PDL_Indx __inc_coffsets1_k1 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,0)]; (void)__inc_coffsets1_k1;
  register PDL_Indx __inc_coffsets2_k2 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,6,0)]; (void)__inc_coffsets2_k2;
  register PDL_Indx __inc_crowids1_nc1 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,4,0)]; (void)__inc_crowids1_nc1;
  register PDL_Indx __inc_crowids2_nc2 = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,7,0)]; (void)__inc_crowids2_nc2;
  register PDL_Indx __inc_cwhich1_ncmps = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,5,0)]; (void)__inc_cwhich1_ncmps;
  register PDL_Indx __inc_cwhich2_ncmps = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,8,0)]; (void)__inc_cwhich2_ncmps;
  register PDL_Indx __inc_data_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_data_d;register PDL_Indx __inc_data_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_data_n;
  register PDL_Indx __inc_dists_ncmps = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,9,0)]; (void)__inc_dists_ncmps;
  register PDL_Indx __inc_mask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_mask_d;register PDL_Indx __inc_mask_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_mask_n;
  register PDL_Indx __inc_weight_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_weight_d;
  #ifndef PDL_DECLARE_PARAMS_clusterdistancesenc_1
  #define PDL_DECLARE_PARAMS_clusterdistancesenc_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_data,PDL_PPSYM_PARAM_data,PDL_TYPE_PARAM_mask,PDL_PPSYM_PARAM_mask,PDL_TYPE_PARAM_weight,PDL_PPSYM_PARAM_weight,PDL_TYPE_PARAM_coffsets1,PDL_PPSYM_PARAM_coffsets1,PDL_TYPE_PARAM_crowids1,PDL_PPSYM_PARAM_crowids1,PDL_TYPE_PARAM_cwhich1,PDL_PPSYM_PARAM_cwhich1,PDL_TYPE_PARAM_coffsets2,PDL_PPSYM_PARAM_coffsets2,PDL_TYPE_PARAM_crowids2,PDL_PPSYM_PARAM_crowids2,PDL_TYPE_PARAM_cwhich2,PDL_PPSYM_PARAM_cwhich2,PDL_TYPE_PARAM_dists,PDL_PPSYM_PARAM_dists) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_data, data, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_data) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_mask, mask, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_mask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_weight, weight, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_weight) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_coffsets1, coffsets1, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_coffsets1) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_crowids1, crowids1, (__privtrans->pdls[4]), 1, PDL_PPSYM_PARAM_crowids1) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_cwhich1, cwhich1, (__privtrans->pdls[5]), 1, PDL_PPSYM_PARAM_cwhich1) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_coffsets2, coffsets2, (__privtrans->pdls[6]), 1, PDL_PPSYM_PARAM_coffsets2) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_crowids2, crowids2, (__privtrans->pdls[7]), 1, PDL_PPSYM_PARAM_crowids2) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_cwhich2, cwhich2, (__privtrans->pdls[8]), 1, PDL_PPSYM_PARAM_cwhich2) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_dists, dists, (__privtrans->pdls[9]), 1, PDL_PPSYM_PARAM_dists)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_clusterdistancesenc_1(PDL_SByte,A,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistancesenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  int c1 = (cwhich1_datap)[0+(__inc_cwhich1_ncmps*(ncmps))];
                  int c2 = (cwhich2_datap)[0+(__inc_cwhich2_ncmps*(ncmps))];
                  int succ_c1=c1+1;
                  int succ_c2=c2+1;
                  int beg1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(c1))];
                  int beg2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(c2))];
                  int len1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(succ_c1))] - beg1;
                  int len2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(succ_c2))] - beg2;
                  int *crowids1p = crowids1_datap + beg1;
                  int *crowids2p = crowids2_datap + beg2;

                  (dists_datap)[0+(__inc_dists_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                             len1,      len2,
                                             crowids1p, crowids2p,
                                             *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_clusterdistancesenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_clusterdistancesenc_1(PDL_Byte,B,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistancesenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  int c1 = (cwhich1_datap)[0+(__inc_cwhich1_ncmps*(ncmps))];
                  int c2 = (cwhich2_datap)[0+(__inc_cwhich2_ncmps*(ncmps))];
                  int succ_c1=c1+1;
                  int succ_c2=c2+1;
                  int beg1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(c1))];
                  int beg2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(c2))];
                  int len1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(succ_c1))] - beg1;
                  int len2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(succ_c2))] - beg2;
                  int *crowids1p = crowids1_datap + beg1;
                  int *crowids2p = crowids2_datap + beg2;

                  (dists_datap)[0+(__inc_dists_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                             len1,      len2,
                                             crowids1p, crowids2p,
                                             *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_clusterdistancesenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_clusterdistancesenc_1(PDL_Short,S,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistancesenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  int c1 = (cwhich1_datap)[0+(__inc_cwhich1_ncmps*(ncmps))];
                  int c2 = (cwhich2_datap)[0+(__inc_cwhich2_ncmps*(ncmps))];
                  int succ_c1=c1+1;
                  int succ_c2=c2+1;
                  int beg1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(c1))];
                  int beg2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(c2))];
                  int len1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(succ_c1))] - beg1;
                  int len2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(succ_c2))] - beg2;
                  int *crowids1p = crowids1_datap + beg1;
                  int *crowids2p = crowids2_datap + beg2;

                  (dists_datap)[0+(__inc_dists_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                             len1,      len2,
                                             crowids1p, crowids2p,
                                             *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_clusterdistancesenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_clusterdistancesenc_1(PDL_Ushort,U,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistancesenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  int c1 = (cwhich1_datap)[0+(__inc_cwhich1_ncmps*(ncmps))];
                  int c2 = (cwhich2_datap)[0+(__inc_cwhich2_ncmps*(ncmps))];
                  int succ_c1=c1+1;
                  int succ_c2=c2+1;
                  int beg1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(c1))];
                  int beg2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(c2))];
                  int len1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(succ_c1))] - beg1;
                  int len2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(succ_c2))] - beg2;
                  int *crowids1p = crowids1_datap + beg1;
                  int *crowids2p = crowids2_datap + beg2;

                  (dists_datap)[0+(__inc_dists_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                             len1,      len2,
                                             crowids1p, crowids2p,
                                             *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_clusterdistancesenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_clusterdistancesenc_1(PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistancesenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  int c1 = (cwhich1_datap)[0+(__inc_cwhich1_ncmps*(ncmps))];
                  int c2 = (cwhich2_datap)[0+(__inc_cwhich2_ncmps*(ncmps))];
                  int succ_c1=c1+1;
                  int succ_c2=c2+1;
                  int beg1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(c1))];
                  int beg2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(c2))];
                  int len1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(succ_c1))] - beg1;
                  int len2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(succ_c2))] - beg2;
                  int *crowids1p = crowids1_datap + beg1;
                  int *crowids2p = crowids2_datap + beg2;

                  (dists_datap)[0+(__inc_dists_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                             len1,      len2,
                                             crowids1p, crowids2p,
                                             *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_clusterdistancesenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_clusterdistancesenc_1(PDL_ULong,K,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistancesenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  int c1 = (cwhich1_datap)[0+(__inc_cwhich1_ncmps*(ncmps))];
                  int c2 = (cwhich2_datap)[0+(__inc_cwhich2_ncmps*(ncmps))];
                  int succ_c1=c1+1;
                  int succ_c2=c2+1;
                  int beg1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(c1))];
                  int beg2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(c2))];
                  int len1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(succ_c1))] - beg1;
                  int len2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(succ_c2))] - beg2;
                  int *crowids1p = crowids1_datap + beg1;
                  int *crowids2p = crowids2_datap + beg2;

                  (dists_datap)[0+(__inc_dists_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                             len1,      len2,
                                             crowids1p, crowids2p,
                                             *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_clusterdistancesenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_clusterdistancesenc_1(PDL_Indx,N,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistancesenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  int c1 = (cwhich1_datap)[0+(__inc_cwhich1_ncmps*(ncmps))];
                  int c2 = (cwhich2_datap)[0+(__inc_cwhich2_ncmps*(ncmps))];
                  int succ_c1=c1+1;
                  int succ_c2=c2+1;
                  int beg1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(c1))];
                  int beg2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(c2))];
                  int len1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(succ_c1))] - beg1;
                  int len2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(succ_c2))] - beg2;
                  int *crowids1p = crowids1_datap + beg1;
                  int *crowids2p = crowids2_datap + beg2;

                  (dists_datap)[0+(__inc_dists_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                             len1,      len2,
                                             crowids1p, crowids2p,
                                             *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_clusterdistancesenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_clusterdistancesenc_1(PDL_ULongLong,P,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistancesenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  int c1 = (cwhich1_datap)[0+(__inc_cwhich1_ncmps*(ncmps))];
                  int c2 = (cwhich2_datap)[0+(__inc_cwhich2_ncmps*(ncmps))];
                  int succ_c1=c1+1;
                  int succ_c2=c2+1;
                  int beg1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(c1))];
                  int beg2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(c2))];
                  int len1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(succ_c1))] - beg1;
                  int len2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(succ_c2))] - beg2;
                  int *crowids1p = crowids1_datap + beg1;
                  int *crowids2p = crowids2_datap + beg2;

                  (dists_datap)[0+(__inc_dists_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                             len1,      len2,
                                             crowids1p, crowids2p,
                                             *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_clusterdistancesenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_clusterdistancesenc_1(PDL_LongLong,Q,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistancesenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  int c1 = (cwhich1_datap)[0+(__inc_cwhich1_ncmps*(ncmps))];
                  int c2 = (cwhich2_datap)[0+(__inc_cwhich2_ncmps*(ncmps))];
                  int succ_c1=c1+1;
                  int succ_c2=c2+1;
                  int beg1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(c1))];
                  int beg2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(c2))];
                  int len1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(succ_c1))] - beg1;
                  int len2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(succ_c2))] - beg2;
                  int *crowids1p = crowids1_datap + beg1;
                  int *crowids2p = crowids2_datap + beg2;

                  (dists_datap)[0+(__inc_dists_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                             len1,      len2,
                                             crowids1p, crowids2p,
                                             *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_clusterdistancesenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_clusterdistancesenc_1(PDL_Float,F,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistancesenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  int c1 = (cwhich1_datap)[0+(__inc_cwhich1_ncmps*(ncmps))];
                  int c2 = (cwhich2_datap)[0+(__inc_cwhich2_ncmps*(ncmps))];
                  int succ_c1=c1+1;
                  int succ_c2=c2+1;
                  int beg1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(c1))];
                  int beg2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(c2))];
                  int len1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(succ_c1))] - beg1;
                  int len2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(succ_c2))] - beg2;
                  int *crowids1p = crowids1_datap + beg1;
                  int *crowids2p = crowids2_datap + beg2;

                  (dists_datap)[0+(__inc_dists_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                             len1,      len2,
                                             crowids1p, crowids2p,
                                             *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_clusterdistancesenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_clusterdistancesenc_1(PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistancesenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  int c1 = (cwhich1_datap)[0+(__inc_cwhich1_ncmps*(ncmps))];
                  int c2 = (cwhich2_datap)[0+(__inc_cwhich2_ncmps*(ncmps))];
                  int succ_c1=c1+1;
                  int succ_c2=c2+1;
                  int beg1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(c1))];
                  int beg2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(c2))];
                  int len1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(succ_c1))] - beg1;
                  int len2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(succ_c2))] - beg2;
                  int *crowids1p = crowids1_datap + beg1;
                  int *crowids2p = crowids2_datap + beg2;

                  (dists_datap)[0+(__inc_dists_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                             len1,      len2,
                                             crowids1p, crowids2p,
                                             *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_clusterdistancesenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_clusterdistancesenc_1(PDL_LDouble,E,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp   = (double **)pp_alloc(__privtrans->ind_sizes[3]);
          int    **maskpp   = (int    **)pp_alloc(__privtrans->ind_sizes[3]);
          int    transpose=0;
            PDL_BROADCASTLOOP_START_clusterdistancesenc_readdata
              p2pp_dbl(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[3],   __privtrans->ind_sizes[0],   mask_datap, maskpp);
                  {/* Open ncmps */ PDL_EXPAND2(register PDL_Indx ncmps=0, __ncmps_stop=(__ncmps_size)); for(; ncmps<__ncmps_stop; ncmps+=1) {
                  int c1 = (cwhich1_datap)[0+(__inc_cwhich1_ncmps*(ncmps))];
                  int c2 = (cwhich2_datap)[0+(__inc_cwhich2_ncmps*(ncmps))];
                  int succ_c1=c1+1;
                  int succ_c2=c2+1;
                  int beg1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(c1))];
                  int beg2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(c2))];
                  int len1 = (coffsets1_datap)[0+(__inc_coffsets1_k1*(succ_c1))] - beg1;
                  int len2 = (coffsets2_datap)[0+(__inc_coffsets2_k2*(succ_c2))] - beg2;
                  int *crowids1p = crowids1_datap + beg1;
                  int *crowids2p = crowids2_datap + beg2;

                  (dists_datap)[0+(__inc_dists_ncmps*(ncmps))] = clusterdistance(__privtrans->ind_sizes[3], __privtrans->ind_sizes[0], datapp, maskpp, weight_datap,
                                             len1,      len2,
                                             crowids1p, crowids2p,
                                             *__params->distFlag, *__params->methodFlag, transpose);
                }} /* Close ncmps */
            PDL_BROADCASTLOOP_END_clusterdistancesenc_readdata
          /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in clusterdistancesenc: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_clusterdistancesenc_free(pdl_trans *__privtrans, char destroy) {
  pdl_error PDL_err = {0, NULL, 0};
#line 7805 "Cluster.xs"
  pdl_params_clusterdistancesenc *__params = __privtrans->params; (void)__params;
  PDL_FREE_CODE(__privtrans, destroy, free(__params->distFlag); /* CType.get_free */
  free(__params->methodFlag); /* CType.get_free */
  , )  return PDL_err;
}

static pdl_datatypes pdl_clusterdistancesenc_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_clusterdistancesenc_vtable_realdims[] = { 2, 2, 1, 1, 1, 1, 1, 1, 1, 1 };
static char *pdl_clusterdistancesenc_vtable_parnames[] = { "data","mask","weight","coffsets1","crowids1","cwhich1","coffsets2","crowids2","cwhich2","dists" };
static short pdl_clusterdistancesenc_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_clusterdistancesenc_vtable_partypes[] = { PDL_D, PDL_L, PDL_D, PDL_L, PDL_L, PDL_L, PDL_L, PDL_L, PDL_L, PDL_D };
static PDL_Indx pdl_clusterdistancesenc_vtable_realdims_starts[] = { 0, 2, 4, 5, 6, 7, 8, 9, 10, 11 };
static PDL_Indx pdl_clusterdistancesenc_vtable_realdims_ind_ids[] = { 0, 3, 0, 3, 0, 1, 4, 6, 2, 5, 6, 6 };
static char *pdl_clusterdistancesenc_vtable_indnames[] = { "d","k1","k2","n","nc1","nc2","ncmps" };
pdl_transvtable pdl_clusterdistancesenc_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_clusterdistancesenc_vtable_gentypes, 9, 10, NULL /*CORE21*/,
  pdl_clusterdistancesenc_vtable_realdims, pdl_clusterdistancesenc_vtable_parnames,
  pdl_clusterdistancesenc_vtable_parflags, pdl_clusterdistancesenc_vtable_partypes,
  pdl_clusterdistancesenc_vtable_realdims_starts, pdl_clusterdistancesenc_vtable_realdims_ind_ids, 12,
  7, pdl_clusterdistancesenc_vtable_indnames,
  NULL, pdl_clusterdistancesenc_readdata, NULL,
  pdl_clusterdistancesenc_free,
  sizeof(pdl_params_clusterdistancesenc),"PDL::Cluster::clusterdistancesenc"
};


pdl_error pdl_run_clusterdistancesenc(pdl  *data,pdl  *mask,pdl  *weight,pdl  *coffsets1,pdl  *crowids1,pdl  *cwhich1,pdl  *coffsets2,pdl  *crowids2,pdl  *cwhich2,pdl  *dists,char  *distFlag,char  *methodFlag) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_clusterdistancesenc_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_clusterdistancesenc *__params = __privtrans->params;
  __privtrans->pdls[0] = data;
  __privtrans->pdls[1] = mask;
  __privtrans->pdls[2] = weight;
  __privtrans->pdls[3] = coffsets1;
  __privtrans->pdls[4] = crowids1;
  __privtrans->pdls[5] = cwhich1;
  __privtrans->pdls[6] = coffsets2;
  __privtrans->pdls[7] = crowids2;
  __privtrans->pdls[8] = cwhich2;
  __privtrans->pdls[9] = dists;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->distFlag) = malloc(strlen(distFlag)+1); strcpy(__params->distFlag,distFlag); /* CType.get_copy */
  (__params->methodFlag) = malloc(strlen(methodFlag)+1); strcpy(__params->methodFlag,methodFlag); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_getclusterwsum_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 7869 "Cluster.xs"
  register PDL_Indx __d_size = __privtrans->ind_sizes[0];
  register PDL_Indx __k_size = __privtrans->ind_sizes[1];
  register PDL_Indx __n_size = __privtrans->ind_sizes[2];
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in getclusterwsum:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_clusterwts = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_cdata = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc0_cmask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
  register PDL_Indx __tinc1_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_clusterwts = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_cdata = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  register PDL_Indx __tinc1_cmask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
  #define PDL_BROADCASTLOOP_START_getclusterwsum_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    data_datap += __offsp[0]; \
    mask_datap += __offsp[1]; \
    clusterwts_datap += __offsp[2]; \
    cdata_datap += __offsp[3]; \
    cmask_datap += __offsp[4]; \
    , \
    (  ,data_datap += __tinc1_data - __tinc0_data * __tdims0 \
    ,mask_datap += __tinc1_mask - __tinc0_mask * __tdims0 \
    ,clusterwts_datap += __tinc1_clusterwts - __tinc0_clusterwts * __tdims0 \
    ,cdata_datap += __tinc1_cdata - __tinc0_cdata * __tdims0 \
    ,cmask_datap += __tinc1_cmask - __tinc0_cmask * __tdims0 \
    ), \
    (  ,data_datap += __tinc0_data \
    ,mask_datap += __tinc0_mask \
    ,clusterwts_datap += __tinc0_clusterwts \
    ,cdata_datap += __tinc0_cdata \
    ,cmask_datap += __tinc0_cmask \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_getclusterwsum_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    data_datap -= __tinc1_data * __tdims1 + __offsp[0]; \
    mask_datap -= __tinc1_mask * __tdims1 + __offsp[1]; \
    clusterwts_datap -= __tinc1_clusterwts * __tdims1 + __offsp[2]; \
    cdata_datap -= __tinc1_cdata * __tdims1 + __offsp[3]; \
    cmask_datap -= __tinc1_cmask * __tdims1 + __offsp[4]; \
  )
  register PDL_Indx __inc_cdata_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,0)]; (void)__inc_cdata_d;register PDL_Indx __inc_cdata_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,1)]; (void)__inc_cdata_k;
  register PDL_Indx __inc_clusterwts_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_clusterwts_k;register PDL_Indx __inc_clusterwts_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,1)]; (void)__inc_clusterwts_n;
  register PDL_Indx __inc_cmask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,4,0)]; (void)__inc_cmask_d;register PDL_Indx __inc_cmask_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,4,1)]; (void)__inc_cmask_k;
  register PDL_Indx __inc_data_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_data_d;register PDL_Indx __inc_data_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_data_n;
  register PDL_Indx __inc_mask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_mask_d;register PDL_Indx __inc_mask_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_mask_n;
  #ifndef PDL_DECLARE_PARAMS_getclusterwsum_1
  #define PDL_DECLARE_PARAMS_getclusterwsum_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_data,PDL_PPSYM_PARAM_data,PDL_TYPE_PARAM_mask,PDL_PPSYM_PARAM_mask,PDL_TYPE_PARAM_clusterwts,PDL_PPSYM_PARAM_clusterwts,PDL_TYPE_PARAM_cdata,PDL_PPSYM_PARAM_cdata,PDL_TYPE_PARAM_cmask,PDL_PPSYM_PARAM_cmask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_data, data, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_data) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_mask, mask, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_mask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_clusterwts, clusterwts, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_clusterwts) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_cdata, cdata, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_cdata) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_cmask, cmask, (__privtrans->pdls[4]), 1, PDL_PPSYM_PARAM_cmask)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_getclusterwsum_1(PDL_SByte,A,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L)
      PDL_BROADCASTLOOP_START_getclusterwsum_readdata    {
           int rid, rwt, cmaskdk;
           {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
               {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                   cmaskdk = 0;
                   {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                       if ((mask_datap)[0+(__inc_mask_d*(d))+(__inc_mask_n*(n))]) {
                         cmaskdk = 1;
                	 (cdata_datap)[0+(__inc_cdata_d*(d))+(__inc_cdata_k*(k))] += (clusterwts_datap)[0+(__inc_clusterwts_k*(k))+(__inc_clusterwts_n*(n))] * (data_datap)[0+(__inc_data_d*(d))+(__inc_data_n*(n))];
                       }
                     }} /* Close n */
                   (cmask_datap)[0+(__inc_cmask_d*(d))+(__inc_cmask_k*(k))] = cmaskdk;
                 }} /* Close k */
             }} /* Close d */
          }PDL_BROADCASTLOOP_END_getclusterwsum_readdata
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_getclusterwsum_1(PDL_Byte,B,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L)
      PDL_BROADCASTLOOP_START_getclusterwsum_readdata    {
           int rid, rwt, cmaskdk;
           {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
               {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                   cmaskdk = 0;
                   {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                       if ((mask_datap)[0+(__inc_mask_d*(d))+(__inc_mask_n*(n))]) {
                         cmaskdk = 1;
                	 (cdata_datap)[0+(__inc_cdata_d*(d))+(__inc_cdata_k*(k))] += (clusterwts_datap)[0+(__inc_clusterwts_k*(k))+(__inc_clusterwts_n*(n))] * (data_datap)[0+(__inc_data_d*(d))+(__inc_data_n*(n))];
                       }
                     }} /* Close n */
                   (cmask_datap)[0+(__inc_cmask_d*(d))+(__inc_cmask_k*(k))] = cmaskdk;
                 }} /* Close k */
             }} /* Close d */
          }PDL_BROADCASTLOOP_END_getclusterwsum_readdata
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_getclusterwsum_1(PDL_Short,S,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L)
      PDL_BROADCASTLOOP_START_getclusterwsum_readdata    {
           int rid, rwt, cmaskdk;
           {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
               {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                   cmaskdk = 0;
                   {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                       if ((mask_datap)[0+(__inc_mask_d*(d))+(__inc_mask_n*(n))]) {
                         cmaskdk = 1;
                	 (cdata_datap)[0+(__inc_cdata_d*(d))+(__inc_cdata_k*(k))] += (clusterwts_datap)[0+(__inc_clusterwts_k*(k))+(__inc_clusterwts_n*(n))] * (data_datap)[0+(__inc_data_d*(d))+(__inc_data_n*(n))];
                       }
                     }} /* Close n */
                   (cmask_datap)[0+(__inc_cmask_d*(d))+(__inc_cmask_k*(k))] = cmaskdk;
                 }} /* Close k */
             }} /* Close d */
          }PDL_BROADCASTLOOP_END_getclusterwsum_readdata
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_getclusterwsum_1(PDL_Ushort,U,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L)
      PDL_BROADCASTLOOP_START_getclusterwsum_readdata    {
           int rid, rwt, cmaskdk;
           {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
               {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                   cmaskdk = 0;
                   {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                       if ((mask_datap)[0+(__inc_mask_d*(d))+(__inc_mask_n*(n))]) {
                         cmaskdk = 1;
                	 (cdata_datap)[0+(__inc_cdata_d*(d))+(__inc_cdata_k*(k))] += (clusterwts_datap)[0+(__inc_clusterwts_k*(k))+(__inc_clusterwts_n*(n))] * (data_datap)[0+(__inc_data_d*(d))+(__inc_data_n*(n))];
                       }
                     }} /* Close n */
                   (cmask_datap)[0+(__inc_cmask_d*(d))+(__inc_cmask_k*(k))] = cmaskdk;
                 }} /* Close k */
             }} /* Close d */
          }PDL_BROADCASTLOOP_END_getclusterwsum_readdata
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_getclusterwsum_1(PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L)
      PDL_BROADCASTLOOP_START_getclusterwsum_readdata    {
           int rid, rwt, cmaskdk;
           {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
               {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                   cmaskdk = 0;
                   {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                       if ((mask_datap)[0+(__inc_mask_d*(d))+(__inc_mask_n*(n))]) {
                         cmaskdk = 1;
                	 (cdata_datap)[0+(__inc_cdata_d*(d))+(__inc_cdata_k*(k))] += (clusterwts_datap)[0+(__inc_clusterwts_k*(k))+(__inc_clusterwts_n*(n))] * (data_datap)[0+(__inc_data_d*(d))+(__inc_data_n*(n))];
                       }
                     }} /* Close n */
                   (cmask_datap)[0+(__inc_cmask_d*(d))+(__inc_cmask_k*(k))] = cmaskdk;
                 }} /* Close k */
             }} /* Close d */
          }PDL_BROADCASTLOOP_END_getclusterwsum_readdata
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_getclusterwsum_1(PDL_ULong,K,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L)
      PDL_BROADCASTLOOP_START_getclusterwsum_readdata    {
           int rid, rwt, cmaskdk;
           {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
               {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                   cmaskdk = 0;
                   {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                       if ((mask_datap)[0+(__inc_mask_d*(d))+(__inc_mask_n*(n))]) {
                         cmaskdk = 1;
                	 (cdata_datap)[0+(__inc_cdata_d*(d))+(__inc_cdata_k*(k))] += (clusterwts_datap)[0+(__inc_clusterwts_k*(k))+(__inc_clusterwts_n*(n))] * (data_datap)[0+(__inc_data_d*(d))+(__inc_data_n*(n))];
                       }
                     }} /* Close n */
                   (cmask_datap)[0+(__inc_cmask_d*(d))+(__inc_cmask_k*(k))] = cmaskdk;
                 }} /* Close k */
             }} /* Close d */
          }PDL_BROADCASTLOOP_END_getclusterwsum_readdata
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_getclusterwsum_1(PDL_Indx,N,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L)
      PDL_BROADCASTLOOP_START_getclusterwsum_readdata    {
           int rid, rwt, cmaskdk;
           {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
               {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                   cmaskdk = 0;
                   {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                       if ((mask_datap)[0+(__inc_mask_d*(d))+(__inc_mask_n*(n))]) {
                         cmaskdk = 1;
                	 (cdata_datap)[0+(__inc_cdata_d*(d))+(__inc_cdata_k*(k))] += (clusterwts_datap)[0+(__inc_clusterwts_k*(k))+(__inc_clusterwts_n*(n))] * (data_datap)[0+(__inc_data_d*(d))+(__inc_data_n*(n))];
                       }
                     }} /* Close n */
                   (cmask_datap)[0+(__inc_cmask_d*(d))+(__inc_cmask_k*(k))] = cmaskdk;
                 }} /* Close k */
             }} /* Close d */
          }PDL_BROADCASTLOOP_END_getclusterwsum_readdata
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_getclusterwsum_1(PDL_ULongLong,P,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L)
      PDL_BROADCASTLOOP_START_getclusterwsum_readdata    {
           int rid, rwt, cmaskdk;
           {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
               {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                   cmaskdk = 0;
                   {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                       if ((mask_datap)[0+(__inc_mask_d*(d))+(__inc_mask_n*(n))]) {
                         cmaskdk = 1;
                	 (cdata_datap)[0+(__inc_cdata_d*(d))+(__inc_cdata_k*(k))] += (clusterwts_datap)[0+(__inc_clusterwts_k*(k))+(__inc_clusterwts_n*(n))] * (data_datap)[0+(__inc_data_d*(d))+(__inc_data_n*(n))];
                       }
                     }} /* Close n */
                   (cmask_datap)[0+(__inc_cmask_d*(d))+(__inc_cmask_k*(k))] = cmaskdk;
                 }} /* Close k */
             }} /* Close d */
          }PDL_BROADCASTLOOP_END_getclusterwsum_readdata
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_getclusterwsum_1(PDL_LongLong,Q,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L)
      PDL_BROADCASTLOOP_START_getclusterwsum_readdata    {
           int rid, rwt, cmaskdk;
           {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
               {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                   cmaskdk = 0;
                   {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                       if ((mask_datap)[0+(__inc_mask_d*(d))+(__inc_mask_n*(n))]) {
                         cmaskdk = 1;
                	 (cdata_datap)[0+(__inc_cdata_d*(d))+(__inc_cdata_k*(k))] += (clusterwts_datap)[0+(__inc_clusterwts_k*(k))+(__inc_clusterwts_n*(n))] * (data_datap)[0+(__inc_data_d*(d))+(__inc_data_n*(n))];
                       }
                     }} /* Close n */
                   (cmask_datap)[0+(__inc_cmask_d*(d))+(__inc_cmask_k*(k))] = cmaskdk;
                 }} /* Close k */
             }} /* Close d */
          }PDL_BROADCASTLOOP_END_getclusterwsum_readdata
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_getclusterwsum_1(PDL_Float,F,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L)
      PDL_BROADCASTLOOP_START_getclusterwsum_readdata    {
           int rid, rwt, cmaskdk;
           {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
               {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                   cmaskdk = 0;
                   {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                       if ((mask_datap)[0+(__inc_mask_d*(d))+(__inc_mask_n*(n))]) {
                         cmaskdk = 1;
                	 (cdata_datap)[0+(__inc_cdata_d*(d))+(__inc_cdata_k*(k))] += (clusterwts_datap)[0+(__inc_clusterwts_k*(k))+(__inc_clusterwts_n*(n))] * (data_datap)[0+(__inc_data_d*(d))+(__inc_data_n*(n))];
                       }
                     }} /* Close n */
                   (cmask_datap)[0+(__inc_cmask_d*(d))+(__inc_cmask_k*(k))] = cmaskdk;
                 }} /* Close k */
             }} /* Close d */
          }PDL_BROADCASTLOOP_END_getclusterwsum_readdata
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_getclusterwsum_1(PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L)
      PDL_BROADCASTLOOP_START_getclusterwsum_readdata    {
           int rid, rwt, cmaskdk;
           {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
               {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                   cmaskdk = 0;
                   {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                       if ((mask_datap)[0+(__inc_mask_d*(d))+(__inc_mask_n*(n))]) {
                         cmaskdk = 1;
                	 (cdata_datap)[0+(__inc_cdata_d*(d))+(__inc_cdata_k*(k))] += (clusterwts_datap)[0+(__inc_clusterwts_k*(k))+(__inc_clusterwts_n*(n))] * (data_datap)[0+(__inc_data_d*(d))+(__inc_data_n*(n))];
                       }
                     }} /* Close n */
                   (cmask_datap)[0+(__inc_cmask_d*(d))+(__inc_cmask_k*(k))] = cmaskdk;
                 }} /* Close k */
             }} /* Close d */
          }PDL_BROADCASTLOOP_END_getclusterwsum_readdata
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_getclusterwsum_1(PDL_LDouble,E,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Double,D,PDL_Long,L)
      PDL_BROADCASTLOOP_START_getclusterwsum_readdata    {
           int rid, rwt, cmaskdk;
           {/* Open d */ PDL_EXPAND2(register PDL_Indx d=0, __d_stop=(__d_size)); for(; d<__d_stop; d+=1) {
               {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                   cmaskdk = 0;
                   {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                       if ((mask_datap)[0+(__inc_mask_d*(d))+(__inc_mask_n*(n))]) {
                         cmaskdk = 1;
                	 (cdata_datap)[0+(__inc_cdata_d*(d))+(__inc_cdata_k*(k))] += (clusterwts_datap)[0+(__inc_clusterwts_k*(k))+(__inc_clusterwts_n*(n))] * (data_datap)[0+(__inc_data_d*(d))+(__inc_data_n*(n))];
                       }
                     }} /* Close n */
                   (cmask_datap)[0+(__inc_cmask_d*(d))+(__inc_cmask_k*(k))] = cmaskdk;
                 }} /* Close k */
             }} /* Close d */
          }PDL_BROADCASTLOOP_END_getclusterwsum_readdata
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in getclusterwsum: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}

static pdl_datatypes pdl_getclusterwsum_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_getclusterwsum_vtable_realdims[] = { 2, 2, 2, 2, 2 };
static char *pdl_getclusterwsum_vtable_parnames[] = { "data","mask","clusterwts","cdata","cmask" };
static short pdl_getclusterwsum_vtable_parflags[] = {
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_getclusterwsum_vtable_partypes[] = { PDL_D, PDL_L, PDL_D, PDL_D, PDL_L };
static PDL_Indx pdl_getclusterwsum_vtable_realdims_starts[] = { 0, 2, 4, 6, 8 };
static PDL_Indx pdl_getclusterwsum_vtable_realdims_ind_ids[] = { 0, 2, 0, 2, 1, 2, 0, 1, 0, 1 };
static char *pdl_getclusterwsum_vtable_indnames[] = { "d","k","n" };
pdl_transvtable pdl_getclusterwsum_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_getclusterwsum_vtable_gentypes, 3, 5, NULL /*CORE21*/,
  pdl_getclusterwsum_vtable_realdims, pdl_getclusterwsum_vtable_parnames,
  pdl_getclusterwsum_vtable_parflags, pdl_getclusterwsum_vtable_partypes,
  pdl_getclusterwsum_vtable_realdims_starts, pdl_getclusterwsum_vtable_realdims_ind_ids, 10,
  3, pdl_getclusterwsum_vtable_indnames,
  NULL, pdl_getclusterwsum_readdata, NULL,
  NULL,
  0,"PDL::Cluster::getclusterwsum"
};


pdl_error pdl_run_getclusterwsum(pdl  *data,pdl  *mask,pdl  *clusterwts,pdl  *cdata,pdl  *cmask) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_getclusterwsum_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  __privtrans->pdls[0] = data;
  __privtrans->pdls[1] = mask;
  __privtrans->pdls[2] = clusterwts;
  __privtrans->pdls[3] = cdata;
  __privtrans->pdls[4] = cmask;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_attachtonearest {
#line 8200 "Cluster.xs"
  char  *distFlag;
  char  *methodFlag;
} pdl_params_attachtonearest;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_attachtonearest_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 8209 "Cluster.xs"
  pdl_params_attachtonearest *__params = __privtrans->params; (void)__params;
  register PDL_Indx __nr_size = __privtrans->ind_sizes[3];
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in attachtonearest:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_rowids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc0_cdata = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
  register PDL_Indx __tinc0_cmask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,0);
  register PDL_Indx __tinc0_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,6,0);
  register PDL_Indx __tinc0_cdist = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,7,0);
  register PDL_Indx __tinc1_data = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_mask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_weight = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_rowids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  register PDL_Indx __tinc1_cdata = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
  register PDL_Indx __tinc1_cmask = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,1);
  register PDL_Indx __tinc1_clusterids = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,6,1);
  register PDL_Indx __tinc1_cdist = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,7,1);
  #define PDL_BROADCASTLOOP_START_attachtonearest_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    data_datap += __offsp[0]; \
    mask_datap += __offsp[1]; \
    weight_datap += __offsp[2]; \
    rowids_datap += __offsp[3]; \
    cdata_datap += __offsp[4]; \
    cmask_datap += __offsp[5]; \
    clusterids_datap += __offsp[6]; \
    cdist_datap += __offsp[7]; \
    , \
    (  ,data_datap += __tinc1_data - __tinc0_data * __tdims0 \
    ,mask_datap += __tinc1_mask - __tinc0_mask * __tdims0 \
    ,weight_datap += __tinc1_weight - __tinc0_weight * __tdims0 \
    ,rowids_datap += __tinc1_rowids - __tinc0_rowids * __tdims0 \
    ,cdata_datap += __tinc1_cdata - __tinc0_cdata * __tdims0 \
    ,cmask_datap += __tinc1_cmask - __tinc0_cmask * __tdims0 \
    ,clusterids_datap += __tinc1_clusterids - __tinc0_clusterids * __tdims0 \
    ,cdist_datap += __tinc1_cdist - __tinc0_cdist * __tdims0 \
    ), \
    (  ,data_datap += __tinc0_data \
    ,mask_datap += __tinc0_mask \
    ,weight_datap += __tinc0_weight \
    ,rowids_datap += __tinc0_rowids \
    ,cdata_datap += __tinc0_cdata \
    ,cmask_datap += __tinc0_cmask \
    ,clusterids_datap += __tinc0_clusterids \
    ,cdist_datap += __tinc0_cdist \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_attachtonearest_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    data_datap -= __tinc1_data * __tdims1 + __offsp[0]; \
    mask_datap -= __tinc1_mask * __tdims1 + __offsp[1]; \
    weight_datap -= __tinc1_weight * __tdims1 + __offsp[2]; \
    rowids_datap -= __tinc1_rowids * __tdims1 + __offsp[3]; \
    cdata_datap -= __tinc1_cdata * __tdims1 + __offsp[4]; \
    cmask_datap -= __tinc1_cmask * __tdims1 + __offsp[5]; \
    clusterids_datap -= __tinc1_clusterids * __tdims1 + __offsp[6]; \
    cdist_datap -= __tinc1_cdist * __tdims1 + __offsp[7]; \
  )
  register PDL_Indx __inc_cdata_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,4,0)]; (void)__inc_cdata_d;register PDL_Indx __inc_cdata_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,4,1)]; (void)__inc_cdata_k;
  register PDL_Indx __inc_cdist_nr = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,7,0)]; (void)__inc_cdist_nr;
  register PDL_Indx __inc_clusterids_nr = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,6,0)]; (void)__inc_clusterids_nr;
  register PDL_Indx __inc_cmask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,5,0)]; (void)__inc_cmask_d;register PDL_Indx __inc_cmask_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,5,1)]; (void)__inc_cmask_k;
  register PDL_Indx __inc_data_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_data_d;register PDL_Indx __inc_data_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_data_n;
  register PDL_Indx __inc_mask_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_mask_d;register PDL_Indx __inc_mask_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_mask_n;
  register PDL_Indx __inc_rowids_nr = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,3,0)]; (void)__inc_rowids_nr;
  register PDL_Indx __inc_weight_d = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_weight_d;
  #ifndef PDL_DECLARE_PARAMS_attachtonearest_1
  #define PDL_DECLARE_PARAMS_attachtonearest_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_data,PDL_PPSYM_PARAM_data,PDL_TYPE_PARAM_mask,PDL_PPSYM_PARAM_mask,PDL_TYPE_PARAM_weight,PDL_PPSYM_PARAM_weight,PDL_TYPE_PARAM_rowids,PDL_PPSYM_PARAM_rowids,PDL_TYPE_PARAM_cdata,PDL_PPSYM_PARAM_cdata,PDL_TYPE_PARAM_cmask,PDL_PPSYM_PARAM_cmask,PDL_TYPE_PARAM_clusterids,PDL_PPSYM_PARAM_clusterids,PDL_TYPE_PARAM_cdist,PDL_PPSYM_PARAM_cdist) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_data, data, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_data) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_mask, mask, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_mask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_weight, weight, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_weight) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_rowids, rowids, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_rowids) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_cdata, cdata, (__privtrans->pdls[4]), 1, PDL_PPSYM_PARAM_cdata) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_cmask, cmask, (__privtrans->pdls[5]), 1, PDL_PPSYM_PARAM_cmask) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_clusterids, clusterids, (__privtrans->pdls[6]), 1, PDL_PPSYM_PARAM_clusterids) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_cdist, cdist, (__privtrans->pdls[7]), 1, PDL_PPSYM_PARAM_cdist)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_SB: {
      PDL_DECLARE_PARAMS_attachtonearest_1(PDL_SByte,A,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double *tmpdatapp[2];
          int    *tmpmaskpp[2];
          int    transpose=0;
            PDL_BROADCASTLOOP_START_attachtonearest_readdata
              int    tmprowid = 0;
              int    tmpctrid = 1;
              int    ni;
              int    ki, kbest;
              double dist, dbest;
                  p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);
                  /*-- loop over all target rows --*/
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  ni = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  tmpdatapp[tmprowid] = datapp[ni];
                  tmpmaskpp[tmprowid] = maskpp[ni];
                        /*-- initialize --*/
                  tmpdatapp[tmpctrid] = cdatapp[0];
                  tmpmaskpp[tmpctrid] = cmaskpp[0];
                  kbest = 0;
                  dbest = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                          1, 1, &tmprowid, &tmpctrid,
                                          *__params->distFlag, *__params->methodFlag, transpose);
                        /*-- loop over all centroids --*/
                  for (ki=1; ki < __privtrans->ind_sizes[1]; ki++) {
                    tmpdatapp[tmpctrid] = cdatapp[ki];
                    tmpmaskpp[tmpctrid] = cmaskpp[ki];
                            dist = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                           1, 1, &tmprowid, &tmpctrid,
                                           *__params->distFlag, *__params->methodFlag, transpose);
                    if (dist < dbest) {
                      kbest = ki;
                      dbest = dist;
                    }
                  }
                        /*-- save best data --*/
                  (clusterids_datap)[0+(__inc_clusterids_nr*(nr))] = kbest;
                  (cdist_datap)[0+(__inc_cdist_nr*(nr))]      = dbest;
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_attachtonearest_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_B: {
      PDL_DECLARE_PARAMS_attachtonearest_1(PDL_Byte,B,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double *tmpdatapp[2];
          int    *tmpmaskpp[2];
          int    transpose=0;
            PDL_BROADCASTLOOP_START_attachtonearest_readdata
              int    tmprowid = 0;
              int    tmpctrid = 1;
              int    ni;
              int    ki, kbest;
              double dist, dbest;
                  p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);
                  /*-- loop over all target rows --*/
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  ni = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  tmpdatapp[tmprowid] = datapp[ni];
                  tmpmaskpp[tmprowid] = maskpp[ni];
                        /*-- initialize --*/
                  tmpdatapp[tmpctrid] = cdatapp[0];
                  tmpmaskpp[tmpctrid] = cmaskpp[0];
                  kbest = 0;
                  dbest = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                          1, 1, &tmprowid, &tmpctrid,
                                          *__params->distFlag, *__params->methodFlag, transpose);
                        /*-- loop over all centroids --*/
                  for (ki=1; ki < __privtrans->ind_sizes[1]; ki++) {
                    tmpdatapp[tmpctrid] = cdatapp[ki];
                    tmpmaskpp[tmpctrid] = cmaskpp[ki];
                            dist = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                           1, 1, &tmprowid, &tmpctrid,
                                           *__params->distFlag, *__params->methodFlag, transpose);
                    if (dist < dbest) {
                      kbest = ki;
                      dbest = dist;
                    }
                  }
                        /*-- save best data --*/
                  (clusterids_datap)[0+(__inc_clusterids_nr*(nr))] = kbest;
                  (cdist_datap)[0+(__inc_cdist_nr*(nr))]      = dbest;
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_attachtonearest_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_attachtonearest_1(PDL_Short,S,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double *tmpdatapp[2];
          int    *tmpmaskpp[2];
          int    transpose=0;
            PDL_BROADCASTLOOP_START_attachtonearest_readdata
              int    tmprowid = 0;
              int    tmpctrid = 1;
              int    ni;
              int    ki, kbest;
              double dist, dbest;
                  p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);
                  /*-- loop over all target rows --*/
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  ni = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  tmpdatapp[tmprowid] = datapp[ni];
                  tmpmaskpp[tmprowid] = maskpp[ni];
                        /*-- initialize --*/
                  tmpdatapp[tmpctrid] = cdatapp[0];
                  tmpmaskpp[tmpctrid] = cmaskpp[0];
                  kbest = 0;
                  dbest = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                          1, 1, &tmprowid, &tmpctrid,
                                          *__params->distFlag, *__params->methodFlag, transpose);
                        /*-- loop over all centroids --*/
                  for (ki=1; ki < __privtrans->ind_sizes[1]; ki++) {
                    tmpdatapp[tmpctrid] = cdatapp[ki];
                    tmpmaskpp[tmpctrid] = cmaskpp[ki];
                            dist = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                           1, 1, &tmprowid, &tmpctrid,
                                           *__params->distFlag, *__params->methodFlag, transpose);
                    if (dist < dbest) {
                      kbest = ki;
                      dbest = dist;
                    }
                  }
                        /*-- save best data --*/
                  (clusterids_datap)[0+(__inc_clusterids_nr*(nr))] = kbest;
                  (cdist_datap)[0+(__inc_cdist_nr*(nr))]      = dbest;
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_attachtonearest_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_attachtonearest_1(PDL_Ushort,U,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double *tmpdatapp[2];
          int    *tmpmaskpp[2];
          int    transpose=0;
            PDL_BROADCASTLOOP_START_attachtonearest_readdata
              int    tmprowid = 0;
              int    tmpctrid = 1;
              int    ni;
              int    ki, kbest;
              double dist, dbest;
                  p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);
                  /*-- loop over all target rows --*/
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  ni = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  tmpdatapp[tmprowid] = datapp[ni];
                  tmpmaskpp[tmprowid] = maskpp[ni];
                        /*-- initialize --*/
                  tmpdatapp[tmpctrid] = cdatapp[0];
                  tmpmaskpp[tmpctrid] = cmaskpp[0];
                  kbest = 0;
                  dbest = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                          1, 1, &tmprowid, &tmpctrid,
                                          *__params->distFlag, *__params->methodFlag, transpose);
                        /*-- loop over all centroids --*/
                  for (ki=1; ki < __privtrans->ind_sizes[1]; ki++) {
                    tmpdatapp[tmpctrid] = cdatapp[ki];
                    tmpmaskpp[tmpctrid] = cmaskpp[ki];
                            dist = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                           1, 1, &tmprowid, &tmpctrid,
                                           *__params->distFlag, *__params->methodFlag, transpose);
                    if (dist < dbest) {
                      kbest = ki;
                      dbest = dist;
                    }
                  }
                        /*-- save best data --*/
                  (clusterids_datap)[0+(__inc_clusterids_nr*(nr))] = kbest;
                  (cdist_datap)[0+(__inc_cdist_nr*(nr))]      = dbest;
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_attachtonearest_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_attachtonearest_1(PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double *tmpdatapp[2];
          int    *tmpmaskpp[2];
          int    transpose=0;
            PDL_BROADCASTLOOP_START_attachtonearest_readdata
              int    tmprowid = 0;
              int    tmpctrid = 1;
              int    ni;
              int    ki, kbest;
              double dist, dbest;
                  p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);
                  /*-- loop over all target rows --*/
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  ni = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  tmpdatapp[tmprowid] = datapp[ni];
                  tmpmaskpp[tmprowid] = maskpp[ni];
                        /*-- initialize --*/
                  tmpdatapp[tmpctrid] = cdatapp[0];
                  tmpmaskpp[tmpctrid] = cmaskpp[0];
                  kbest = 0;
                  dbest = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                          1, 1, &tmprowid, &tmpctrid,
                                          *__params->distFlag, *__params->methodFlag, transpose);
                        /*-- loop over all centroids --*/
                  for (ki=1; ki < __privtrans->ind_sizes[1]; ki++) {
                    tmpdatapp[tmpctrid] = cdatapp[ki];
                    tmpmaskpp[tmpctrid] = cmaskpp[ki];
                            dist = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                           1, 1, &tmprowid, &tmpctrid,
                                           *__params->distFlag, *__params->methodFlag, transpose);
                    if (dist < dbest) {
                      kbest = ki;
                      dbest = dist;
                    }
                  }
                        /*-- save best data --*/
                  (clusterids_datap)[0+(__inc_clusterids_nr*(nr))] = kbest;
                  (cdist_datap)[0+(__inc_cdist_nr*(nr))]      = dbest;
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_attachtonearest_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_UL: {
      PDL_DECLARE_PARAMS_attachtonearest_1(PDL_ULong,K,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double *tmpdatapp[2];
          int    *tmpmaskpp[2];
          int    transpose=0;
            PDL_BROADCASTLOOP_START_attachtonearest_readdata
              int    tmprowid = 0;
              int    tmpctrid = 1;
              int    ni;
              int    ki, kbest;
              double dist, dbest;
                  p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);
                  /*-- loop over all target rows --*/
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  ni = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  tmpdatapp[tmprowid] = datapp[ni];
                  tmpmaskpp[tmprowid] = maskpp[ni];
                        /*-- initialize --*/
                  tmpdatapp[tmpctrid] = cdatapp[0];
                  tmpmaskpp[tmpctrid] = cmaskpp[0];
                  kbest = 0;
                  dbest = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                          1, 1, &tmprowid, &tmpctrid,
                                          *__params->distFlag, *__params->methodFlag, transpose);
                        /*-- loop over all centroids --*/
                  for (ki=1; ki < __privtrans->ind_sizes[1]; ki++) {
                    tmpdatapp[tmpctrid] = cdatapp[ki];
                    tmpmaskpp[tmpctrid] = cmaskpp[ki];
                            dist = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                           1, 1, &tmprowid, &tmpctrid,
                                           *__params->distFlag, *__params->methodFlag, transpose);
                    if (dist < dbest) {
                      kbest = ki;
                      dbest = dist;
                    }
                  }
                        /*-- save best data --*/
                  (clusterids_datap)[0+(__inc_clusterids_nr*(nr))] = kbest;
                  (cdist_datap)[0+(__inc_cdist_nr*(nr))]      = dbest;
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_attachtonearest_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_IND: {
      PDL_DECLARE_PARAMS_attachtonearest_1(PDL_Indx,N,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double *tmpdatapp[2];
          int    *tmpmaskpp[2];
          int    transpose=0;
            PDL_BROADCASTLOOP_START_attachtonearest_readdata
              int    tmprowid = 0;
              int    tmpctrid = 1;
              int    ni;
              int    ki, kbest;
              double dist, dbest;
                  p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);
                  /*-- loop over all target rows --*/
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  ni = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  tmpdatapp[tmprowid] = datapp[ni];
                  tmpmaskpp[tmprowid] = maskpp[ni];
                        /*-- initialize --*/
                  tmpdatapp[tmpctrid] = cdatapp[0];
                  tmpmaskpp[tmpctrid] = cmaskpp[0];
                  kbest = 0;
                  dbest = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                          1, 1, &tmprowid, &tmpctrid,
                                          *__params->distFlag, *__params->methodFlag, transpose);
                        /*-- loop over all centroids --*/
                  for (ki=1; ki < __privtrans->ind_sizes[1]; ki++) {
                    tmpdatapp[tmpctrid] = cdatapp[ki];
                    tmpmaskpp[tmpctrid] = cmaskpp[ki];
                            dist = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                           1, 1, &tmprowid, &tmpctrid,
                                           *__params->distFlag, *__params->methodFlag, transpose);
                    if (dist < dbest) {
                      kbest = ki;
                      dbest = dist;
                    }
                  }
                        /*-- save best data --*/
                  (clusterids_datap)[0+(__inc_clusterids_nr*(nr))] = kbest;
                  (cdist_datap)[0+(__inc_cdist_nr*(nr))]      = dbest;
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_attachtonearest_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_ULL: {
      PDL_DECLARE_PARAMS_attachtonearest_1(PDL_ULongLong,P,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double *tmpdatapp[2];
          int    *tmpmaskpp[2];
          int    transpose=0;
            PDL_BROADCASTLOOP_START_attachtonearest_readdata
              int    tmprowid = 0;
              int    tmpctrid = 1;
              int    ni;
              int    ki, kbest;
              double dist, dbest;
                  p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);
                  /*-- loop over all target rows --*/
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  ni = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  tmpdatapp[tmprowid] = datapp[ni];
                  tmpmaskpp[tmprowid] = maskpp[ni];
                        /*-- initialize --*/
                  tmpdatapp[tmpctrid] = cdatapp[0];
                  tmpmaskpp[tmpctrid] = cmaskpp[0];
                  kbest = 0;
                  dbest = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                          1, 1, &tmprowid, &tmpctrid,
                                          *__params->distFlag, *__params->methodFlag, transpose);
                        /*-- loop over all centroids --*/
                  for (ki=1; ki < __privtrans->ind_sizes[1]; ki++) {
                    tmpdatapp[tmpctrid] = cdatapp[ki];
                    tmpmaskpp[tmpctrid] = cmaskpp[ki];
                            dist = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                           1, 1, &tmprowid, &tmpctrid,
                                           *__params->distFlag, *__params->methodFlag, transpose);
                    if (dist < dbest) {
                      kbest = ki;
                      dbest = dist;
                    }
                  }
                        /*-- save best data --*/
                  (clusterids_datap)[0+(__inc_clusterids_nr*(nr))] = kbest;
                  (cdist_datap)[0+(__inc_cdist_nr*(nr))]      = dbest;
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_attachtonearest_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_LL: {
      PDL_DECLARE_PARAMS_attachtonearest_1(PDL_LongLong,Q,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double *tmpdatapp[2];
          int    *tmpmaskpp[2];
          int    transpose=0;
            PDL_BROADCASTLOOP_START_attachtonearest_readdata
              int    tmprowid = 0;
              int    tmpctrid = 1;
              int    ni;
              int    ki, kbest;
              double dist, dbest;
                  p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);
                  /*-- loop over all target rows --*/
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  ni = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  tmpdatapp[tmprowid] = datapp[ni];
                  tmpmaskpp[tmprowid] = maskpp[ni];
                        /*-- initialize --*/
                  tmpdatapp[tmpctrid] = cdatapp[0];
                  tmpmaskpp[tmpctrid] = cmaskpp[0];
                  kbest = 0;
                  dbest = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                          1, 1, &tmprowid, &tmpctrid,
                                          *__params->distFlag, *__params->methodFlag, transpose);
                        /*-- loop over all centroids --*/
                  for (ki=1; ki < __privtrans->ind_sizes[1]; ki++) {
                    tmpdatapp[tmpctrid] = cdatapp[ki];
                    tmpmaskpp[tmpctrid] = cmaskpp[ki];
                            dist = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                           1, 1, &tmprowid, &tmpctrid,
                                           *__params->distFlag, *__params->methodFlag, transpose);
                    if (dist < dbest) {
                      kbest = ki;
                      dbest = dist;
                    }
                  }
                        /*-- save best data --*/
                  (clusterids_datap)[0+(__inc_clusterids_nr*(nr))] = kbest;
                  (cdist_datap)[0+(__inc_cdist_nr*(nr))]      = dbest;
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_attachtonearest_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_F: {
      PDL_DECLARE_PARAMS_attachtonearest_1(PDL_Float,F,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double *tmpdatapp[2];
          int    *tmpmaskpp[2];
          int    transpose=0;
            PDL_BROADCASTLOOP_START_attachtonearest_readdata
              int    tmprowid = 0;
              int    tmpctrid = 1;
              int    ni;
              int    ki, kbest;
              double dist, dbest;
                  p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);
                  /*-- loop over all target rows --*/
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  ni = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  tmpdatapp[tmprowid] = datapp[ni];
                  tmpmaskpp[tmprowid] = maskpp[ni];
                        /*-- initialize --*/
                  tmpdatapp[tmpctrid] = cdatapp[0];
                  tmpmaskpp[tmpctrid] = cmaskpp[0];
                  kbest = 0;
                  dbest = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                          1, 1, &tmprowid, &tmpctrid,
                                          *__params->distFlag, *__params->methodFlag, transpose);
                        /*-- loop over all centroids --*/
                  for (ki=1; ki < __privtrans->ind_sizes[1]; ki++) {
                    tmpdatapp[tmpctrid] = cdatapp[ki];
                    tmpmaskpp[tmpctrid] = cmaskpp[ki];
                            dist = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                           1, 1, &tmprowid, &tmpctrid,
                                           *__params->distFlag, *__params->methodFlag, transpose);
                    if (dist < dbest) {
                      kbest = ki;
                      dbest = dist;
                    }
                  }
                        /*-- save best data --*/
                  (clusterids_datap)[0+(__inc_clusterids_nr*(nr))] = kbest;
                  (cdist_datap)[0+(__inc_cdist_nr*(nr))]      = dbest;
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_attachtonearest_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_D: {
      PDL_DECLARE_PARAMS_attachtonearest_1(PDL_Double,D,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double *tmpdatapp[2];
          int    *tmpmaskpp[2];
          int    transpose=0;
            PDL_BROADCASTLOOP_START_attachtonearest_readdata
              int    tmprowid = 0;
              int    tmpctrid = 1;
              int    ni;
              int    ki, kbest;
              double dist, dbest;
                  p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);
                  /*-- loop over all target rows --*/
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  ni = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  tmpdatapp[tmprowid] = datapp[ni];
                  tmpmaskpp[tmprowid] = maskpp[ni];
                        /*-- initialize --*/
                  tmpdatapp[tmpctrid] = cdatapp[0];
                  tmpmaskpp[tmpctrid] = cmaskpp[0];
                  kbest = 0;
                  dbest = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                          1, 1, &tmprowid, &tmpctrid,
                                          *__params->distFlag, *__params->methodFlag, transpose);
                        /*-- loop over all centroids --*/
                  for (ki=1; ki < __privtrans->ind_sizes[1]; ki++) {
                    tmpdatapp[tmpctrid] = cdatapp[ki];
                    tmpmaskpp[tmpctrid] = cmaskpp[ki];
                            dist = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                           1, 1, &tmprowid, &tmpctrid,
                                           *__params->distFlag, *__params->methodFlag, transpose);
                    if (dist < dbest) {
                      kbest = ki;
                      dbest = dist;
                    }
                  }
                        /*-- save best data --*/
                  (clusterids_datap)[0+(__inc_clusterids_nr*(nr))] = kbest;
                  (cdist_datap)[0+(__inc_cdist_nr*(nr))]      = dbest;
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_attachtonearest_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    case PDL_LD: {
      PDL_DECLARE_PARAMS_attachtonearest_1(PDL_LDouble,E,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Double,D)
        {
          double **datapp  = (double **)pp_alloc(__privtrans->ind_sizes[2]);
          int    **maskpp  = (int    **)pp_alloc(__privtrans->ind_sizes[2]);
          double **cdatapp = (double **)pp_alloc(__privtrans->ind_sizes[1]);
          int    **cmaskpp = (int    **)pp_alloc(__privtrans->ind_sizes[1]);
          double *tmpdatapp[2];
          int    *tmpmaskpp[2];
          int    transpose=0;
            PDL_BROADCASTLOOP_START_attachtonearest_readdata
              int    tmprowid = 0;
              int    tmpctrid = 1;
              int    ni;
              int    ki, kbest;
              double dist, dbest;
                  p2pp_dbl(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], data_datap, datapp);
              p2pp_int(__privtrans->ind_sizes[2], __privtrans->ind_sizes[0], mask_datap, maskpp);
              p2pp_dbl(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cdata_datap, cdatapp);
              p2pp_int(__privtrans->ind_sizes[1], __privtrans->ind_sizes[0], cmask_datap, cmaskpp);
                  /*-- loop over all target rows --*/
              {/* Open nr */ PDL_EXPAND2(register PDL_Indx nr=0, __nr_stop=(__nr_size)); for(; nr<__nr_stop; nr+=1) {
                  ni = (rowids_datap)[0+(__inc_rowids_nr*(nr))];
                  tmpdatapp[tmprowid] = datapp[ni];
                  tmpmaskpp[tmprowid] = maskpp[ni];
                        /*-- initialize --*/
                  tmpdatapp[tmpctrid] = cdatapp[0];
                  tmpmaskpp[tmpctrid] = cmaskpp[0];
                  kbest = 0;
                  dbest = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                          1, 1, &tmprowid, &tmpctrid,
                                          *__params->distFlag, *__params->methodFlag, transpose);
                        /*-- loop over all centroids --*/
                  for (ki=1; ki < __privtrans->ind_sizes[1]; ki++) {
                    tmpdatapp[tmpctrid] = cdatapp[ki];
                    tmpmaskpp[tmpctrid] = cmaskpp[ki];
                            dist = clusterdistance(2, __privtrans->ind_sizes[0], tmpdatapp, tmpmaskpp, weight_datap,
                                           1, 1, &tmprowid, &tmpctrid,
                                           *__params->distFlag, *__params->methodFlag, transpose);
                    if (dist < dbest) {
                      kbest = ki;
                      dbest = dist;
                    }
                  }
                        /*-- save best data --*/
                  (clusterids_datap)[0+(__inc_clusterids_nr*(nr))] = kbest;
                  (cdist_datap)[0+(__inc_cdist_nr*(nr))]      = dbest;
                }} /* Close nr */
            PDL_BROADCASTLOOP_END_attachtonearest_readdata
            /*-- cleanup --*/
          if (datapp) free(datapp);
          if (maskpp) free(maskpp);
          if (cdatapp) free(cdatapp);
          if (cmaskpp) free(cmaskpp);
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in attachtonearest: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_attachtonearest_free(pdl_trans *__privtrans, char destroy) {
  pdl_error PDL_err = {0, NULL, 0};
#line 8980 "Cluster.xs"
  pdl_params_attachtonearest *__params = __privtrans->params; (void)__params;
  PDL_FREE_CODE(__privtrans, destroy, free(__params->distFlag); /* CType.get_free */
  free(__params->methodFlag); /* CType.get_free */
  , )  return PDL_err;
}

static pdl_datatypes pdl_attachtonearest_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
static PDL_Indx pdl_attachtonearest_vtable_realdims[] = { 2, 2, 1, 1, 2, 2, 1, 1 };
static char *pdl_attachtonearest_vtable_parnames[] = { "data","mask","weight","rowids","cdata","cmask","clusterids","cdist" };
static short pdl_attachtonearest_vtable_parflags[] = {
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_attachtonearest_vtable_partypes[] = { PDL_D, PDL_L, PDL_D, PDL_L, PDL_D, PDL_L, PDL_L, PDL_D };
static PDL_Indx pdl_attachtonearest_vtable_realdims_starts[] = { 0, 2, 4, 5, 6, 8, 10, 11 };
static PDL_Indx pdl_attachtonearest_vtable_realdims_ind_ids[] = { 0, 2, 0, 2, 0, 3, 0, 1, 0, 1, 3, 3 };
static char *pdl_attachtonearest_vtable_indnames[] = { "d","k","n","nr" };
pdl_transvtable pdl_attachtonearest_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_attachtonearest_vtable_gentypes, 6, 8, NULL /*CORE21*/,
  pdl_attachtonearest_vtable_realdims, pdl_attachtonearest_vtable_parnames,
  pdl_attachtonearest_vtable_parflags, pdl_attachtonearest_vtable_partypes,
  pdl_attachtonearest_vtable_realdims_starts, pdl_attachtonearest_vtable_realdims_ind_ids, 12,
  4, pdl_attachtonearest_vtable_indnames,
  NULL, pdl_attachtonearest_readdata, NULL,
  pdl_attachtonearest_free,
  sizeof(pdl_params_attachtonearest),"PDL::Cluster::attachtonearest"
};


pdl_error pdl_run_attachtonearest(pdl  *data,pdl  *mask,pdl  *weight,pdl  *rowids,pdl  *cdata,pdl  *cmask,pdl  *clusterids,pdl  *cdist,char  *distFlag,char  *methodFlag) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_attachtonearest_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_attachtonearest *__params = __privtrans->params;
  __privtrans->pdls[0] = data;
  __privtrans->pdls[1] = mask;
  __privtrans->pdls[2] = weight;
  __privtrans->pdls[3] = rowids;
  __privtrans->pdls[4] = cdata;
  __privtrans->pdls[5] = cmask;
  __privtrans->pdls[6] = clusterids;
  __privtrans->pdls[7] = cdist;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->distFlag) = malloc(strlen(distFlag)+1); strcpy(__params->distFlag,distFlag); /* CType.get_copy */
  (__params->methodFlag) = malloc(strlen(methodFlag)+1); strcpy(__params->methodFlag,methodFlag); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_checkprototypes {
#line 9039 "Cluster.xs"
  int  nsize;
} pdl_params_checkprototypes;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_checkprototypes_redodims(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 9047 "Cluster.xs"
  pdl_params_checkprototypes *__params = __privtrans->params; (void)__params;
  __privtrans->ind_sizes[1] = __params->nsize;
  PDL_RETERROR(PDL_err, PDL->redodims_default(__privtrans));
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_checkprototypes_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 9058 "Cluster.xs"
  pdl_params_checkprototypes *__params = __privtrans->params; (void)__params;
  register PDL_Indx __k_size = __privtrans->ind_sizes[0];
  register PDL_Indx __n_size = __privtrans->ind_sizes[1];
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in checkprototypes:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_protos = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_cprotos = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_otmp = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc1_protos = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_cprotos = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_otmp = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  #define PDL_BROADCASTLOOP_START_checkprototypes_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    protos_datap += __offsp[0]; \
    cprotos_datap += __offsp[1]; \
    otmp_datap += __offsp[2]; \
    , \
    (  ,protos_datap += __tinc1_protos - __tinc0_protos * __tdims0 \
    ,cprotos_datap += __tinc1_cprotos - __tinc0_cprotos * __tdims0 \
    ,otmp_datap += __tinc1_otmp - __tinc0_otmp * __tdims0 \
    ), \
    (  ,protos_datap += __tinc0_protos \
    ,cprotos_datap += __tinc0_cprotos \
    ,otmp_datap += __tinc0_otmp \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_checkprototypes_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    protos_datap -= __tinc1_protos * __tdims1 + __offsp[0]; \
    cprotos_datap -= __tinc1_cprotos * __tdims1 + __offsp[1]; \
    otmp_datap -= __tinc1_otmp * __tdims1 + __offsp[2]; \
  )
  register PDL_Indx __inc_cprotos_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_cprotos_k;
  register PDL_Indx __inc_otmp_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_otmp_n;
  register PDL_Indx __inc_protos_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_protos_k;
  #ifndef PDL_DECLARE_PARAMS_checkprototypes_1
  #define PDL_DECLARE_PARAMS_checkprototypes_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_otmp,PDL_PPSYM_PARAM_otmp) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_OP, protos, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_OP, cprotos, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_otmp, otmp, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_otmp)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_B: {
      PDL_DECLARE_PARAMS_checkprototypes_1(PDL_Byte,B,PDL_Byte,B)
        {
         /*-- sanity check --*/
         if (__privtrans->ind_sizes[0] > __privtrans->ind_sizes[1]) {
           barf("checkprototypes(): number of prototypes \"k\" (=%d) must be <= number of objects \"n\" (=%d)!\n",
                __privtrans->ind_sizes[0], __privtrans->ind_sizes[1]);
         }
         PDL_BROADCASTLOOP_START_checkprototypes_readdata
             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {   (otmp_datap)[0+(__inc_otmp_n*(n))] = 0; }} /* Close n */
             {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                 int protoi = (protos_datap)[0+(__inc_protos_k*(k))];
                 for (; (otmp_datap)[0+(__inc_otmp_n*(protoi))]; protoi = (protoi+1)%__privtrans->ind_sizes[1]) { ; }
                 (cprotos_datap)[0+(__inc_cprotos_k*(k))] = protoi;
                 (otmp_datap)[0+(__inc_otmp_n*(protoi))] = 1;
               }} /* Close k */
           PDL_BROADCASTLOOP_END_checkprototypes_readdata
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_checkprototypes_1(PDL_Short,S,PDL_Byte,B)
        {
         /*-- sanity check --*/
         if (__privtrans->ind_sizes[0] > __privtrans->ind_sizes[1]) {
           barf("checkprototypes(): number of prototypes \"k\" (=%d) must be <= number of objects \"n\" (=%d)!\n",
                __privtrans->ind_sizes[0], __privtrans->ind_sizes[1]);
         }
         PDL_BROADCASTLOOP_START_checkprototypes_readdata
             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {   (otmp_datap)[0+(__inc_otmp_n*(n))] = 0; }} /* Close n */
             {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                 int protoi = (protos_datap)[0+(__inc_protos_k*(k))];
                 for (; (otmp_datap)[0+(__inc_otmp_n*(protoi))]; protoi = (protoi+1)%__privtrans->ind_sizes[1]) { ; }
                 (cprotos_datap)[0+(__inc_cprotos_k*(k))] = protoi;
                 (otmp_datap)[0+(__inc_otmp_n*(protoi))] = 1;
               }} /* Close k */
           PDL_BROADCASTLOOP_END_checkprototypes_readdata
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_checkprototypes_1(PDL_Ushort,U,PDL_Byte,B)
        {
         /*-- sanity check --*/
         if (__privtrans->ind_sizes[0] > __privtrans->ind_sizes[1]) {
           barf("checkprototypes(): number of prototypes \"k\" (=%d) must be <= number of objects \"n\" (=%d)!\n",
                __privtrans->ind_sizes[0], __privtrans->ind_sizes[1]);
         }
         PDL_BROADCASTLOOP_START_checkprototypes_readdata
             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {   (otmp_datap)[0+(__inc_otmp_n*(n))] = 0; }} /* Close n */
             {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                 int protoi = (protos_datap)[0+(__inc_protos_k*(k))];
                 for (; (otmp_datap)[0+(__inc_otmp_n*(protoi))]; protoi = (protoi+1)%__privtrans->ind_sizes[1]) { ; }
                 (cprotos_datap)[0+(__inc_cprotos_k*(k))] = protoi;
                 (otmp_datap)[0+(__inc_otmp_n*(protoi))] = 1;
               }} /* Close k */
           PDL_BROADCASTLOOP_END_checkprototypes_readdata
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_checkprototypes_1(PDL_Long,L,PDL_Byte,B)
        {
         /*-- sanity check --*/
         if (__privtrans->ind_sizes[0] > __privtrans->ind_sizes[1]) {
           barf("checkprototypes(): number of prototypes \"k\" (=%d) must be <= number of objects \"n\" (=%d)!\n",
                __privtrans->ind_sizes[0], __privtrans->ind_sizes[1]);
         }
         PDL_BROADCASTLOOP_START_checkprototypes_readdata
             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {   (otmp_datap)[0+(__inc_otmp_n*(n))] = 0; }} /* Close n */
             {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {
                 int protoi = (protos_datap)[0+(__inc_protos_k*(k))];
                 for (; (otmp_datap)[0+(__inc_otmp_n*(protoi))]; protoi = (protoi+1)%__privtrans->ind_sizes[1]) { ; }
                 (cprotos_datap)[0+(__inc_cprotos_k*(k))] = protoi;
                 (otmp_datap)[0+(__inc_otmp_n*(protoi))] = 1;
               }} /* Close k */
           PDL_BROADCASTLOOP_END_checkprototypes_readdata
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in checkprototypes: unhandled datatype(%d), only handles (BSUL)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}

static pdl_datatypes pdl_checkprototypes_vtable_gentypes[] = { PDL_B, PDL_S, PDL_US, PDL_L, -1 };
static PDL_Indx pdl_checkprototypes_vtable_realdims[] = { 1, 1, 1 };
static char *pdl_checkprototypes_vtable_parnames[] = { "protos","cprotos","otmp" };
static short pdl_checkprototypes_vtable_parflags[] = {
  0,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISWRITE,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISTEMP|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_checkprototypes_vtable_partypes[] = { -1, -1, PDL_B };
static PDL_Indx pdl_checkprototypes_vtable_realdims_starts[] = { 0, 1, 2 };
static PDL_Indx pdl_checkprototypes_vtable_realdims_ind_ids[] = { 0, 0, 1 };
static char *pdl_checkprototypes_vtable_indnames[] = { "k","n" };
pdl_transvtable pdl_checkprototypes_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_checkprototypes_vtable_gentypes, 1, 3, NULL /*CORE21*/,
  pdl_checkprototypes_vtable_realdims, pdl_checkprototypes_vtable_parnames,
  pdl_checkprototypes_vtable_parflags, pdl_checkprototypes_vtable_partypes,
  pdl_checkprototypes_vtable_realdims_starts, pdl_checkprototypes_vtable_realdims_ind_ids, 3,
  2, pdl_checkprototypes_vtable_indnames,
  pdl_checkprototypes_redodims, pdl_checkprototypes_readdata, NULL,
  NULL,
  sizeof(pdl_params_checkprototypes),"PDL::Cluster::checkprototypes"
};


pdl_error pdl_run_checkprototypes(pdl  *protos,pdl  *cprotos,int  nsize) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_checkprototypes_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_checkprototypes *__params = __privtrans->params;
  __privtrans->pdls[0] = protos;
  __privtrans->pdls[1] = cprotos;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->nsize) = (nsize); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_checkpartitions {
#line 9230 "Cluster.xs"
  int  ksize;
} pdl_params_checkpartitions;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_checkpartitions_redodims(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 9238 "Cluster.xs"
  pdl_params_checkpartitions *__params = __privtrans->params; (void)__params;
  __privtrans->ind_sizes[0] = __params->ksize;
  PDL_RETERROR(PDL_err, PDL->redodims_default(__privtrans));
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_checkpartitions_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 9249 "Cluster.xs"
  pdl_params_checkpartitions *__params = __privtrans->params; (void)__params;
  register PDL_Indx __k_size = __privtrans->ind_sizes[0];
  register PDL_Indx __n_size = __privtrans->ind_sizes[1];
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in checkpartitions:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_part = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_cpart = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_ptmp = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc1_part = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_cpart = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_ptmp = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  #define PDL_BROADCASTLOOP_START_checkpartitions_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    part_datap += __offsp[0]; \
    cpart_datap += __offsp[1]; \
    ptmp_datap += __offsp[2]; \
    , \
    (  ,part_datap += __tinc1_part - __tinc0_part * __tdims0 \
    ,cpart_datap += __tinc1_cpart - __tinc0_cpart * __tdims0 \
    ,ptmp_datap += __tinc1_ptmp - __tinc0_ptmp * __tdims0 \
    ), \
    (  ,part_datap += __tinc0_part \
    ,cpart_datap += __tinc0_cpart \
    ,ptmp_datap += __tinc0_ptmp \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_checkpartitions_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    part_datap -= __tinc1_part * __tdims1 + __offsp[0]; \
    cpart_datap -= __tinc1_cpart * __tdims1 + __offsp[1]; \
    ptmp_datap -= __tinc1_ptmp * __tdims1 + __offsp[2]; \
  )
  register PDL_Indx __inc_cpart_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_cpart_n;
  register PDL_Indx __inc_part_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_part_n;
  register PDL_Indx __inc_ptmp_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_ptmp_k;
  #ifndef PDL_DECLARE_PARAMS_checkpartitions_1
  #define PDL_DECLARE_PARAMS_checkpartitions_1(PDL_TYPE_OP,PDL_PPSYM_OP) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_OP, part, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_OP, cpart, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_OP, ptmp, (__privtrans->pdls[2]), 1, PDL_PPSYM_OP)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_B: {
      PDL_DECLARE_PARAMS_checkpartitions_1(PDL_Byte,B)
        {
         /*-- sanity check --*/
         if (__privtrans->ind_sizes[0] > __privtrans->ind_sizes[1]) {
           barf("checkpartitions(): number of partitions \"k\" (=%d) must be <= number of objects \"n\" (=%d)!\n",
                __privtrans->ind_sizes[0], __privtrans->ind_sizes[1]);
         }
         PDL_BROADCASTLOOP_START_checkpartitions_readdata
             int ni, ki, kj;
             {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (ptmp_datap)[0+(__inc_ptmp_k*(k))] = 0; }} /* Close k */
             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                 ki = (part_datap)[0+(__inc_part_n*(n))];
                 (cpart_datap)[0+(__inc_cpart_n*(n))] = ki;
                 (ptmp_datap)[0+(__inc_ptmp_k*(ki))] += 1;
               }} /* Close n */
             ni = 0;
             for (ki=0; ki < __privtrans->ind_sizes[0]; ki++) {
               if (!(ptmp_datap)[0+(__inc_ptmp_k*(ki))]) {
                 for (; 1; ni = (ni+1)%__privtrans->ind_sizes[1]) {
          	 kj = (cpart_datap)[0+(__inc_cpart_n*(ni))];
          	 if ((ptmp_datap)[0+(__inc_ptmp_k*(kj))] > 1) break;
                 }
                 (cpart_datap)[0+(__inc_cpart_n*(ni))]   = ki;
                 (ptmp_datap)[0+(__inc_ptmp_k*(ki))] += 1;
                 (ptmp_datap)[0+(__inc_ptmp_k*(kj))] -= 1;
               }
             }
           PDL_BROADCASTLOOP_END_checkpartitions_readdata
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_checkpartitions_1(PDL_Short,S)
        {
         /*-- sanity check --*/
         if (__privtrans->ind_sizes[0] > __privtrans->ind_sizes[1]) {
           barf("checkpartitions(): number of partitions \"k\" (=%d) must be <= number of objects \"n\" (=%d)!\n",
                __privtrans->ind_sizes[0], __privtrans->ind_sizes[1]);
         }
         PDL_BROADCASTLOOP_START_checkpartitions_readdata
             int ni, ki, kj;
             {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (ptmp_datap)[0+(__inc_ptmp_k*(k))] = 0; }} /* Close k */
             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                 ki = (part_datap)[0+(__inc_part_n*(n))];
                 (cpart_datap)[0+(__inc_cpart_n*(n))] = ki;
                 (ptmp_datap)[0+(__inc_ptmp_k*(ki))] += 1;
               }} /* Close n */
             ni = 0;
             for (ki=0; ki < __privtrans->ind_sizes[0]; ki++) {
               if (!(ptmp_datap)[0+(__inc_ptmp_k*(ki))]) {
                 for (; 1; ni = (ni+1)%__privtrans->ind_sizes[1]) {
          	 kj = (cpart_datap)[0+(__inc_cpart_n*(ni))];
          	 if ((ptmp_datap)[0+(__inc_ptmp_k*(kj))] > 1) break;
                 }
                 (cpart_datap)[0+(__inc_cpart_n*(ni))]   = ki;
                 (ptmp_datap)[0+(__inc_ptmp_k*(ki))] += 1;
                 (ptmp_datap)[0+(__inc_ptmp_k*(kj))] -= 1;
               }
             }
           PDL_BROADCASTLOOP_END_checkpartitions_readdata
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_checkpartitions_1(PDL_Ushort,U)
        {
         /*-- sanity check --*/
         if (__privtrans->ind_sizes[0] > __privtrans->ind_sizes[1]) {
           barf("checkpartitions(): number of partitions \"k\" (=%d) must be <= number of objects \"n\" (=%d)!\n",
                __privtrans->ind_sizes[0], __privtrans->ind_sizes[1]);
         }
         PDL_BROADCASTLOOP_START_checkpartitions_readdata
             int ni, ki, kj;
             {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (ptmp_datap)[0+(__inc_ptmp_k*(k))] = 0; }} /* Close k */
             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                 ki = (part_datap)[0+(__inc_part_n*(n))];
                 (cpart_datap)[0+(__inc_cpart_n*(n))] = ki;
                 (ptmp_datap)[0+(__inc_ptmp_k*(ki))] += 1;
               }} /* Close n */
             ni = 0;
             for (ki=0; ki < __privtrans->ind_sizes[0]; ki++) {
               if (!(ptmp_datap)[0+(__inc_ptmp_k*(ki))]) {
                 for (; 1; ni = (ni+1)%__privtrans->ind_sizes[1]) {
          	 kj = (cpart_datap)[0+(__inc_cpart_n*(ni))];
          	 if ((ptmp_datap)[0+(__inc_ptmp_k*(kj))] > 1) break;
                 }
                 (cpart_datap)[0+(__inc_cpart_n*(ni))]   = ki;
                 (ptmp_datap)[0+(__inc_ptmp_k*(ki))] += 1;
                 (ptmp_datap)[0+(__inc_ptmp_k*(kj))] -= 1;
               }
             }
           PDL_BROADCASTLOOP_END_checkpartitions_readdata
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_checkpartitions_1(PDL_Long,L)
        {
         /*-- sanity check --*/
         if (__privtrans->ind_sizes[0] > __privtrans->ind_sizes[1]) {
           barf("checkpartitions(): number of partitions \"k\" (=%d) must be <= number of objects \"n\" (=%d)!\n",
                __privtrans->ind_sizes[0], __privtrans->ind_sizes[1]);
         }
         PDL_BROADCASTLOOP_START_checkpartitions_readdata
             int ni, ki, kj;
             {/* Open k */ PDL_EXPAND2(register PDL_Indx k=0, __k_stop=(__k_size)); for(; k<__k_stop; k+=1) {   (ptmp_datap)[0+(__inc_ptmp_k*(k))] = 0; }} /* Close k */
             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
                 ki = (part_datap)[0+(__inc_part_n*(n))];
                 (cpart_datap)[0+(__inc_cpart_n*(n))] = ki;
                 (ptmp_datap)[0+(__inc_ptmp_k*(ki))] += 1;
               }} /* Close n */
             ni = 0;
             for (ki=0; ki < __privtrans->ind_sizes[0]; ki++) {
               if (!(ptmp_datap)[0+(__inc_ptmp_k*(ki))]) {
                 for (; 1; ni = (ni+1)%__privtrans->ind_sizes[1]) {
          	 kj = (cpart_datap)[0+(__inc_cpart_n*(ni))];
          	 if ((ptmp_datap)[0+(__inc_ptmp_k*(kj))] > 1) break;
                 }
                 (cpart_datap)[0+(__inc_cpart_n*(ni))]   = ki;
                 (ptmp_datap)[0+(__inc_ptmp_k*(ki))] += 1;
                 (ptmp_datap)[0+(__inc_ptmp_k*(kj))] -= 1;
               }
             }
           PDL_BROADCASTLOOP_END_checkpartitions_readdata
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in checkpartitions: unhandled datatype(%d), only handles (BSUL)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}

static pdl_datatypes pdl_checkpartitions_vtable_gentypes[] = { PDL_B, PDL_S, PDL_US, PDL_L, -1 };
static PDL_Indx pdl_checkpartitions_vtable_realdims[] = { 1, 1, 1 };
static char *pdl_checkpartitions_vtable_parnames[] = { "part","cpart","ptmp" };
static short pdl_checkpartitions_vtable_parflags[] = {
  0,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISWRITE,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISTEMP|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_checkpartitions_vtable_partypes[] = { -1, -1, -1 };
static PDL_Indx pdl_checkpartitions_vtable_realdims_starts[] = { 0, 1, 2 };
static PDL_Indx pdl_checkpartitions_vtable_realdims_ind_ids[] = { 1, 1, 0 };
static char *pdl_checkpartitions_vtable_indnames[] = { "k","n" };
pdl_transvtable pdl_checkpartitions_vtable = {
  PDL_TRANS_DO_BROADCAST, 0, pdl_checkpartitions_vtable_gentypes, 1, 3, NULL /*CORE21*/,
  pdl_checkpartitions_vtable_realdims, pdl_checkpartitions_vtable_parnames,
  pdl_checkpartitions_vtable_parflags, pdl_checkpartitions_vtable_partypes,
  pdl_checkpartitions_vtable_realdims_starts, pdl_checkpartitions_vtable_realdims_ind_ids, 3,
  2, pdl_checkpartitions_vtable_indnames,
  pdl_checkpartitions_redodims, pdl_checkpartitions_readdata, NULL,
  NULL,
  sizeof(pdl_params_checkpartitions),"PDL::Cluster::checkpartitions"
};


pdl_error pdl_run_checkpartitions(pdl  *part,pdl  *cpart,int  ksize) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_checkpartitions_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_checkpartitions *__params = __privtrans->params;
  __privtrans->pdls[0] = part;
  __privtrans->pdls[1] = cpart;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->ksize) = (ksize); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}

#line 449 "lib/PDL/PP.pm"
#include "pdlperl.h"
#line 9469 "Cluster.xs"

Core* PDL = NULL; /* Structure hold core C functions */

MODULE = PDL::Cluster PACKAGE = PDL PREFIX=pdl_run_

PROTOTYPES: DISABLE


MODULE = PDL::Cluster PACKAGE = PDL::Cluster


char *
library_version()
 CODE:
   RETVAL = CLUSTERVERSION;
 OUTPUT:
   RETVAL


MODULE = PDL::Cluster PACKAGE = PDL PREFIX=pdl_run_


void
pdl_run_cmean(a, b=PDL_XS_PERLINIT_initsv(b_SV))
  SV *b_SV = items > 1 ? ST(1) : NULL;
 PREINIT:
  PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
 INPUT:
  pdl *a
  pdl *b
 PPCODE:
  PDL->barf_if_error(pdl_run_cmean(a,b));
  PDL_XS_RETURN(ST(0) = b_SV)

void
pdl_run_cmedian(a, b=PDL_XS_PERLINIT_initsv(b_SV))
  SV *b_SV = items > 1 ? ST(1) : NULL;
 PREINIT:
  PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
 INPUT:
  pdl *a
  pdl *b
 PPCODE:
  PDL->barf_if_error(pdl_run_cmedian(a,b));
  PDL_XS_RETURN(ST(0) = b_SV)

void
pdl_run_calculate_weights(data, mask, weight, cutoff, exponent, oweights=oweights, distFlag=distFlag)
  SV *oweights_SV = (items == 7) ? ST(5) : NULL;
  SV *distFlag_SV = (items == 7) ? ST(6) : ST(5);
 PREINIT:
  PDL_XS_PREAMBLE((items == 7) ? 0 : 1);
  if (!((items == 6) || (items == 7)))
    croak("Usage: PDL::calculate_weights(data,mask,weight,cutoff,exponent,[oweights],distFlag) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *data
  pdl *mask
  pdl *weight
  pdl *cutoff
  pdl *exponent
  pdl *oweights=NO_INIT
  char  *distFlag; { distFlag = (char *)SvPV_nolen(distFlag_SV); }
 PPCODE:
  if (oweights_SV) { oweights = PDL_CORE_(SvPDLV)(oweights_SV); } else oweights = PDL_XS_PERLINIT_initsv(oweights_SV);
  PDL->barf_if_error(pdl_run_calculate_weights(data,mask,weight,cutoff,exponent,oweights,distFlag));
  PDL_XS_RETURN(ST(0) = oweights_SV)

void
pdl_run_clusterdistance(data, mask, weight, n1, n2, index1, index2, dist=dist, distFlag=distFlag, methodFlag=methodFlag)
  SV *dist_SV = (items == 10) ? ST(7) : NULL;
  SV *distFlag_SV = (items == 10) ? ST(8) : ST(7);
  SV *methodFlag_SV = (items == 10) ? ST(9) : ST(8);
 PREINIT:
  PDL_XS_PREAMBLE((items == 10) ? 0 : 1);
  if (!((items == 10) || (items == 9)))
    croak("Usage: PDL::clusterdistance(data,mask,weight,n1,n2,index1,index2,[dist],distFlag,methodFlag) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *data
  pdl *mask
  pdl *weight
  pdl *n1
  pdl *n2
  pdl *index1
  pdl *index2
  pdl *dist=NO_INIT
  char  *distFlag; { distFlag = (char *)SvPV_nolen(distFlag_SV); }
  char  *methodFlag; { methodFlag = (char *)SvPV_nolen(methodFlag_SV); }
 PPCODE:
  if (dist_SV) { dist = PDL_CORE_(SvPDLV)(dist_SV); } else dist = PDL_XS_PERLINIT_initsv(dist_SV);
  PDL->barf_if_error(pdl_run_clusterdistance(data,mask,weight,n1,n2,index1,index2,dist,distFlag,methodFlag));
  PDL_XS_RETURN(ST(0) = dist_SV)

void
pdl_run_distancematrix(data, mask, weight, dists=dists, distFlag=distFlag)
  SV *dists_SV = (items == 5) ? ST(3) : NULL;
  SV *distFlag_SV = (items == 5) ? ST(4) : ST(3);
 PREINIT:
  PDL_XS_PREAMBLE((items == 5) ? 0 : 1);
  if (!((items == 4) || (items == 5)))
    croak("Usage: PDL::distancematrix(data,mask,weight,[dists],distFlag) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *data
  pdl *mask
  pdl *weight
  pdl *dists=NO_INIT
  char  *distFlag; { distFlag = (char *)SvPV_nolen(distFlag_SV); }
 PPCODE:
  if (dists_SV) { dists = PDL_CORE_(SvPDLV)(dists_SV); } else dists = PDL_XS_PERLINIT_initsv(dists_SV);
  PDL->barf_if_error(pdl_run_distancematrix(data,mask,weight,dists,distFlag));
  PDL_XS_RETURN(ST(0) = dists_SV)

void
pdl_run_getclustercentroids(data, mask, clusterids, cdata=cdata, cmask=cmask, ctrMethodFlag=ctrMethodFlag)
  SV *cdata_SV = (items == 6) ? ST(3) : NULL;
  SV *cmask_SV = (items == 6) ? ST(4) : NULL;
  SV *ctrMethodFlag_SV = (items == 6) ? ST(5) : ST(3);
 PREINIT:
  PDL_XS_PREAMBLE((items == 6) ? 0 : 2);
  if (!((items == 4) || (items == 6)))
    croak("Usage: PDL::getclustercentroids(data,mask,clusterids,[cdata],[cmask],ctrMethodFlag) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *data
  pdl *mask
  pdl *clusterids
  pdl *cdata=NO_INIT
  pdl *cmask=NO_INIT
  char  *ctrMethodFlag; { ctrMethodFlag = (char *)SvPV_nolen(ctrMethodFlag_SV); }
 PPCODE:
  if (cdata_SV) { cdata = PDL_CORE_(SvPDLV)(cdata_SV); } else cdata = PDL_XS_PERLINIT_initsv(cdata_SV);
  if (cmask_SV) { cmask = PDL_CORE_(SvPDLV)(cmask_SV); } else cmask = PDL_XS_PERLINIT_initsv(cmask_SV);
  PDL->barf_if_error(pdl_run_getclustercentroids(data,mask,clusterids,cdata,cmask,ctrMethodFlag));
  PDL_XS_RETURN(ST(0) = cdata_SV;ST(1) = cmask_SV)

void
pdl_run_getclustermedoids(distance, clusterids, centroids=PDL_XS_PERLINIT_initsv(centroids_SV), errors=PDL_XS_PERLINIT_initsv(errors_SV))
  SV *centroids_SV = items > 2 ? ST(2) : NULL;
  SV *errors_SV = items > 3 ? ST(3) : NULL;
 PREINIT:
  PDL_XS_PREAMBLE((items == 4) ? 0 : 2);
 INPUT:
  pdl *distance
  pdl *clusterids
  pdl *centroids
  pdl *errors
 PPCODE:
  PDL->barf_if_error(pdl_run_getclustermedoids(distance,clusterids,centroids,errors));
  PDL_XS_RETURN(ST(0) = centroids_SV;ST(1) = errors_SV)

void
pdl_run_kcluster(nclusters, data, mask, weight, npass, clusterids=clusterids, error=error, nfound=nfound, distFlag=distFlag, ctrMethodFlag=ctrMethodFlag)
  SV *clusterids_SV = (items == 10) ? ST(5) : NULL;
  SV *error_SV = (items == 10) ? ST(6) : NULL;
  SV *nfound_SV = (items == 10) ? ST(7) : NULL;
  SV *distFlag_SV = (items == 10) ? ST(8) : ST(5);
  SV *ctrMethodFlag_SV = (items == 10) ? ST(9) : ST(6);
 PREINIT:
  PDL_XS_PREAMBLE((items == 10) ? 0 : 3);
  if (!((items == 10) || (items == 7)))
    croak("Usage: PDL::kcluster(nclusters,data,mask,weight,npass,[clusterids],[error],[nfound],distFlag,ctrMethodFlag) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *nclusters
  pdl *data
  pdl *mask
  pdl *weight
  pdl *npass
  pdl *clusterids=NO_INIT
  pdl *error=NO_INIT
  pdl *nfound=NO_INIT
  char  *distFlag; { distFlag = (char *)SvPV_nolen(distFlag_SV); }
  char  *ctrMethodFlag; { ctrMethodFlag = (char *)SvPV_nolen(ctrMethodFlag_SV); }
 PPCODE:
  if (clusterids_SV) { clusterids = PDL_CORE_(SvPDLV)(clusterids_SV); } else clusterids = PDL_XS_PERLINIT_initsv(clusterids_SV);
  if (error_SV) { error = PDL_CORE_(SvPDLV)(error_SV); } else error = PDL_XS_PERLINIT_initsv(error_SV);
  if (nfound_SV) { nfound = PDL_CORE_(SvPDLV)(nfound_SV); } else nfound = PDL_XS_PERLINIT_initsv(nfound_SV);
  PDL->barf_if_error(pdl_run_kcluster(nclusters,data,mask,weight,npass,clusterids,error,nfound,distFlag,ctrMethodFlag));
  PDL_XS_RETURN(ST(0) = clusterids_SV;ST(1) = error_SV;ST(2) = nfound_SV)

void
pdl_run_kmedoids(nclusters, distance, npass, clusterids=PDL_XS_PERLINIT_initsv(clusterids_SV), error=PDL_XS_PERLINIT_initsv(error_SV), nfound=PDL_XS_PERLINIT_initsv(nfound_SV))
  SV *clusterids_SV = items > 3 ? ST(3) : NULL;
  SV *error_SV = items > 4 ? ST(4) : NULL;
  SV *nfound_SV = items > 5 ? ST(5) : NULL;
 PREINIT:
  PDL_XS_PREAMBLE((items == 6) ? 0 : 3);
 INPUT:
  pdl *nclusters
  pdl *distance
  pdl *npass
  pdl *clusterids
  pdl *error
  pdl *nfound
 PPCODE:
  PDL->barf_if_error(pdl_run_kmedoids(nclusters,distance,npass,clusterids,error,nfound));
  PDL_XS_RETURN(ST(0) = clusterids_SV;ST(1) = error_SV;ST(2) = nfound_SV)

void
pdl_run_treecluster(data, mask, weight, tree=tree, lnkdist=lnkdist, distFlag=distFlag, methodFlag=methodFlag)
  SV *tree_SV = (items == 7) ? ST(3) : NULL;
  SV *lnkdist_SV = (items == 7) ? ST(4) : NULL;
  SV *distFlag_SV = (items == 7) ? ST(5) : ST(3);
  SV *methodFlag_SV = (items == 7) ? ST(6) : ST(4);
 PREINIT:
  PDL_XS_PREAMBLE((items == 7) ? 0 : 2);
  if (!((items == 5) || (items == 7)))
    croak("Usage: PDL::treecluster(data,mask,weight,[tree],[lnkdist],distFlag,methodFlag) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *data
  pdl *mask
  pdl *weight
  pdl *tree=NO_INIT
  pdl *lnkdist=NO_INIT
  char  *distFlag; { distFlag = (char *)SvPV_nolen(distFlag_SV); }
  char  *methodFlag; { methodFlag = (char *)SvPV_nolen(methodFlag_SV); }
 PPCODE:
  if (tree_SV) { tree = PDL_CORE_(SvPDLV)(tree_SV); } else tree = PDL_XS_PERLINIT_initsv(tree_SV);
  if (lnkdist_SV) { lnkdist = PDL_CORE_(SvPDLV)(lnkdist_SV); } else lnkdist = PDL_XS_PERLINIT_initsv(lnkdist_SV);
  PDL->barf_if_error(pdl_run_treecluster(data,mask,weight,tree,lnkdist,distFlag,methodFlag));
  PDL_XS_RETURN(ST(0) = tree_SV;ST(1) = lnkdist_SV)

void
pdl_run_treeclusterd(data, mask, weight, distances, tree=tree, lnkdist=lnkdist, distFlag=distFlag, methodFlag=methodFlag)
  SV *tree_SV = (items == 8) ? ST(4) : NULL;
  SV *lnkdist_SV = (items == 8) ? ST(5) : NULL;
  SV *distFlag_SV = (items == 8) ? ST(6) : ST(4);
  SV *methodFlag_SV = (items == 8) ? ST(7) : ST(5);
 PREINIT:
  PDL_XS_PREAMBLE((items == 8) ? 0 : 2);
  if (!((items == 6) || (items == 8)))
    croak("Usage: PDL::treeclusterd(data,mask,weight,distances,[tree],[lnkdist],distFlag,methodFlag) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *data
  pdl *mask
  pdl *weight
  pdl *distances
  pdl *tree=NO_INIT
  pdl *lnkdist=NO_INIT
  char  *distFlag; { distFlag = (char *)SvPV_nolen(distFlag_SV); }
  char  *methodFlag; { methodFlag = (char *)SvPV_nolen(methodFlag_SV); }
 PPCODE:
  if (tree_SV) { tree = PDL_CORE_(SvPDLV)(tree_SV); } else tree = PDL_XS_PERLINIT_initsv(tree_SV);
  if (lnkdist_SV) { lnkdist = PDL_CORE_(SvPDLV)(lnkdist_SV); } else lnkdist = PDL_XS_PERLINIT_initsv(lnkdist_SV);
  PDL->barf_if_error(pdl_run_treeclusterd(data,mask,weight,distances,tree,lnkdist,distFlag,methodFlag));
  PDL_XS_RETURN(ST(0) = tree_SV;ST(1) = lnkdist_SV)

void
pdl_run_cuttree(tree, nclusters, clusterids=PDL_XS_PERLINIT_initsv(clusterids_SV))
  SV *clusterids_SV = items > 2 ? ST(2) : NULL;
 PREINIT:
  PDL_XS_PREAMBLE((items == 3) ? 0 : 1);
 INPUT:
  pdl *tree
  pdl *nclusters
  pdl *clusterids
 PPCODE:
  PDL->barf_if_error(pdl_run_cuttree(tree,nclusters,clusterids));
  PDL_XS_RETURN(ST(0) = clusterids_SV)

void
pdl_run_somcluster(data, mask, weight, nxnodes, nynodes, inittau, niter, clusterids=clusterids, distFlag=distFlag)
  SV *clusterids_SV = (items == 9) ? ST(7) : NULL;
  SV *distFlag_SV = (items == 9) ? ST(8) : ST(7);
 PREINIT:
  PDL_XS_PREAMBLE((items == 9) ? 0 : 1);
  if (!((items == 8) || (items == 9)))
    croak("Usage: PDL::somcluster(data,mask,weight,nxnodes,nynodes,inittau,niter,[clusterids],distFlag) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *data
  pdl *mask
  pdl *weight
  pdl *nxnodes
  pdl *nynodes
  pdl *inittau
  pdl *niter
  pdl *clusterids=NO_INIT
  char  *distFlag; { distFlag = (char *)SvPV_nolen(distFlag_SV); }
 PPCODE:
  if (clusterids_SV) { clusterids = PDL_CORE_(SvPDLV)(clusterids_SV); } else clusterids = PDL_XS_PERLINIT_initsv(clusterids_SV);
  PDL->barf_if_error(pdl_run_somcluster(data,mask,weight,nxnodes,nynodes,inittau,niter,clusterids,distFlag));
  PDL_XS_RETURN(ST(0) = clusterids_SV)

void
pdl_run_pca(U=PDL_XS_PERLINIT_initsv(U_SV), S=PDL_XS_PERLINIT_initsv(S_SV), V=PDL_XS_PERLINIT_initsv(V_SV))
  SV *U_SV = items > 0 ? ST(0) : NULL;
  SV *S_SV = items > 1 ? ST(1) : NULL;
  SV *V_SV = items > 2 ? ST(2) : NULL;
 PREINIT:
  PDL_XS_PREAMBLE((items == 3) ? 0 : 3);
 INPUT:
  pdl *U
  pdl *S
  pdl *V
 PPCODE:
  PDL->barf_if_error(pdl_run_pca(U,S,V));
  PDL_XS_RETURN(ST(0) = U_SV;ST(1) = S_SV;ST(2) = V_SV)

void
pdl_run_rowdistances(data, mask, weight, rowids1, rowids2, dist=dist, distFlag=distFlag)
  SV *dist_SV = (items == 7) ? ST(5) : NULL;
  SV *distFlag_SV = (items == 7) ? ST(6) : ST(5);
 PREINIT:
  PDL_XS_PREAMBLE((items == 7) ? 0 : 1);
  if (!((items == 6) || (items == 7)))
    croak("Usage: PDL::rowdistances(data,mask,weight,rowids1,rowids2,[dist],distFlag) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *data
  pdl *mask
  pdl *weight
  pdl *rowids1
  pdl *rowids2
  pdl *dist=NO_INIT
  char  *distFlag; { distFlag = (char *)SvPV_nolen(distFlag_SV); }
 PPCODE:
  if (dist_SV) { dist = PDL_CORE_(SvPDLV)(dist_SV); } else dist = PDL_XS_PERLINIT_initsv(dist_SV);
  PDL->barf_if_error(pdl_run_rowdistances(data,mask,weight,rowids1,rowids2,dist,distFlag));
  PDL_XS_RETURN(ST(0) = dist_SV)

void
pdl_run_clusterdistances(data, mask, weight, rowids, index2, dist=dist, distFlag=distFlag, methodFlag=methodFlag)
  SV *dist_SV = (items == 8) ? ST(5) : NULL;
  SV *distFlag_SV = (items == 8) ? ST(6) : ST(5);
  SV *methodFlag_SV = (items == 8) ? ST(7) : ST(6);
 PREINIT:
  PDL_XS_PREAMBLE((items == 8) ? 0 : 1);
  if (!((items == 7) || (items == 8)))
    croak("Usage: PDL::clusterdistances(data,mask,weight,rowids,index2,[dist],distFlag,methodFlag) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *data
  pdl *mask
  pdl *weight
  pdl *rowids
  pdl *index2
  pdl *dist=NO_INIT
  char  *distFlag; { distFlag = (char *)SvPV_nolen(distFlag_SV); }
  char  *methodFlag; { methodFlag = (char *)SvPV_nolen(methodFlag_SV); }
 PPCODE:
  if (dist_SV) { dist = PDL_CORE_(SvPDLV)(dist_SV); } else dist = PDL_XS_PERLINIT_initsv(dist_SV);
  PDL->barf_if_error(pdl_run_clusterdistances(data,mask,weight,rowids,index2,dist,distFlag,methodFlag));
  PDL_XS_RETURN(ST(0) = dist_SV)

void
pdl_run_clustersizes(clusterids, clustersizes=PDL_XS_PERLINIT_initsv(clustersizes_SV))
  SV *clustersizes_SV = items > 1 ? ST(1) : NULL;
 PREINIT:
  PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
 INPUT:
  pdl *clusterids
  pdl *clustersizes
 PPCODE:
  PDL->barf_if_error(pdl_run_clustersizes(clusterids,clustersizes));
  PDL_XS_RETURN(ST(0) = clustersizes_SV)

void
pdl_run_clusterelements(clusterids, clustersizes=PDL_XS_PERLINIT_initsv(clustersizes_SV), eltids=PDL_XS_PERLINIT_initsv(eltids_SV))
  SV *clustersizes_SV = items > 1 ? ST(1) : NULL;
  SV *eltids_SV = items > 2 ? ST(2) : NULL;
 PREINIT:
  PDL_XS_PREAMBLE((items == 3) ? 0 : 2);
 INPUT:
  pdl *clusterids
  pdl *clustersizes
  pdl *eltids
 PPCODE:
  PDL->barf_if_error(pdl_run_clusterelements(clusterids,clustersizes,eltids));
  PDL_XS_RETURN(ST(0) = clustersizes_SV;ST(1) = eltids_SV)

void
pdl_run_clusterelementmask(clusterids, eltmask=PDL_XS_PERLINIT_initsv(eltmask_SV))
  SV *eltmask_SV = items > 1 ? ST(1) : NULL;
 PREINIT:
  PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
 INPUT:
  pdl *clusterids
  pdl *eltmask
 PPCODE:
  PDL->barf_if_error(pdl_run_clusterelementmask(clusterids,eltmask));
  PDL_XS_RETURN(ST(0) = eltmask_SV)

void
pdl_run_clusterdistancematrix(data, mask, weight, rowids, clustersizes, eltids, dist=dist, distFlag=distFlag, methodFlag=methodFlag)
  SV *dist_SV = (items == 9) ? ST(6) : NULL;
  SV *distFlag_SV = (items == 9) ? ST(7) : ST(6);
  SV *methodFlag_SV = (items == 9) ? ST(8) : ST(7);
 PREINIT:
  PDL_XS_PREAMBLE((items == 9) ? 0 : 1);
  if (!((items == 8) || (items == 9)))
    croak("Usage: PDL::clusterdistancematrix(data,mask,weight,rowids,clustersizes,eltids,[dist],distFlag,methodFlag) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *data
  pdl *mask
  pdl *weight
  pdl *rowids
  pdl *clustersizes
  pdl *eltids
  pdl *dist=NO_INIT
  char  *distFlag; { distFlag = (char *)SvPV_nolen(distFlag_SV); }
  char  *methodFlag; { methodFlag = (char *)SvPV_nolen(methodFlag_SV); }
 PPCODE:
  if (dist_SV) { dist = PDL_CORE_(SvPDLV)(dist_SV); } else dist = PDL_XS_PERLINIT_initsv(dist_SV);
  PDL->barf_if_error(pdl_run_clusterdistancematrix(data,mask,weight,rowids,clustersizes,eltids,dist,distFlag,methodFlag));
  PDL_XS_RETURN(ST(0) = dist_SV)

void
pdl_run_clusterdistancematrixenc(data, mask, weight, clens1, crowids1, clens2, crowids2, dist=dist, distFlag=distFlag, methodFlag=methodFlag)
  SV *dist_SV = (items == 10) ? ST(7) : NULL;
  SV *distFlag_SV = (items == 10) ? ST(8) : ST(7);
  SV *methodFlag_SV = (items == 10) ? ST(9) : ST(8);
 PREINIT:
  PDL_XS_PREAMBLE((items == 10) ? 0 : 1);
  if (!((items == 10) || (items == 9)))
    croak("Usage: PDL::clusterdistancematrixenc(data,mask,weight,clens1,crowids1,clens2,crowids2,[dist],distFlag,methodFlag) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *data
  pdl *mask
  pdl *weight
  pdl *clens1
  pdl *crowids1
  pdl *clens2
  pdl *crowids2
  pdl *dist=NO_INIT
  char  *distFlag; { distFlag = (char *)SvPV_nolen(distFlag_SV); }
  char  *methodFlag; { methodFlag = (char *)SvPV_nolen(methodFlag_SV); }
 PPCODE:
  if (dist_SV) { dist = PDL_CORE_(SvPDLV)(dist_SV); } else dist = PDL_XS_PERLINIT_initsv(dist_SV);
  PDL->barf_if_error(pdl_run_clusterdistancematrixenc(data,mask,weight,clens1,crowids1,clens2,crowids2,dist,distFlag,methodFlag));
  PDL_XS_RETURN(ST(0) = dist_SV)

void
pdl_run_clusterdistancesenc(data, mask, weight, coffsets1, crowids1, cwhich1, coffsets2, crowids2, cwhich2, dists=dists, distFlag=distFlag, methodFlag=methodFlag)
  SV *dists_SV = (items == 12) ? ST(9) : NULL;
  SV *distFlag_SV = (items == 12) ? ST(10) : ST(9);
  SV *methodFlag_SV = (items == 12) ? ST(11) : ST(10);
 PREINIT:
  PDL_XS_PREAMBLE((items == 12) ? 0 : 1);
  if (!((items == 11) || (items == 12)))
    croak("Usage: PDL::clusterdistancesenc(data,mask,weight,coffsets1,crowids1,cwhich1,coffsets2,crowids2,cwhich2,[dists],distFlag,methodFlag) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *data
  pdl *mask
  pdl *weight
  pdl *coffsets1
  pdl *crowids1
  pdl *cwhich1
  pdl *coffsets2
  pdl *crowids2
  pdl *cwhich2
  pdl *dists=NO_INIT
  char  *distFlag; { distFlag = (char *)SvPV_nolen(distFlag_SV); }
  char  *methodFlag; { methodFlag = (char *)SvPV_nolen(methodFlag_SV); }
 PPCODE:
  if (dists_SV) { dists = PDL_CORE_(SvPDLV)(dists_SV); } else dists = PDL_XS_PERLINIT_initsv(dists_SV);
  PDL->barf_if_error(pdl_run_clusterdistancesenc(data,mask,weight,coffsets1,crowids1,cwhich1,coffsets2,crowids2,cwhich2,dists,distFlag,methodFlag));
  PDL_XS_RETURN(ST(0) = dists_SV)

void
pdl_run_getclusterwsum(data, mask, clusterwts, cdata=PDL_XS_PERLINIT_initsv(cdata_SV), cmask=PDL_XS_PERLINIT_initsv(cmask_SV))
  SV *cdata_SV = items > 3 ? ST(3) : NULL;
  SV *cmask_SV = items > 4 ? ST(4) : NULL;
 PREINIT:
  PDL_XS_PREAMBLE((items == 5) ? 0 : 2);
 INPUT:
  pdl *data
  pdl *mask
  pdl *clusterwts
  pdl *cdata
  pdl *cmask
 PPCODE:
  PDL->barf_if_error(pdl_run_getclusterwsum(data,mask,clusterwts,cdata,cmask));
  PDL_XS_RETURN(ST(0) = cdata_SV;ST(1) = cmask_SV)

void
pdl_run_attachtonearest(data, mask, weight, rowids, cdata, cmask, clusterids=clusterids, cdist=cdist, distFlag=distFlag, methodFlag=methodFlag)
  SV *clusterids_SV = (items == 10) ? ST(6) : NULL;
  SV *cdist_SV = (items == 10) ? ST(7) : NULL;
  SV *distFlag_SV = (items == 10) ? ST(8) : ST(6);
  SV *methodFlag_SV = (items == 10) ? ST(9) : ST(7);
 PREINIT:
  PDL_XS_PREAMBLE((items == 10) ? 0 : 2);
  if (!((items == 10) || (items == 8)))
    croak("Usage: PDL::attachtonearest(data,mask,weight,rowids,cdata,cmask,[clusterids],[cdist],distFlag,methodFlag) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *data
  pdl *mask
  pdl *weight
  pdl *rowids
  pdl *cdata
  pdl *cmask
  pdl *clusterids=NO_INIT
  pdl *cdist=NO_INIT
  char  *distFlag; { distFlag = (char *)SvPV_nolen(distFlag_SV); }
  char  *methodFlag; { methodFlag = (char *)SvPV_nolen(methodFlag_SV); }
 PPCODE:
  if (clusterids_SV) { clusterids = PDL_CORE_(SvPDLV)(clusterids_SV); } else clusterids = PDL_XS_PERLINIT_initsv(clusterids_SV);
  if (cdist_SV) { cdist = PDL_CORE_(SvPDLV)(cdist_SV); } else cdist = PDL_XS_PERLINIT_initsv(cdist_SV);
  PDL->barf_if_error(pdl_run_attachtonearest(data,mask,weight,rowids,cdata,cmask,clusterids,cdist,distFlag,methodFlag));
  PDL_XS_RETURN(ST(0) = clusterids_SV;ST(1) = cdist_SV)

void
pdl_run_checkprototypes(protos, cprotos=cprotos, nsize=nsize)
  SV *cprotos_SV = (items == 3) ? ST(1) : NULL;
  SV *nsize_SV = (items == 3) ? ST(2) : ST(1);
 PREINIT:
  PDL_XS_PREAMBLE((items == 3) ? 0 : 1);
  if (!((items == 2) || (items == 3)))
    croak("Usage: PDL::checkprototypes(protos,[cprotos],nsize) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *protos
  pdl *cprotos=NO_INIT
  int  nsize; { nsize = (int)SvIV(nsize_SV); }
 PPCODE:
  PDL_XS_INPLACE(protos, cprotos)
  PDL->barf_if_error(pdl_run_checkprototypes(protos,cprotos,nsize));
  PDL_XS_RETURN(ST(0) = cprotos_SV)

void
pdl_run_checkpartitions(part, cpart=cpart, ksize=ksize)
  SV *cpart_SV = (items == 3) ? ST(1) : NULL;
  SV *ksize_SV = (items == 3) ? ST(2) : ST(1);
 PREINIT:
  PDL_XS_PREAMBLE((items == 3) ? 0 : 1);
  if (!((items == 2) || (items == 3)))
    croak("Usage: PDL::checkpartitions(part,[cpart],ksize) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *part
  pdl *cpart=NO_INIT
  int  ksize; { ksize = (int)SvIV(ksize_SV); }
 PPCODE:
  PDL_XS_INPLACE(part, cpart)
  PDL->barf_if_error(pdl_run_checkpartitions(part,cpart,ksize));
  PDL_XS_RETURN(ST(0) = cpart_SV)


#line 483 "lib/PDL/PP.pm"
BOOT:
   /* Get pointer to structure of core shared C routines */
   /* make sure PDL::Core is loaded */
#line 10005 "Cluster.xs"
   perl_require_pv ("PDL/Core.pm"); /* make sure PDL::Core is loaded */
#ifndef aTHX_
#define aTHX_
#endif
   if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV));
   SV* CoreSV = perl_get_sv("PDL::SHARE",FALSE); /* var with core structure */
   if (!CoreSV)
     Perl_croak(aTHX_ "We require the PDL::Core module, which was not found");
   if (!(PDL = INT2PTR(Core*,SvIV( CoreSV )))) /* Core* value */
     Perl_croak(aTHX_ "Got NULL pointer for PDL");
   if (PDL->Version != PDL_CORE_VERSION)
     Perl_croak(aTHX_ "[PDL->Version: %ld PDL_CORE_VERSION: %ld XS_VERSION: %s] PDL::Cluster needs to be recompiled against the newly installed PDL", (long int)PDL->Version, (long int)PDL_CORE_VERSION, XS_VERSION);