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

Go to the source code of this file.

Functions/Subroutines

program __drawrigcut2.f__
 
subroutine crigcut2data (tbl, izen, iphi, irig)
 
subroutine crigcut2grid (tbl, izen, iphi, irig)
 

Function/Subroutine Documentation

◆ __drawrigcut2.f__()

program __drawrigcut2.f__ ( )

Definition at line 10 of file drawRigCut2.f.

References crigcut0(), crigcut2data(), and crigcut2grid().

10  character*120 file
Here is the call graph for this function:

◆ crigcut2data()

subroutine crigcut2data ( real*4, dimension(izen, iphi, irig)  tbl,
integer  izen,
integer  iphi,
integer  irig 
)

Definition at line 25 of file drawRigCut2.f.

References copenfw().

Referenced by __drawrigcut2.f__().

25  implicit none
26  integer izen, iphi, irig
27  real*4 tbl(izen, iphi, irig), z
28  integer i1, i2, i3,icon
29 
30  call copenfw(21, "/tmp/nxconData",icon)
31  write(21, *) iphi, izen, irig
32  do i3 =1, irig
33  do i1 = izen, 1, -1
34  do i2 = 1, iphi
35  z = tbl(i1, i2, i3)
36  if(z .gt. 0.99) z =1.
37  write(21,*) z
38  enddo
39  enddo
40  enddo
41  close(21)
z
nodes z
Definition: cstdatmos0.fNew2.h:93
tbl
integer Charge2heavyG charge of heavy rightarrow heavy group index conversion array integer HeavyG2massN heavy group index rightarrow mass number conversion array integer HeavyG2charge heavy group index rightarrow charge of heavy conversion array integer HeavyG2code heavy group index rightarrow particle code conversion array integer Code2massN particle code rightarrow mass number conversion array integer Code2heavyG particle code rightarrow heavy group index conversion array real *FragmentTbl tbl(i, j)
copenfw
subroutine copenfw(io, fnin, icon)
Definition: copenf.f:122
Here is the call graph for this function:
Here is the caller graph for this function:

◆ crigcut2grid()

subroutine crigcut2grid ( real*4, dimension(izen, iphi, irig)  tbl,
integer  izen,
integer  iphi,
integer  irig 
)

Definition at line 45 of file drawRigCut2.f.

References copenfw().

Referenced by __drawrigcut2.f__().

45  implicit none
46 #include "ZrigCut.h"
47  integer izen, iphi, irig
48  real*4 tbl(izen, iphi, irig)
49  integer i1, i2, i3,icon
50 
51  call copenfw(21, "/tmp/nxconGrid",icon)
52  write(21, *) iphi, izen, irig
53  do i3 =1, irig
54  do i1 = izen, 1, -1
55  do i2 = 1, iphi
56  write(21,*) sngl(minazm + (i2-1)*dazm)
57  enddo
58  enddo
59  enddo
60  do i3 =1, irig
61  do i1 = izen, 1, -1
62  do i2 = 1, iphi
63  write(21,*) sngl(zenmax + (i1-1)*dzen),
64  enddo
65  enddo
66  enddo
67  do i3 =1, irig
68  do i1 = izen, 1, -1
69  do i2 = 1, iphi
70  write(21,*)
71  * sngl(minrig * 10.**(logdrig*(i3-1)))
72  enddo
73  enddo
74  enddo
75 
76  close(21)
tbl
integer Charge2heavyG charge of heavy rightarrow heavy group index conversion array integer HeavyG2massN heavy group index rightarrow mass number conversion array integer HeavyG2charge heavy group index rightarrow charge of heavy conversion array integer HeavyG2code heavy group index rightarrow particle code conversion array integer Code2massN particle code rightarrow mass number conversion array integer Code2heavyG particle code rightarrow heavy group index conversion array real *FragmentTbl tbl(i, j)
copenfw
subroutine copenfw(io, fnin, icon)
Definition: copenf.f:122
Here is the call graph for this function:
Here is the caller graph for this function: