cmf_calc_combined_kernels_1alpha: Kernel combination with linear interpolation for fields with...
In conmolfields: Continuous molecular fields

Kernel combination with linear interpolation for fields with the same value of alpha

1	cmf_calc_combined_kernels_1alpha(kernels, h, alpha, alphas)

`kernels`
`h`
`alpha`
`alphas`

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
cmf_calc_combined_kernels_1alpha <- function(kernels, h, alpha, alphas) 
{
  mfields <- names(h)
  nfields <- length(mfields)
  alpha_f <- list()
  for (f in 1:nfields) {
    alpha_f[[ mfields[f] ]] <- alpha
  }
  cmf_calc_combined_kernels(kernels, h, alpha_f, alphas)
}