COSMOS v7.655  COSMOSv7655
(AirShowerMC)
Functions/Subroutines
kcsplDif.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine kcspldif (x, n, coef, nc, v, d1, d2)
 

Function/Subroutine Documentation

◆ kcspldif()

subroutine kcspldif ( real*8, dimension(n)  x,
integer  n,
real*8, dimension(nc, 3)  coef,
integer  nc,
real*8  v,
real*8  d1,
real*8  d2 
)

Definition at line 2 of file kcsplDif.f.

References d0, and kdwhereis().

2  implicit none
3  integer n ! input size of x
4  real*8 x(n) ! input
5  integer nc ! input. size of coef(nc, 3)
6  real*8 coef(nc, 3) ! input. which is output from
7  ! kcsplCoeff
8  real*8 v ! input. value where the interpolation is
9  ! to be made to obtain the numerical
10  ! differenctiation value of y
11  real*8 d1 ! output. 1st order differentiation
12  real*8 d2 ! output. 2nd ...
13 
14 
15  integer i
16  real*8 v1, t
17 
18  call kdwhereis(v, n, x, 1, i)
19  if(i .eq. 0) then
20  i = 1
21  endif
22  v1 = v- x(i)
23  t = coef(i,2) + 3.0d0 * coef(i,3) * v1
24  d1 = coef(i,1) + (t + coef(i,2)) * v1
25  d2 = t + t
i
nodes i
Definition: cstdatmos0.fNew2.h:93
kdwhereis
subroutine kdwhereis(x, in, a, step, loc)
Definition: kdwhereis.f:27
d0
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon d0
Definition: cblkEvhnp.h:5
t
nodes t
Definition: cstdatmos0.fNew2.h:84
nc
real cut integer nc
Definition: Zprivate.h:1
n
integer n
Definition: Zcinippxc.h:1
x
! structure defining a particle at production ! Basic idea of what is to be contained in ! the particle structue is that dynamical ones should be included those derivable from the particle code ! is not included ******************************************************type fmom momentum sequence union map real e endmap map real * x
Definition: Zptcl.h:21
Here is the call graph for this function: