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

Go to the source code of this file.

Functions/Subroutines

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

Function/Subroutine Documentation

◆ kscspldif()

subroutine kscspldif ( real(4), dimension(n)  x,
integer  n,
real(4), dimension(nc, 3)  coef,
integer  nc,
real(4)  v,
real(4)  d1,
real(4)  d2 
)

Definition at line 2 of file kScsplDif.f.

References kwhereis().

Referenced by cvh2denp().

2  implicit none
3  integer n ! input size of x
4  real(4):: x(n) ! input
5  integer nc ! input. size of coef(nc, 3)
6  real(4):: coef(nc, 3) ! input. which is output from
7  ! kcsplCoeff
8  real(4):: v ! input. value where the interpolation is
9  ! to be made to obtain the numerical
10  ! differenctiation value of y
11  real(4):: d1 ! output. 1st order differentiation
12  real(4):: d2 ! output. 2nd ...
13 
14 
15  integer i
16  real(4):: v1, t
17 
18  call kwhereis(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.0 * 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
kwhereis
subroutine kwhereis(x, in, a, step, loc)
Definition: kdwhereis.f:63
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:
Here is the caller graph for this function: