https://github.com/cran/fields
Tip revision: fce7b555bd20f240a47336470665a2a9eaaba4f3 authored by Douglas Nychka on 20 December 2013, 23:12:51 UTC
version 6.9.1
version 6.9.1
Tip revision: fce7b55
expfn.f
c fields, Tools for spatial data
c Copyright 2004-2013, Institute for Mathematics Applied Geosciences
c University Corporation for Atmospheric Research
c Licensed under the GPL -- www.gpl.org/licenses/gpl.html
subroutine expfn(n,d2, par)
real*8 d2(n), par(1)
integer n
do 5 k =1,n
d2(k)= exp(-1*d2(k)**(par( 1)/2))
5 continue
return
end