#include "genlib.h" #include "log.h" #include #include /*cardsin covariance function*/ double cardsin(double h) { log_info("RESULT = in progress, h = %f", h); float delta = 20.371; double z; if (h != 0) { z = (double)(h * delta); z = sin(z) / z; } else { z = 1.; } log_info("RESULT = success, z = %f", z); return z; }