uhinit.F

Go to the documentation of this file.

      SUBROUTINE uhinit
*
*
#include "histo.inc"
*
      CHARACTER*50 title(7)
*
      data title /
     1    'Edep (MeV/mm) along absorber',         
     2    'total energy deposit in absorber',                    
     3    'true track length of the primary particle',
     4    'true step size of the primary particle',
     5    'projected range of the primary particle',
     6    'true track length of charged secondaries',
     7    'true step size of charged secondaries'       /
*
      if (idhist.gt.maxhist) return
*      
      if (histo(idhist)) call hdelet(idhist)
*       
      call hbook1(idhist,title(idhist),nbbins,valmin,valmax,0.)
*      
      histo(idhist) = .true.
      binwidth(idhist) = (valmax-valmin)/nbbins
      if (valunit.le.0.) valunit = 1.                
      histunit(idhist) = valunit        
*
      END