Hi
I have a kumac file and need to converse it to root. I dont know from where I have to start. A part of the kumac file is below any solution needed. thanks.
call hbook1(181,’ tile 4 min’,20,0.,20.,0.)
call hbook1(182,’ tile 3 nfind3’,20,0.,20.,0.)
call hbook1(183,’ tile 4 nfind4’,20,0.,20.,0.)
call hbook2(174,’ rateday ‘, 10, 0.,10.,100,0.,1.,0)
call hbook1(176,’ rateday ‘, 5,0.,5.,0.)
call hbook1(175,’ hrs from the firstRunday to ‘,100,0.,100.,0.)
call hbook1(177,’ hrs from firstRunday to ',100,0.,100.,0.)
APPLICATION COMIS QUIT
SUBROUTINE READ
dimension tt(1024),dat(1024)
dimension ttt(10.........................
…OPEN(1,FILE=‘testanalog.dat’,STATUS=‘OLD’)
OPEN(1,FILE=‘analog.dat110’,STATUS=‘OLD’)
itr=0
itr1=0
itr2=0
itr3=0
itr4=0
itof=0
nev1=0
cc##############################################################################
cc do all analysis event by event
cc##############################################################################
do l=1,nev
xk1sig=0
xk2sig=0
xk3sig=0
xk4sig=0
xt=0.0
nev1=nev1+1
cc##############################################################################
cc read events and time informations
cc
read (1,,end=1020) isel
read (1,) iyr
read (1,) month
read (1,) iday
read (1,) ihr
read (1,) imin
read (1,) isecond
read (1,) kkss
cc##############################################################################
if(iday.eq.31)write(29,*) ‘nev=’,nev1
call flux(l,iyr,month,iday,ihr,imin,isecond,
+ k,nevday,daysrate,errors,days,toth,xiht)
22 FORMAT(I10,I10)
c print *,’ test’,l,isel,iyr,month,iday,ihr,imin,isecond
c if(days.ne.0.)then
c print *,‘days’,days,'rateday= ‘,daysrate,’ err= ',errorsc
c endif
c print *,‘days’,days,'rateday= ',daysrate,‘toth:’,toth
call hfill(177,toth,0.,1.)
c call hfill(175,deltah,0.,1.)
c call hfill(175,xiht,0.,1.)
ks=1024
cc##############################################################################
cc read all time and voltage values and how many values are below given
cc threshold values for each event
do ll=1,kkss
read(1,*) tts(ll),sig1(ll),sig2(ll),sig3(ll),sig4(ll)
ttt(ll)=tts(ll)...............................................
…