COSMOS v7.655  COSMOSv7655
(AirShowerMC)
interface1.h
Go to the documentation of this file.
1  do i= 1, nsites
2  histdep(i) = 0
3  enddo
4 
5  call cqUhookc(1, input)
6  read(input, *) histdep
7 
8 
9  call cqUhookc(2, input)
10  read(input, *) tkrtspec, tkarspec, tkweb
11 
12  call cqUhookc(3, input)
13  basefilename = input
14 
15  call cqUhooki(1, binw) ! by binw, specify binary or ascii write of histogaram
16 
17  call cqUhooki(2, reducedTime)
18  if(reducedTime .ne. 1 .and. reducedTime .ne. 2) then
19  write(0,*) ' UserHooi(2)=',UserHooki(2), ' invalid'
20  stop
21  endif
22 
23 
read
do nsites input read(input, *) histdep call cqUhookc(2
histdep
do nsites histdep(i)=0enddo call cqUhookc(1
cqUhooki
do nsites input input tkweb call specify binary or ascii write of histogaram call cqUhooki(2, reducedTime) if(reducedTime .ne. 1 .and. reducedTime .ne. 2) then write(0
tkrtspec
logical KeepWeight ! see setupenv sh logical tkarspec ! get lateral histo in a web fai bin logical tkrtspec ! get time histo in each web bin logical SeeLowdE common Zprivatec2 tkrtspec
Definition: Zprivate4.h:7
ne
int ne[nl][nth]
Definition: Zprivate.h:11
cqUhookc
do nsites input input tkweb call cqUhookc(3, input) basefilename
i
do i
Definition: interface1.h:1
if
integer lengid integer lengdir character *dir integer kgetenv2 character *numb character *execid character *msg logical takehist save do nsites tkarspec nsites if(histdep(i) .gt. 0) then takehist
UserHooki
do nsites input input tkweb call specify binary or ascii write of histogaram call UserHooki(2)
tkarspec
do nsites input input tkarspec
Definition: interface1.h:10
UserHooi
do nsites input input tkweb call specify binary or ascii write of histogaram call * UserHooi(2)