https://github.com/cran/fields
Revision 041aeceb8ae3a9cf897514895955b62d2c4df25b authored by Doug Nychka on 17 April 2012, 00:00:00 UTC, committed by Gabor Csardi on 17 April 2012, 00:00:00 UTC
1 parent d3fd4bf
Raw File
Tip revision: 041aeceb8ae3a9cf897514895955b62d2c4df25b authored by Doug Nychka on 17 April 2012, 00:00:00 UTC
version 6.7.5
Tip revision: 041aece
expfn.f

       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
back to top