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

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

/*cardsin covariance function*/
double cardsin(double h)
{
  printf("cardsin\n");
  float delta = 20.371;
  double z;

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