simulacion-permeabilidad/fftma_module/gen/lib_src/cardsin.c

#include "genlib.h"
#include <math.h>
#include <stdio.h>
#include <time.h>

/*cardsin covariance function*/
double cardsin(double h, int cores) {
    float delta = 20.371;
    double z;

    if (h != 0) {
        z = (double)(h * delta);
        z = sin(z) / z;
    } else {
        z = 1.;
    }

    return z;
}