https://github.com/cran/fields
Raw File
Tip revision: a82f141190b29d59547a12b9a44a7e2d1af8fb60 authored by Doug Nychka on 05 January 2007, 21:27:53 UTC
version 3.3.1
Tip revision: a82f141
gaspfn.f

       subroutine  gaspfn(n,d2, par)
       real*8 d2(n), par(1)
       integer n

         do 5 k =1,n
         d2(k)=  exp(-1*d2(k))
   5     continue

        return
        end
back to top