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

Go to the source code of this file.

Functions/Subroutines

subroutine kfrge (x, intvx, n, c, m, icon)
 

Function/Subroutine Documentation

◆ kfrge()

subroutine kfrge ( real*8, dimension(intvx, *)  x,
integer  intvx,
integer  n,
real*8  c,
integer  m,
integer  icon 
)

Definition at line 33 of file kfrge.f.

Referenced by __testkl3.f__(), ckminuspxsec0(), ckpluspxsec0(), cpimairabsx(), cpimairreacx(), cpiminuspxsec0(), cpipairabsx(), cpipairreacx(), cpipluspxsec0(), cppxsec0(), and csampfragments().

33  implicit none
34  integer intvx, n, m, icon
35  real*8 x(intvx, *), c
36 !
37  integer i
38 !
39  if( n .gt. 0 ) then
40  do i=1, n
41  if(x(1,i) .ge. c) then
42  m=i
43  icon=0
44  goto 100
45  endif
46  enddo
47  icon=1
48  m=n+1
49  elseif(n .lt. 0) then
50  do i=-n, 1, -1
51  if(x(1,i) .ge. c) then
52  m=i
53  icon=0
54  goto 100
55  endif
56  enddo
57  m=0
58  icon=1
59  else
60  icon=1
61  endif
62  100 continue
i
nodes i
Definition: cstdatmos0.fNew2.h:93
m
block data include Zlatfit h c fitting region data data data data data d0 data data d0 data data m
Definition: ZlatfitBD.h:35
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
c
dE dx *! Nuc Int sampling table c
Definition: cblkMuInt.h:130
Here is the caller graph for this function: