TestEm14/geant3/src/uhinit.F File Reference

#include "histo.inc"

Include dependency graph for TestEm14/geant3/src/uhinit.F:

Go to the source code of this file.

Functions/Subroutines
subroutine	uhinit

Function/Subroutine Documentation

uhinit()

subroutine uhinit

(

)

Definition at line 3 of file TestEm14/geant3/src/uhinit.F.

*
*
#include "histo.inc"
*
      CHARACTER*50 title(6)
*
      data title /
     1    'scattered primary particle: energy spectrum',                     
     2    'scattered primary particle: costheta distribution',
     3    'charged secondaries: energy spectrum',                    
     4    'charged secondaries: costheta distribution',
     5    'neutral secondaries: energy spectrum',                    
     6    'neutral secondaries: costheta distribution'     /                         
*
      if (histo(idhist)) call hdelet(idhist)
*      
      vmin = valmin
      vmax = valmax         
      call hbook1(idhist,title(idhist),nbbins,vmin,vmax,0.)
*      
      histo(idhist) = .true.
      binwidth(idhist) = (valmax-valmin)/nbbins
      if (valunit.le.0.) valunit = 1.                
      histunit(idhist) = valunit        
*