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

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

/*nugget covariance function*/
double nugget(double h) {
    log_info("RESULT = in progress, h = %f", h);

    if (h == 0) {
        return (1.);
    } else {
        return (0.);
    }
}