Return to histograms_init.inc CVS log

Up to [HallC] / Poltar

Initial revision

! HISTOGRAMS.INC
! Storage space for the SIMULATE histogram arrays

! Record structures that are only needed for histograms

	integer		nHbins
	parameter	(nHbins=50)
	structure /hist_entry/
	  real*8	bin,min
c	  real*8	buf(nHbins)/nHbins*0./	
	  real*8	buf(nHbins)	
	end structure


	structure /hist_double_arm/
	  structure /hist_arm/ e
	    record /hist_entry/ delta, yptar, xptar
	  end structure
	  structure /hist_arm2/ p
	    record /hist_entry/ delta, yptar, xptar
	  end structure
	  record /hist_entry/ Em, Pm
	end structure

	structure /histograms/
	  record /hist_double_arm/ RECON, gen, geni
	end structure