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

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


/*gamma covariance function*/
double gammf(double h, double alpha)
{
  float delta;
  double z;

  delta = pow(20.,1./alpha)-1.;
  z = 1./(double)(pow(1.+h*delta,alpha));
  return(z);
}