Examples Internal Tools I (get_hist, newtst,testIX,clhist)
c****SUSIGPS Data Analyser*****************
c "USER1.for"
c**************************************************
c Xenon test flasher
subroutine user1
parameter (pi=3.1415926)
include 'susictl.inc'
include 'susiacq.inc'
include 'susitst.inc'
include 'susicof.inc'
include 'susiequ.inc'
include 'susievt.inc'
integer*4 testix,ix
if (newtst1) then
ix = testix ('itstime')
write (6,*) 'Itstime : ',ix
newtst1 = .FALSE.
end if
if (adc1.le.0) return
ratio = kdif*adc0/adc1
if (now.gt.kadc0) then
call get_hist(1,0.,1000.,ssum,udf,ovf,mean,sig)
mean = mean*1000.
call clhist ('ONE',1)
flag(ix) = .TRUE.
now=0
endif
now=now+1
ratio = -1.*ratio
return
end