void clustr ( double x[], double d[], double dev[], int b[], double f[], int e[], 
  int i, int j, int n, int nz, int k );