https://github.com/cran/fields
Tip revision: ce35beb02e691b4169a97c2c3f64564860ca0d3f authored by Douglas Nychka on 06 June 2017, 16:06:25 UTC
version 9.0
version 9.0
Tip revision: ce35beb
cvrf.f
c fields, Tools for spatial data
c Copyright (C) 2017, Institute for Mathematics Applied Geosciences
c University Corporation for Atmospheric Research
c Licensed under the GPL -- www.gpl.org/licenses/gpl.html
c** finds value of h minimizing the generalized cross-validation
subroutine cvrf
* (h,nobs,x,y,wt,sy,trace,diag,din,dout,cv,ierr)
implicit double precision (a-h,o-z)
double precision h,trace,cv
double precision x(nobs),y(nobs),wt(nobs)
double precision sy(nobs),diag(nobs),dumm1(1),dumm2(1)
double precision din(10), dout(10)
integer ngrid, ierr, job(3),ideriv
data job/3,0,0/
data ideriv,ngrid/0,1/
call rcss(h,nobs,x,y,wt,sy,trace,diag,cv,
+ ngrid,dumm1,dumm2,job,ideriv,din,dout,ierr)
nit= int( dout(1))
trace=dout(3)
c
return
end