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

Go to the source code of this file.

Functions/Subroutines

subroutine toasciih (cnum, num, ir, zf)
 
subroutine toasciin (nlow, pp)
 
subroutine toasciic (cc)
 
subroutine toasciinp (n)
 
subroutine toasciihe (he)
 

Function/Subroutine Documentation

◆ toasciic()

subroutine toasciic ( type(child)  cc)

Definition at line 41 of file asciiprint.f.

References charge, code, and subcode.

41 ! print child at nodal point
42  implicit none
43 #include "Zprivate.h"
44  type(child):: cc
45 
46  write(*,'(3i5, g12.3)')
47  * cc.code, cc.subcode, cc.charge, cc.fm(4)
code
*Zfirst p fm *Zfirst p Zfirst p code
Definition: ZavoidUnionMap.h:1
charge
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p charge
Definition: ZavoidUnionMap.h:1
child
Definition: Zprivate.h:25
subcode
*Zfirst p fm *Zfirst p Zfirst p Zfirst p subcode
Definition: ZavoidUnionMap.h:1

◆ toasciih()

subroutine toasciih ( integer  cnum,
integer  num,
integer, dimension(2)  ir,
type(track)  zf 
)

Definition at line 2 of file asciiprint.f.

References charge, code, coszenith, depth, p, and subcode.

2  implicit none
3 #include "Ztrack.h"
4  integer cnum, num, ir(2)
5  type(track):: zf
6 
7  write(*, '("#")')
8  write(*,
9  * '("# ********************** ")')
10  write(*, '("#")')
11  write(*,
12  * '("# cum event # current # seeds")')
13  write(*,'(i10,i10,8x,2i11)') cnum, num, ir
14  write(*,
15  *'("# 1ry code subc chg E(GeV) cos_zen 1st z(g/cm2)")')
16  write(*,'(i8,2i5,4x,g12.3,3x,f8.5,g12.3)')
17  * zf.p.code, zf.p.subcode, zf.p.charge,
18  * zf.p.fm.p(4), zf.vec.coszenith,
19  * zf.pos.depth/10.
depth
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p *Zfirst pos xyz Zfirst pos xyz *Zfirst pos *Zfirst pos depth
Definition: ZavoidUnionMap.h:1
track
Definition: Ztrack.h:44
modassize::num
real(8), dimension(:,:,:,:), allocatable, save num
Definition: chook.f:40
p
********************block data cblkHeavy ********************integer j data *HeavyG2symbol p
Definition: cblkHeavy.h:7
code
*Zfirst p fm *Zfirst p Zfirst p code
Definition: ZavoidUnionMap.h:1
coszenith
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p *Zfirst pos xyz Zfirst pos xyz *Zfirst pos *Zfirst pos Zfirst pos *Zfirst pos *Zfirst Zfirst vec w *Zfirst vec w Zfirst vec coszenith
Definition: ZavoidUnionMap.h:1
charge
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p charge
Definition: ZavoidUnionMap.h:1
subcode
*Zfirst p fm *Zfirst p Zfirst p Zfirst p subcode
Definition: ZavoidUnionMap.h:1

◆ toasciihe()

subroutine toasciihe ( type(ob)  he)

Definition at line 62 of file asciiprint.f.

References charge, code, erg, subcode, x, and y.

62 ! print high energy particles
63  implicit none
64 #include "Zprivate.h"
65  type(ob):: he
66 
67  write(*, '(i5,3i5, g14.4, 2g12.3, f12.3)')
68  * he.where, he.code, he.subcode, he.charge,
69  * he.erg, he.x/100., he.y/100., he.atime
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
ob
Definition: Zprivate.h:2
erg
float erg[maxp]
Definition: Zprivate.h:7
charge
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p charge
Definition: ZavoidUnionMap.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
subcode
*Zfirst p fm *Zfirst p Zfirst p Zfirst p subcode
Definition: ZavoidUnionMap.h:1

◆ toasciin()

subroutine toasciin ( integer  nlow,
type(parent)  pp 
)

Definition at line 22 of file asciiprint.f.

References code, coszenith, depth, erg, and height.

22  implicit none
23 #include "Zprivate.h"
24 #include "Ztrack.h"
25  integer nlow
26  type(parent):: pp
27 
28  if(nlow .gt. 0) then
29  write(*,'("# nodal point info:")')
30  write(*,'(a)')
31  * '# # of child code E H(m)'//
32  * ' Depth(g/cm2) cos_zen'
33  write(*,'(i10,i10,3x,g12.3,2x,g12.4,g12.3,2x,f9.5)')
34  * nlow, pp.code, pp.erg, pp.height,
35  * pp.depth/10., pp.coszenith
36  write(*,'(" code subc chg Energy(GeV)")')
37  endif
depth
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p *Zfirst pos xyz Zfirst pos xyz *Zfirst pos *Zfirst pos depth
Definition: ZavoidUnionMap.h:1
parent
Definition: Zprivate.h:9
code
*Zfirst p fm *Zfirst p Zfirst p code
Definition: ZavoidUnionMap.h:1
height
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p *Zfirst pos xyz Zfirst pos xyz *Zfirst pos *Zfirst pos Zfirst pos height
Definition: ZavoidUnionMap.h:1
coszenith
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p *Zfirst pos xyz Zfirst pos xyz *Zfirst pos *Zfirst pos Zfirst pos *Zfirst pos *Zfirst Zfirst vec w *Zfirst vec w Zfirst vec coszenith
Definition: ZavoidUnionMap.h:1
erg
float erg[maxp]
Definition: Zprivate.h:7

◆ toasciinp()

subroutine toasciinp ( integer  n)

Definition at line 51 of file asciiprint.f.

51  implicit none
52  integer n
53  write(*, '("# # of high energy particles")')
54  write(*, *) n
55  write(*, '(a)')
56  * '# where code subc chg Eenergy(GeV)'//
57  * ' x y(cm) T(n)'
n
integer n
Definition: Zcinippxc.h:1