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

Go to the source code of this file.

Functions/Subroutines

subroutine proclat (h, idxf, code, layer)
 

Function/Subroutine Documentation

◆ proclat()

subroutine proclat ( type(histogram1)  h,
integer  idxf,
integer  code,
integer  layer 
)

Definition at line 4 of file procLat.f.

References parameter().

4 ! This treats one 1-D histogram with web index (idxr, idxf)
5 !
6  implicit none
7 
8 #include "../../../Hist/Z90histc.h"
9 #include "../../../Hist/Z90histo.h"
10 #include "../../../Hist/Z90hist1.h"
11 
12  type(histogram1):: h ! input 1 D histogram
13  integer idxf ! web fai bin index (1~nf)
14  integer code ! ptcl code
15  integer layer ! at which layer (among max of 3 layers)
16  integer maxsize ! max histogram size
17  integer n ! actual histogram size
18 
19  integer i, j, nbin
20  parameter(maxsize=2000)
21  real*8 x(maxsize), y(maxsize)
22  integer icon
23  integer kwhistxy
24 
25  save
26 
27 
28  nbin= kwhistxy(h, x, y, maxsize)
29  write(*,'(3i4)') idxf, code, layer
30  do i=1,nbin
31  write(*,'(1p2E11.3)') x(i), y(i)
32  enddo
33  write(*, '("0 0")')
parameter
integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst
i
nodes i
Definition: cstdatmos0.fNew2.h:93
nrl_atmos::h
real(4), dimension(:), allocatable, save h
Definition: cNRLAtmos.f:28
j
********************block data cblkHeavy ********************integer j data *HeavyG2symbol *data *HeavyG2code kiron data j
Definition: cblkHeavy.h:36
code
*Zfirst p fm *Zfirst p Zfirst p code
Definition: ZavoidUnionMap.h:1
y
latitude latitude this system is used *****************************************************************! type coord sequence union map real y
Definition: Zcoord.h:25
kwhistxy
int kwhistxy(struct histogram1 *h, double x[], double y[], int n)
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: