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

Go to the source code of this file.

Functions/Subroutines

program __seeascii.f__
 
subroutine cgethes (from)
 

Function/Subroutine Documentation

◆ __seeascii.f__()

program __seeascii.f__ ( )

Definition at line 7 of file seeascii.f.

References c, cerrormsg(), cgethes(), i, klena(), ksplit(), p, toasciic(), toasciih(), toasciin(), and true.

7  integer num, cumnum, irevent(2), i, nr, firstev, lastev
nodes i
real(8), dimension(:,:,:,:), allocatable, save num
Definition: chook.f:40
Here is the call graph for this function:

◆ cgethes()

subroutine cgethes ( integer  from)

Definition at line 74 of file seeascii.f.

References o, toasciihe(), and toasciinp().

74  implicit none
75 #include "Zprivate.h"
76  integer from
77 !
78 
79  integer i
80 
81  read(from) np
82  if(copy) then
83  call toasciinp(np)
84  endif
85  do i = 1, np
86  read(from) o(i)
87  if(copy) then
88  call toasciihe(o(i))
89  endif
90  enddo
91 
nodes i
subroutine toasciinp(n)
Definition: asciiprint.f:51
subroutine toasciihe(he)
Definition: asciiprint.f:62
struct ob o[NpMax]
Definition: Zprivate.h:34
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer from
Definition: Zfit.h:15
Here is the call graph for this function: