1 gaskelld 1.1 ! HISTOGRAMS.INC
 2              ! Storage space for the SIMULATE histogram arrays
 3              
 4              ! Record structures that are only needed for histograms
 5              
 6              	integer		nHbins
 7              	parameter	(nHbins=50)
 8              	structure /hist_entry/
 9              	  real*8	bin,min
10              !	  real*8	buf(nHbins)/nHbins*0./   !removed for Linux-compatibility
11              	  real*8	buf(nHbins)
12              	end structure
13              
14              	structure /hist_double_arm/
15              	  structure /hist_arm/ e
16              	    record /hist_entry/ delta, yptar, xptar
17              	  end structure
18              	  structure /hist_arm2/ p
19              	    record /hist_entry/ delta, yptar, xptar
20              	  end structure
21              	  record /hist_entry/ Em, Pm
22 gaskelld 1.1 	end structure
23              
24              	structure /histograms/
25              	  record /hist_double_arm/ RECON, gen, geni
26              	end structure