https://github.com/cran/cccd
Tip revision: 13a20a05ba53faf0cbd40e9aefdcf87f9ca6d450 authored by David J. Marchette on 11 November 2010, 00:00:00 UTC
version 1.00.05
version 1.00.05
Tip revision: 13a20a0
utils.c
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
/* sorts smallest to biggest */
int cmp1(const void *x, const void *y)
{
double *xx,*yy;
xx = (double *)x;
yy = (double *)y;
if((*xx)<(*yy)) return(-1);
if((*xx)>(*yy)) return(1);
return(0);
}