Return to histograms.inc CVS log

Up to [HallC] / Poltar

 Import simc poltar

! 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
	  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