COSMOS v7.655  COSMOSv7655
(AirShowerMC)
bin2asciiComp.f File Reference

Go to the source code of this file.

Functions/Subroutines

program __bin2asciicomp.f__
 
subroutine get1hyb
 

Function/Subroutine Documentation

◆ __bin2asciicomp.f__()

program __bin2asciicomp.f__ ( )

Definition at line 7 of file bin2asciiComp.f.

References copenfw2(), get1hyb(), idx(), kgetenv2(), kwhistd(), kwhistpr(), kwhistr(), kwhists(), leng, parameter(), and true.

7  integer ndepth
Here is the call graph for this function:

◆ get1hyb()

subroutine get1hyb ( )

Definition at line 127 of file bin2asciiComp.f.

References parameter().

Referenced by __bin2asciicomp.f__(), modbin2ascii::mergehyb1(), modzbin2ascii::mergehyb1(), and mergehyb1().

127  implicit none
128  character*120 input0
129  integer i, klena
130 
131  integer ndepth
132  parameter(ndepth= 30)
133  integer fn1
134  real*8 asdep(ndepth), munit(ndepth)
135  real*8 esize0(ndepth),
136  * age0(ndepth), cogdep0(ndepth),
137  * seloss0(ndepth),
138  * ng0(ndepth), ne0(ndepth), nmu0(ndepth),
139  * cog0
140  integer evno0
141 
142  common /zbin2ascii/
143  * asdep, esize0, age0,
144  * cogdep0, seloss0, munit,
145  * ng0, ne0, nmu0, cog0,
146  * fn1, evno0
147  input0 = "x"
148  do while (input0 .ne. " ")
149  read( fn1 ,'(a)') input0
150  if(input0 .ne. " ") then
151  read(input0(1:klena(input0)), *)
152  * evno0, i, asdep(i), esize0(i), age0(i),
153  * cogdep0(i), seloss0(i),
154  * munit(i), ng0(i), ne0(i), nmu0(i), cog0
155  endif
156  enddo
integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst
nodes i
integer function klena(cha)
Definition: klena.f:20
Here is the call graph for this function:
Here is the caller graph for this function: