COSMOS v7.655  COSMOSv7655
(AirShowerMC)
test.f
Go to the documentation of this file.
1  implicit none
2 ! next 4 lines for fortran 90 dynamic memory allocation
3 #include "Z90histc.f"
4 #include "Z90hist.f"
5  type(histogram1) h
6  type(histogram1) k
7 ! next 2 is for static old forran
8 ! include 'Zhist.f'
9 ! type(histogram):: h, k
10  save h
11  real*8 x
12  integer i
13 
14  call kwhisti(h, 0., 0.1, 300, b'0010')
15  call kwhistc(h)
16  call kwhisti(k, 1.5, 0.1, 30, b'1111' )
17  call kwhistc(k)
18 
19  do i = 1, 1000000
20  call kgauss(10.0d0, 1.d0, x)
21  call kwhist(h, sngl(x), 1.0 )
22  call rndc(x)
23  x = x**(-0.5)
24  call kwhist( k, sngl(x), 1.0 )
25 ! write(*,*) sngl(x), 1.0
26  enddo
27 
28  call kwhists(h, 1000000.0 )
29  call kwhistp(h, 'a' )
30  write(*,*)
31  call kwhists(k, 1000000.0)
32  call kwhistp(k, 'b' )
33  end
34 
i
nodes i
Definition: cstdatmos0.fNew2.h:93
kwhistp
void kwhistp(struct histogram1 *h, FILE *fno)
kwhisti
void kwhisti(struct histogram1 *h, float ixmin, float ibinORxmax, int inbin, int itklg)
kwhist
void kwhist(struct histogram1 *h, float x, float w)
rndc
subroutine rndc(u)
Definition: rnd.f:91
kgauss
subroutine kgauss(m, v, g1)
Definition: kgauss.f:10
d0
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon d0
Definition: cblkEvhnp.h:5
kwhistc
void kwhistc(struct histogram1 *h)
b
dE dx *! Nuc Int sampling table b
Definition: cblkMuInt.h:130
h
dE dx *! Nuc Int sampling table h
Definition: cblkMuInt.h:130
kwhists
void kwhists(struct histogram1 *h, float inorm)
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