tstGamma.f90

./Manager/emit/tests/tstGamma.f90

1 #include "Standard/Interface/ReporterFortran.h"
2 #include "ScaleDBCF/DBCF.h"
3 program main
4 
5 use dbcf_m
6 
7 use gamma_library
8 use origen_gamma
9 
10 use origen_testpaths_m
11 
12 use standardreporter_i
13 use origen_librarywrapper_m
14 
15 use scaledata_energyunionizer_m
16 use scaledata_mgfluxmapper_m
17 
18 use, intrinsic :: iso_c_binding
19 
20 implicit none
21 
22 type(scaledata_energyunionizer) :: sd_eu
23 type(scalestl_vec_dbl) :: old_grid,new_grid
24 
25 type(origen_gamma_options) :: ogo
26 type(origen_gamma_class) :: ogc
27 type(gamma_library_class) :: glc
28 
29 type(origen_librarywrapper) :: olw
30 
31 
32 logical :: loaded
33 integer :: position,rstatus
34 integer :: userunit
35 real(8),allocatable :: concentrations(:,:),time(:)
36 integer :: nsteps,i
37 integer(C_SIZE_T) :: g
38 real(8) :: div_factor
39 logical :: mpbruo2m_exists
40 logical :: mpbruo2p_exists
41 
42 !Body
43 
44 inquire(file="mpbruo2m",exist=mpbruo2m_exists)
45 inquire(file="mpbruo2p",exist=mpbruo2p_exists)
46 
47 if( .not. ( mpbruo2m_exists .and. mpbruo2p_exists ) )then
48  write(error_unit,*)'This unit test cannot be run unless the files mpbruo2m'
49  write(error_unit,*)'and mpbruo2p exist in the current test directory'
50  write(error_unit,*)'you need to do something like:'
51  write(error_unit,*)'ln -s /scale/scale_dev_data/origen_data/origen.rev00.mpbruo2m.data mpbruo2m'
52  write(error_unit,*)'ln -s /scale/scale_dev_data/origen_data/origen.rev00.mpbruo2p.data mpbruo2p'
53  stop 0
54 end if
55 
56 call test_grids()
57 
58 ogo % source_nuclide_type=4
59 ogo % split_near_boundary = .true.
60 ogo % conserve_line_energy = .false.
61 ogo % adjust_for_missing = .true.
62 ogo % print_unbinned = .false.
63 ogo % expand_continuum = .true.
64 ogo % print_summary = .true.
65 ogo % print_spectra = .true.
66 ogo % print_emitters = 0 !step index 0..
67 ogo % library_gammax = .false.
68 ogo % library_sfan = .false.
69 ogo % library_bs = 2
70 
71 !group structure from 14.5 MeV to 5 keV
72 ogo % ngroups=2000
73 div_factor = (14.5d6/5.0d3)**(1.d0/real(ogo%ngroups,8))
74 allocate(ogo % bounds(ogo%ngroups+1))
75 ogo % bounds(1) = 14.5d0
76 do g=2,ogo%ngroups-1
77  ogo % bounds(g) = ogo % bounds(g-1)/div_factor
78 end do
79 ogo%bounds(ogo%ngroups)=5.0d-3
80 ogo%bounds(ogo%ngroups+1)=1.0d-11
81 
82 !simple group structure
83 !ogo % ngroups=5
84 !allocate(ogo % bounds(ogo%ngroups+1))
85 !ogo%bounds=[15.d0,1.d0,0.1d0,0.01d0,5d-3,1d-11]
86 
87 
88 !initialize with decay library
89 call olw % initialize(trim(decaylib_filepath))
90 
91 !gamma library
92 call glc % init ( olw, ogo )
93 
94 !give unit concentrations to everything
95 nsteps = 0
96 allocate( concentrations(0:nsteps,1:2500) )
97 concentrations=1.d0
98 
99 !initialize gamma class
100 call ogc % init ( nsteps, olw, glc, ogo, concentrations)
101 
102 !run checking
103 call gamma_library_class_check(glc)
104 
105 !output
106 allocate(time(0:nsteps))
107 time(0)=0.d0
108 do i=1,nsteps
109  time(i)=time(0)+1.d0
110 end do
111 
112 call ogc % output(time,'DAYS','TEST','',0,0)
113 
114 !cleanup
115 call olw%destroy()
116 
117 contains
118 
119 subroutine submit(t,s)
120 character(*),intent(in) :: t
121 character(kind=C_CHAR,len=*),intent(in) :: s
122 soutline(1,"(A)") s
123 
124 end subroutine
125 
126 !start of a fortran testing routine for the MGFluxMapper binding
127 subroutine test_grids()
128 type(scalestl_vec_dbl) :: old_grid,new_grid,union_grid,e_integrals
129 type(scaledata_energyunionizer) :: sd_eu
130 type(scalestl_vec_int) :: ooug,noug
131 type(scaledata_mgfluxmapper) :: sd_mgfm
132 
133 integer(C_SIZE_T) :: g
134 character(10000) :: mystr
135 
136 call sd_eu % initialize()
137 
138 call old_grid % initialize()
139 call old_grid % push_back(1d-3)
140 call old_grid % push_back(1d-4)
141 call old_grid % push_back(1d-5)
142 
143 call new_grid % initialize()
144 call new_grid % push_back(1d-3)
145 call new_grid % push_back(3d-4)
146 call new_grid % push_back(2d-4)
147 call new_grid % push_back(1d-4)
148 call new_grid % push_back(1d-5)
149 
150 call sd_eu%setGrids(old_grid,new_grid,1d-5)
151 
152 call sd_eu%unionGrid(union_grid)
153 
154 call sd_eu%oldOnUnionGrid(ooug)
155 call sd_eu%newOnUnionGrid(noug)
156 
157 write(error_unit,*)'union'
158 do g=1,union_grid%size()
159  write(error_unit,*)g,union_grid%at(g)
160 end do
161 write(error_unit,*)'old'
162 do g=1,old_grid%size()
163  write(error_unit,*)g,old_grid%at(g),ooug%at(g)
164 end do
165 write(error_unit,*)'new'
166 do g=1,new_grid%size()
167  write(error_unit,*)g,new_grid%at(g),noug%at(g)
168 end do
169 
170 write(error_unit,*)'flux mapping summary'
171 call sd_mgfm % initialize()
172 call sd_mgfm % fluxIntegrals_1(e_integrals,union_grid)
173 call sd_mgfm % setUnionizer(sd_eu,e_integrals)
174 call sd_mgfm % toString(mystr)
175 write(error_unit,*)trim(mystr)
176 
177 
178 call sd_eu%destroy()
179 call old_grid%destroy()
180 call new_grid%destroy()
181 end subroutine
182 
183 !Insists generated via gamma_library are copied here
184 !
185 !These checks are independent of the group structure chosen first
186 !in this testing main, as long as the bounds span the entire energy range!
187 !
188 !That is, we should conserve total counts no matter what group structure
189 !we rebin to, so the following checks should still hold.
190 subroutine gamma_library_class_check(this)
191 type(gamma_library_class) :: this
192 real(C_DOUBLE) :: ref,new
193 character(1048) :: msg
194 
195  insist(this%has_gamma( 1 ).eqv..false.," 10010 has_gamma")
196  insist(sum(this%binned(:, 1 ))== 0.0000000000000000 ," 10010 has zero counts if not has_gamma")
197  insist(this%has_gamma( 2 ).eqv..false.," 10020 has_gamma")
198  insist(sum(this%binned(:, 2 ))== 0.0000000000000000 ," 10020 has zero counts if not has_gamma")
199  insist(this%has_gamma( 3 ).eqv..true. ," 10030 has_gamma")
200  ref= 5.8041311241133610e-004
201  new=sum(this%binned(:, 3 ))
202  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.8041311241133610E-004 , new=",new,")"
203  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 10030 "//trim(msg))
204  insist(this%has_gamma( 4 ).eqv..false.," 20030 has_gamma")
205  insist(sum(this%binned(:, 4 ))== 0.0000000000000000 ," 20030 has zero counts if not has_gamma")
206  insist(this%has_gamma( 5 ).eqv..false.," 20040 has_gamma")
207  insist(sum(this%binned(:, 5 ))== 0.0000000000000000 ," 20040 has zero counts if not has_gamma")
208  insist(this%has_gamma( 6 ).eqv..false.," 20050 has_gamma")
209  insist(sum(this%binned(:, 6 ))== 0.0000000000000000 ," 20050 has zero counts if not has_gamma")
210  insist(this%has_gamma( 7 ).eqv..true. ," 20060 has_gamma")
211  ref= 1.9583603909770448
212  new=sum(this%binned(:, 7 ))
213  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.9583603909770448 , new=",new,")"
214  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 20060 "//trim(msg))
215  insist(this%has_gamma( 8 ).eqv..false.," 30060 has_gamma")
216  insist(sum(this%binned(:, 8 ))== 0.0000000000000000 ," 30060 has zero counts if not has_gamma")
217  insist(this%has_gamma( 9 ).eqv..false.," 30070 has_gamma")
218  insist(sum(this%binned(:, 9 ))== 0.0000000000000000 ," 30070 has zero counts if not has_gamma")
219  insist(this%has_gamma( 10 ).eqv..true. ," 30080 has_gamma")
220  ref= 8.5752635109750148
221  new=sum(this%binned(:, 10 ))
222  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.5752635109750148 , new=",new,")"
223  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 30080 "//trim(msg))
224  insist(this%has_gamma( 11 ).eqv..false.," 40070 has_gamma")
225  insist(sum(this%binned(:, 11 ))== 0.0000000000000000 ," 40070 has zero counts if not has_gamma")
226  insist(this%has_gamma( 12 ).eqv..false.," 40080 has_gamma")
227  insist(sum(this%binned(:, 12 ))== 0.0000000000000000 ," 40080 has zero counts if not has_gamma")
228  insist(this%has_gamma( 13 ).eqv..false.," 40090 has_gamma")
229  insist(sum(this%binned(:, 13 ))== 0.0000000000000000 ," 40090 has zero counts if not has_gamma")
230  insist(this%has_gamma( 14 ).eqv..true. ," 40100 has_gamma")
231  ref= 0.18154458185159256
232  new=sum(this%binned(:, 14 ))
233  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.18154458185159256 , new=",new,")"
234  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 40100 "//trim(msg))
235  insist(this%has_gamma( 15 ).eqv..false.," 40110 has_gamma")
236  insist(sum(this%binned(:, 15 ))== 0.0000000000000000 ," 40110 has zero counts if not has_gamma")
237  insist(this%has_gamma( 16 ).eqv..false.," 50100 has_gamma")
238  insist(sum(this%binned(:, 16 ))== 0.0000000000000000 ," 50100 has zero counts if not has_gamma")
239  insist(this%has_gamma( 17 ).eqv..false.," 50110 has_gamma")
240  insist(sum(this%binned(:, 17 ))== 0.0000000000000000 ," 50110 has zero counts if not has_gamma")
241  insist(this%has_gamma( 18 ).eqv..false.," 50120 has_gamma")
242  insist(sum(this%binned(:, 18 ))== 0.0000000000000000 ," 50120 has zero counts if not has_gamma")
243  insist(this%has_gamma( 19 ).eqv..false.," 60120 has_gamma")
244  insist(sum(this%binned(:, 19 ))== 0.0000000000000000 ," 60120 has zero counts if not has_gamma")
245  insist(this%has_gamma( 20 ).eqv..false.," 60130 has_gamma")
246  insist(sum(this%binned(:, 20 ))== 0.0000000000000000 ," 60130 has zero counts if not has_gamma")
247  insist(this%has_gamma( 21 ).eqv..true. ," 60140 has_gamma")
248  ref= 3.0992144909162689e-002
249  new=sum(this%binned(:, 21 ))
250  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.0992144909162689E-002 , new=",new,")"
251  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 60140 "//trim(msg))
252  insist(this%has_gamma( 22 ).eqv..true. ," 60150 has_gamma")
253  ref= 3.8114769755179916
254  new=sum(this%binned(:, 22 ))
255  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.8114769755179916 , new=",new,")"
256  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 60150 "//trim(msg))
257  insist(this%has_gamma( 23 ).eqv..true. ," 70130 has_gamma")
258  ref= 1.1202330472697635
259  new=sum(this%binned(:, 23 ))
260  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.1202330472697635 , new=",new,")"
261  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 70130 "//trim(msg))
262  insist(this%has_gamma( 24 ).eqv..false.," 70140 has_gamma")
263  insist(sum(this%binned(:, 24 ))== 0.0000000000000000 ," 70140 has zero counts if not has_gamma")
264  insist(this%has_gamma( 25 ).eqv..false.," 70150 has_gamma")
265  insist(sum(this%binned(:, 25 ))== 0.0000000000000000 ," 70150 has zero counts if not has_gamma")
266  insist(this%has_gamma( 26 ).eqv..true. ," 70160 has_gamma")
267  ref= 3.5533706609454621
268  new=sum(this%binned(:, 26 ))
269  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.5533706609454621 , new=",new,")"
270  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 70160 "//trim(msg))
271  insist(this%has_gamma( 27 ).eqv..false.," 80160 has_gamma")
272  insist(sum(this%binned(:, 27 ))== 0.0000000000000000 ," 80160 has zero counts if not has_gamma")
273  insist(this%has_gamma( 28 ).eqv..false.," 80170 has_gamma")
274  insist(sum(this%binned(:, 28 ))== 0.0000000000000000 ," 80170 has zero counts if not has_gamma")
275  insist(this%has_gamma( 29 ).eqv..false.," 80180 has_gamma")
276  insist(sum(this%binned(:, 29 ))== 0.0000000000000000 ," 80180 has zero counts if not has_gamma")
277  insist(this%has_gamma( 30 ).eqv..false.," 80190 has_gamma")
278  insist(sum(this%binned(:, 30 ))== 0.0000000000000000 ," 80190 has zero counts if not has_gamma")
279  insist(this%has_gamma( 31 ).eqv..false.," 90190 has_gamma")
280  insist(sum(this%binned(:, 31 ))== 0.0000000000000000 ," 90190 has zero counts if not has_gamma")
281  insist(this%has_gamma( 32 ).eqv..false.," 90200 has_gamma")
282  insist(sum(this%binned(:, 32 ))== 0.0000000000000000 ," 90200 has zero counts if not has_gamma")
283  insist(this%has_gamma( 33 ).eqv..false.," 100200 has_gamma")
284  insist(sum(this%binned(:, 33 ))== 0.0000000000000000 ," 100200 has zero counts if not has_gamma")
285  insist(this%has_gamma( 34 ).eqv..false.," 100210 has_gamma")
286  insist(sum(this%binned(:, 34 ))== 0.0000000000000000 ," 100210 has zero counts if not has_gamma")
287  insist(this%has_gamma( 35 ).eqv..false.," 100220 has_gamma")
288  insist(sum(this%binned(:, 35 ))== 0.0000000000000000 ," 100220 has zero counts if not has_gamma")
289  insist(this%has_gamma( 36 ).eqv..true. ," 100230 has_gamma")
290  ref= 2.4355627354689204
291  new=sum(this%binned(:, 36 ))
292  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.4355627354689204 , new=",new,")"
293  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 100230 "//trim(msg))
294  insist(this%has_gamma( 37 ).eqv..true. ," 110220 has_gamma")
295  ref= 0.64711009807466169
296  new=sum(this%binned(:, 37 ))
297  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.64711009807466169 , new=",new,")"
298  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 110220 "//trim(msg))
299  insist(this%has_gamma( 38 ).eqv..false.," 110230 has_gamma")
300  insist(sum(this%binned(:, 38 ))== 0.0000000000000000 ," 110230 has zero counts if not has_gamma")
301  insist(this%has_gamma( 39 ).eqv..true. ," 110240 has_gamma")
302  ref= 0.59677234851019356
303  new=sum(this%binned(:, 39 ))
304  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.59677234851019356 , new=",new,")"
305  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 110240 "//trim(msg))
306  insist(this%has_gamma( 40 ).eqv..false.," 110241 has_gamma")
307  insist(sum(this%binned(:, 40 ))== 0.0000000000000000 ," 110241 has zero counts if not has_gamma")
308  insist(this%has_gamma( 41 ).eqv..true. ," 110250 has_gamma")
309  ref= 1.8754735301229295
310  new=sum(this%binned(:, 41 ))
311  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.8754735301229295 , new=",new,")"
312  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 110250 "//trim(msg))
313  insist(this%has_gamma( 42 ).eqv..false.," 120240 has_gamma")
314  insist(sum(this%binned(:, 42 ))== 0.0000000000000000 ," 120240 has zero counts if not has_gamma")
315  insist(this%has_gamma( 43 ).eqv..false.," 120250 has_gamma")
316  insist(sum(this%binned(:, 43 ))== 0.0000000000000000 ," 120250 has zero counts if not has_gamma")
317  insist(this%has_gamma( 44 ).eqv..false.," 120260 has_gamma")
318  insist(sum(this%binned(:, 44 ))== 0.0000000000000000 ," 120260 has zero counts if not has_gamma")
319  insist(this%has_gamma( 45 ).eqv..true. ," 120270 has_gamma")
320  ref= 0.78489560372959633
321  new=sum(this%binned(:, 45 ))
322  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.78489560372959633 , new=",new,")"
323  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 120270 "//trim(msg))
324  insist(this%has_gamma( 46 ).eqv..true. ," 120280 has_gamma")
325  ref= 0.13423603921283089
326  new=sum(this%binned(:, 46 ))
327  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.13423603921283089 , new=",new,")"
328  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 120280 "//trim(msg))
329  insist(this%has_gamma( 47 ).eqv..false.," 130260 has_gamma")
330  insist(sum(this%binned(:, 47 ))== 0.0000000000000000 ," 130260 has zero counts if not has_gamma")
331  insist(this%has_gamma( 48 ).eqv..false.," 130270 has_gamma")
332  insist(sum(this%binned(:, 48 ))== 0.0000000000000000 ," 130270 has zero counts if not has_gamma")
333  insist(this%has_gamma( 49 ).eqv..true. ," 130280 has_gamma")
334  ref= 1.5076996693234719
335  new=sum(this%binned(:, 49 ))
336  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.5076996693234719 , new=",new,")"
337  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 130280 "//trim(msg))
338  insist(this%has_gamma( 50 ).eqv..true. ," 130290 has_gamma")
339  ref= 1.1502106814523927
340  new=sum(this%binned(:, 50 ))
341  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.1502106814523927 , new=",new,")"
342  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 130290 "//trim(msg))
343  insist(this%has_gamma( 51 ).eqv..true. ," 130300 has_gamma")
344  ref= 3.0191950468732767
345  new=sum(this%binned(:, 51 ))
346  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.0191950468732767 , new=",new,")"
347  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 130300 "//trim(msg))
348  insist(this%has_gamma( 52 ).eqv..false.," 140280 has_gamma")
349  insist(sum(this%binned(:, 52 ))== 0.0000000000000000 ," 140280 has zero counts if not has_gamma")
350  insist(this%has_gamma( 53 ).eqv..false.," 140290 has_gamma")
351  insist(sum(this%binned(:, 53 ))== 0.0000000000000000 ," 140290 has zero counts if not has_gamma")
352  insist(this%has_gamma( 54 ).eqv..false.," 140300 has_gamma")
353  insist(sum(this%binned(:, 54 ))== 0.0000000000000000 ," 140300 has zero counts if not has_gamma")
354  insist(this%has_gamma( 55 ).eqv..true. ," 140310 has_gamma")
355  ref= 0.65117162278703178
356  new=sum(this%binned(:, 55 ))
357  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.65117162278703178 , new=",new,")"
358  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 140310 "//trim(msg))
359  insist(this%has_gamma( 56 ).eqv..true. ," 140320 has_gamma")
360  ref= 4.5932783156572995e-002
361  new=sum(this%binned(:, 56 ))
362  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.5932783156572995E-002 , new=",new,")"
363  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 140320 "//trim(msg))
364  insist(this%has_gamma( 57 ).eqv..false.," 150310 has_gamma")
365  insist(sum(this%binned(:, 57 ))== 0.0000000000000000 ," 150310 has zero counts if not has_gamma")
366  insist(this%has_gamma( 58 ).eqv..true. ," 150320 has_gamma")
367  ref= 0.77732818926343850
368  new=sum(this%binned(:, 58 ))
369  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.77732818926343850 , new=",new,")"
370  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 150320 "//trim(msg))
371  insist(this%has_gamma( 59 ).eqv..true. ," 150330 has_gamma")
372  ref= 5.7196099764841087e-002
373  new=sum(this%binned(:, 59 ))
374  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.7196099764841087E-002 , new=",new,")"
375  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 150330 "//trim(msg))
376  insist(this%has_gamma( 60 ).eqv..false.," 150340 has_gamma")
377  insist(sum(this%binned(:, 60 ))== 0.0000000000000000 ," 150340 has zero counts if not has_gamma")
378  insist(this%has_gamma( 61 ).eqv..false.," 160320 has_gamma")
379  insist(sum(this%binned(:, 61 ))== 0.0000000000000000 ," 160320 has zero counts if not has_gamma")
380  insist(this%has_gamma( 62 ).eqv..false.," 160330 has_gamma")
381  insist(sum(this%binned(:, 62 ))== 0.0000000000000000 ," 160330 has zero counts if not has_gamma")
382  insist(this%has_gamma( 63 ).eqv..false.," 160340 has_gamma")
383  insist(sum(this%binned(:, 63 ))== 0.0000000000000000 ," 160340 has zero counts if not has_gamma")
384  insist(this%has_gamma( 64 ).eqv..true. ," 160350 has_gamma")
385  ref= 3.1893720850639802e-002
386  new=sum(this%binned(:, 64 ))
387  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.1893720850639802E-002 , new=",new,")"
388  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 160350 "//trim(msg))
389  insist(this%has_gamma( 65 ).eqv..false.," 160360 has_gamma")
390  insist(sum(this%binned(:, 65 ))== 0.0000000000000000 ," 160360 has zero counts if not has_gamma")
391  insist(this%has_gamma( 66 ).eqv..false.," 160370 has_gamma")
392  insist(sum(this%binned(:, 66 ))== 0.0000000000000000 ," 160370 has zero counts if not has_gamma")
393  insist(this%has_gamma( 67 ).eqv..false.," 170350 has_gamma")
394  insist(sum(this%binned(:, 67 ))== 0.0000000000000000 ," 170350 has zero counts if not has_gamma")
395  insist(this%has_gamma( 68 ).eqv..true. ," 170360 has_gamma")
396  ref= 0.23200079075521354
397  new=sum(this%binned(:, 68 ))
398  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.23200079075521354 , new=",new,")"
399  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 170360 "//trim(msg))
400  insist(this%has_gamma( 69 ).eqv..false.," 170370 has_gamma")
401  insist(sum(this%binned(:, 69 ))== 0.0000000000000000 ," 170370 has zero counts if not has_gamma")
402  insist(this%has_gamma( 70 ).eqv..true. ," 170380 has_gamma")
403  ref= 1.9509010441277035
404  new=sum(this%binned(:, 70 ))
405  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.9509010441277035 , new=",new,")"
406  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 170380 "//trim(msg))
407  insist(this%has_gamma( 71 ).eqv..false.," 170381 has_gamma")
408  insist(sum(this%binned(:, 71 ))== 0.0000000000000000 ," 170381 has zero counts if not has_gamma")
409  insist(this%has_gamma( 72 ).eqv..false.," 180360 has_gamma")
410  insist(sum(this%binned(:, 72 ))== 0.0000000000000000 ," 180360 has zero counts if not has_gamma")
411  insist(this%has_gamma( 73 ).eqv..false.," 180370 has_gamma")
412  insist(sum(this%binned(:, 73 ))== 0.0000000000000000 ," 180370 has zero counts if not has_gamma")
413  insist(this%has_gamma( 74 ).eqv..false.," 180380 has_gamma")
414  insist(sum(this%binned(:, 74 ))== 0.0000000000000000 ," 180380 has zero counts if not has_gamma")
415  insist(this%has_gamma( 75 ).eqv..false.," 180390 has_gamma")
416  insist(sum(this%binned(:, 75 ))== 0.0000000000000000 ," 180390 has zero counts if not has_gamma")
417  insist(this%has_gamma( 76 ).eqv..false.," 180400 has_gamma")
418  insist(sum(this%binned(:, 76 ))== 0.0000000000000000 ," 180400 has zero counts if not has_gamma")
419  insist(this%has_gamma( 77 ).eqv..true. ," 180410 has_gamma")
420  ref= 0.49073361162050932
421  new=sum(this%binned(:, 77 ))
422  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.49073361162050932 , new=",new,")"
423  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 180410 "//trim(msg))
424  insist(this%has_gamma( 78 ).eqv..false.," 180420 has_gamma")
425  insist(sum(this%binned(:, 78 ))== 0.0000000000000000 ," 180420 has zero counts if not has_gamma")
426  insist(this%has_gamma( 79 ).eqv..false.," 190390 has_gamma")
427  insist(sum(this%binned(:, 79 ))== 0.0000000000000000 ," 190390 has zero counts if not has_gamma")
428  insist(this%has_gamma( 80 ).eqv..true. ," 190400 has_gamma")
429  ref= 0.43491463257152418
430  new=sum(this%binned(:, 80 ))
431  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.43491463257152418 , new=",new,")"
432  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 190400 "//trim(msg))
433  insist(this%has_gamma( 81 ).eqv..false.," 190410 has_gamma")
434  insist(sum(this%binned(:, 81 ))== 0.0000000000000000 ," 190410 has zero counts if not has_gamma")
435  insist(this%has_gamma( 82 ).eqv..true. ," 190420 has_gamma")
436  ref= 1.7894261283006869
437  new=sum(this%binned(:, 82 ))
438  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.7894261283006869 , new=",new,")"
439  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 190420 "//trim(msg))
440  insist(this%has_gamma( 83 ).eqv..true. ," 190430 has_gamma")
441  ref= 0.30874201047428407
442  new=sum(this%binned(:, 83 ))
443  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.30874201047428407 , new=",new,")"
444  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 190430 "//trim(msg))
445  insist(this%has_gamma( 84 ).eqv..false.," 190440 has_gamma")
446  insist(sum(this%binned(:, 84 ))== 0.0000000000000000 ," 190440 has zero counts if not has_gamma")
447  insist(this%has_gamma( 85 ).eqv..false.," 200400 has_gamma")
448  insist(sum(this%binned(:, 85 ))== 0.0000000000000000 ," 200400 has zero counts if not has_gamma")
449  insist(this%has_gamma( 86 ).eqv..false.," 200410 has_gamma")
450  insist(sum(this%binned(:, 86 ))== 0.0000000000000000 ," 200410 has zero counts if not has_gamma")
451  insist(this%has_gamma( 87 ).eqv..false.," 200420 has_gamma")
452  insist(sum(this%binned(:, 87 ))== 0.0000000000000000 ," 200420 has zero counts if not has_gamma")
453  insist(this%has_gamma( 88 ).eqv..false.," 200430 has_gamma")
454  insist(sum(this%binned(:, 88 ))== 0.0000000000000000 ," 200430 has zero counts if not has_gamma")
455  insist(this%has_gamma( 89 ).eqv..false.," 200440 has_gamma")
456  insist(sum(this%binned(:, 89 ))== 0.0000000000000000 ," 200440 has zero counts if not has_gamma")
457  insist(this%has_gamma( 90 ).eqv..true. ," 200450 has_gamma")
458  ref= 5.8461036379483737e-002
459  new=sum(this%binned(:, 90 ))
460  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.8461036379483737E-002 , new=",new,")"
461  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 200450 "//trim(msg))
462  insist(this%has_gamma( 91 ).eqv..false.," 200460 has_gamma")
463  insist(sum(this%binned(:, 91 ))== 0.0000000000000000 ," 200460 has zero counts if not has_gamma")
464  insist(this%has_gamma( 92 ).eqv..true. ," 200470 has_gamma")
465  ref= 0.35860605266450596
466  new=sum(this%binned(:, 92 ))
467  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.35860605266450596 , new=",new,")"
468  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 200470 "//trim(msg))
469  insist(this%has_gamma( 93 ).eqv..false.," 200480 has_gamma")
470  insist(sum(this%binned(:, 93 ))== 0.0000000000000000 ," 200480 has zero counts if not has_gamma")
471  insist(this%has_gamma( 94 ).eqv..false.," 200490 has_gamma")
472  insist(sum(this%binned(:, 94 ))== 0.0000000000000000 ," 200490 has zero counts if not has_gamma")
473  insist(this%has_gamma( 95 ).eqv..false.," 210440 has_gamma")
474  insist(sum(this%binned(:, 95 ))== 0.0000000000000000 ," 210440 has zero counts if not has_gamma")
475  insist(this%has_gamma( 96 ).eqv..false.," 210441 has_gamma")
476  insist(sum(this%binned(:, 96 ))== 0.0000000000000000 ," 210441 has zero counts if not has_gamma")
477  insist(this%has_gamma( 97 ).eqv..false.," 210450 has_gamma")
478  insist(sum(this%binned(:, 97 ))== 0.0000000000000000 ," 210450 has zero counts if not has_gamma")
479  insist(this%has_gamma( 98 ).eqv..false.," 210451 has_gamma")
480  insist(sum(this%binned(:, 98 ))== 0.0000000000000000 ," 210451 has zero counts if not has_gamma")
481  insist(this%has_gamma( 99 ).eqv..true. ," 210460 has_gamma")
482  ref= 9.2907327068596016e-002
483  new=sum(this%binned(:, 99 ))
484  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 9.2907327068596016E-002 , new=",new,")"
485  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 210460 "//trim(msg))
486  insist(this%has_gamma( 100 ).eqv..false.," 210461 has_gamma")
487  insist(sum(this%binned(:, 100 ))== 0.0000000000000000 ," 210461 has zero counts if not has_gamma")
488  insist(this%has_gamma( 101 ).eqv..true. ," 210470 has_gamma")
489  ref= 0.14530389527729423
490  new=sum(this%binned(:, 101 ))
491  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.14530389527729423 , new=",new,")"
492  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 210470 "//trim(msg))
493  insist(this%has_gamma( 102 ).eqv..true. ," 210480 has_gamma")
494  ref= 0.20746593671918218
495  new=sum(this%binned(:, 102 ))
496  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.20746593671918218 , new=",new,")"
497  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 210480 "//trim(msg))
498  insist(this%has_gamma( 103 ).eqv..false.," 210490 has_gamma")
499  insist(sum(this%binned(:, 103 ))== 0.0000000000000000 ," 210490 has zero counts if not has_gamma")
500  insist(this%has_gamma( 104 ).eqv..true. ," 210500 has_gamma")
501  ref= 2.0947096260576084
502  new=sum(this%binned(:, 104 ))
503  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.0947096260576084 , new=",new,")"
504  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 210500 "//trim(msg))
505  insist(this%has_gamma( 105 ).eqv..false.," 220440 has_gamma")
506  insist(sum(this%binned(:, 105 ))== 0.0000000000000000 ," 220440 has zero counts if not has_gamma")
507  insist(this%has_gamma( 106 ).eqv..false.," 220450 has_gamma")
508  insist(sum(this%binned(:, 106 ))== 0.0000000000000000 ," 220450 has zero counts if not has_gamma")
509  insist(this%has_gamma( 107 ).eqv..false.," 220460 has_gamma")
510  insist(sum(this%binned(:, 107 ))== 0.0000000000000000 ," 220460 has zero counts if not has_gamma")
511  insist(this%has_gamma( 108 ).eqv..false.," 220470 has_gamma")
512  insist(sum(this%binned(:, 108 ))== 0.0000000000000000 ," 220470 has zero counts if not has_gamma")
513  insist(this%has_gamma( 109 ).eqv..false.," 220480 has_gamma")
514  insist(sum(this%binned(:, 109 ))== 0.0000000000000000 ," 220480 has zero counts if not has_gamma")
515  insist(this%has_gamma( 110 ).eqv..false.," 220490 has_gamma")
516  insist(sum(this%binned(:, 110 ))== 0.0000000000000000 ," 220490 has zero counts if not has_gamma")
517  insist(this%has_gamma( 111 ).eqv..false.," 220500 has_gamma")
518  insist(sum(this%binned(:, 111 ))== 0.0000000000000000 ," 220500 has zero counts if not has_gamma")
519  insist(this%has_gamma( 112 ).eqv..true. ," 220510 has_gamma")
520  ref= 1.0035929184987256
521  new=sum(this%binned(:, 112 ))
522  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.0035929184987256 , new=",new,")"
523  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 220510 "//trim(msg))
524  insist(this%has_gamma( 113 ).eqv..false.," 230480 has_gamma")
525  insist(sum(this%binned(:, 113 ))== 0.0000000000000000 ," 230480 has zero counts if not has_gamma")
526  insist(this%has_gamma( 114 ).eqv..false.," 230490 has_gamma")
527  insist(sum(this%binned(:, 114 ))== 0.0000000000000000 ," 230490 has zero counts if not has_gamma")
528  insist(this%has_gamma( 115 ).eqv..false.," 230500 has_gamma")
529  insist(sum(this%binned(:, 115 ))== 0.0000000000000000 ," 230500 has zero counts if not has_gamma")
530  insist(this%has_gamma( 116 ).eqv..false.," 230510 has_gamma")
531  insist(sum(this%binned(:, 116 ))== 0.0000000000000000 ," 230510 has zero counts if not has_gamma")
532  insist(this%has_gamma( 117 ).eqv..true. ," 230520 has_gamma")
533  ref= 1.2749269110795471
534  new=sum(this%binned(:, 117 ))
535  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2749269110795471 , new=",new,")"
536  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 230520 "//trim(msg))
537  insist(this%has_gamma( 118 ).eqv..true. ," 230530 has_gamma")
538  ref= 1.1802010464990640
539  new=sum(this%binned(:, 118 ))
540  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.1802010464990640 , new=",new,")"
541  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 230530 "//trim(msg))
542  insist(this%has_gamma( 119 ).eqv..false.," 230540 has_gamma")
543  insist(sum(this%binned(:, 119 ))== 0.0000000000000000 ," 230540 has zero counts if not has_gamma")
544  insist(this%has_gamma( 120 ).eqv..false.," 240480 has_gamma")
545  insist(sum(this%binned(:, 120 ))== 0.0000000000000000 ," 240480 has zero counts if not has_gamma")
546  insist(this%has_gamma( 121 ).eqv..false.," 240490 has_gamma")
547  insist(sum(this%binned(:, 121 ))== 0.0000000000000000 ," 240490 has zero counts if not has_gamma")
548  insist(this%has_gamma( 122 ).eqv..false.," 240500 has_gamma")
549  insist(sum(this%binned(:, 122 ))== 0.0000000000000000 ," 240500 has zero counts if not has_gamma")
550  insist(this%has_gamma( 123 ).eqv..false.," 240510 has_gamma")
551  insist(sum(this%binned(:, 123 ))== 0.0000000000000000 ," 240510 has zero counts if not has_gamma")
552  insist(this%has_gamma( 124 ).eqv..false.," 240520 has_gamma")
553  insist(sum(this%binned(:, 124 ))== 0.0000000000000000 ," 240520 has zero counts if not has_gamma")
554  insist(this%has_gamma( 125 ).eqv..false.," 240530 has_gamma")
555  insist(sum(this%binned(:, 125 ))== 0.0000000000000000 ," 240530 has zero counts if not has_gamma")
556  insist(this%has_gamma( 126 ).eqv..false.," 240540 has_gamma")
557  insist(sum(this%binned(:, 126 ))== 0.0000000000000000 ," 240540 has zero counts if not has_gamma")
558  insist(this%has_gamma( 127 ).eqv..true. ," 240550 has_gamma")
559  ref= 1.3186298816826822
560  new=sum(this%binned(:, 127 ))
561  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.3186298816826822 , new=",new,")"
562  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 240550 "//trim(msg))
563  insist(this%has_gamma( 128 ).eqv..false.," 250520 has_gamma")
564  insist(sum(this%binned(:, 128 ))== 0.0000000000000000 ," 250520 has zero counts if not has_gamma")
565  insist(this%has_gamma( 129 ).eqv..false.," 250530 has_gamma")
566  insist(sum(this%binned(:, 129 ))== 0.0000000000000000 ," 250530 has zero counts if not has_gamma")
567  insist(this%has_gamma( 130 ).eqv..false.," 250540 has_gamma")
568  insist(sum(this%binned(:, 130 ))== 0.0000000000000000 ," 250540 has zero counts if not has_gamma")
569  insist(this%has_gamma( 131 ).eqv..false.," 250550 has_gamma")
570  insist(sum(this%binned(:, 131 ))== 0.0000000000000000 ," 250550 has zero counts if not has_gamma")
571  insist(this%has_gamma( 132 ).eqv..true. ," 250560 has_gamma")
572  ref= 0.97879776808926555
573  new=sum(this%binned(:, 132 ))
574  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.97879776808926555 , new=",new,")"
575  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 250560 "//trim(msg))
576  insist(this%has_gamma( 133 ).eqv..true. ," 250570 has_gamma")
577  ref= 1.3171698749107721
578  new=sum(this%binned(:, 133 ))
579  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.3171698749107721 , new=",new,")"
580  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 250570 "//trim(msg))
581  insist(this%has_gamma( 134 ).eqv..true. ," 250580 has_gamma")
582  ref= 2.0126975445663220
583  new=sum(this%binned(:, 134 ))
584  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.0126975445663220 , new=",new,")"
585  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 250580 "//trim(msg))
586  insist(this%has_gamma( 135 ).eqv..false.," 260540 has_gamma")
587  insist(sum(this%binned(:, 135 ))== 0.0000000000000000 ," 260540 has zero counts if not has_gamma")
588  insist(this%has_gamma( 136 ).eqv..false.," 260550 has_gamma")
589  insist(sum(this%binned(:, 136 ))== 0.0000000000000000 ," 260550 has zero counts if not has_gamma")
590  insist(this%has_gamma( 137 ).eqv..false.," 260560 has_gamma")
591  insist(sum(this%binned(:, 137 ))== 0.0000000000000000 ," 260560 has zero counts if not has_gamma")
592  insist(this%has_gamma( 138 ).eqv..false.," 260570 has_gamma")
593  insist(sum(this%binned(:, 138 ))== 0.0000000000000000 ," 260570 has zero counts if not has_gamma")
594  insist(this%has_gamma( 139 ).eqv..false.," 260580 has_gamma")
595  insist(sum(this%binned(:, 139 ))== 0.0000000000000000 ," 260580 has zero counts if not has_gamma")
596  insist(this%has_gamma( 140 ).eqv..true. ," 260590 has_gamma")
597  ref= 9.9839981208801470e-002
598  new=sum(this%binned(:, 140 ))
599  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 9.9839981208801470E-002 , new=",new,")"
600  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 260590 "//trim(msg))
601  insist(this%has_gamma( 141 ).eqv..false.," 260600 has_gamma")
602  insist(sum(this%binned(:, 141 ))== 0.0000000000000000 ," 260600 has zero counts if not has_gamma")
603  insist(this%has_gamma( 142 ).eqv..false.," 270550 has_gamma")
604  insist(sum(this%binned(:, 142 ))== 0.0000000000000000 ," 270550 has zero counts if not has_gamma")
605  insist(this%has_gamma( 143 ).eqv..false.," 270560 has_gamma")
606  insist(sum(this%binned(:, 143 ))== 0.0000000000000000 ," 270560 has zero counts if not has_gamma")
607  insist(this%has_gamma( 144 ).eqv..false.," 270570 has_gamma")
608  insist(sum(this%binned(:, 144 ))== 0.0000000000000000 ," 270570 has zero counts if not has_gamma")
609  insist(this%has_gamma( 145 ).eqv..false.," 270581 has_gamma")
610  insist(sum(this%binned(:, 145 ))== 0.0000000000000000 ," 270581 has zero counts if not has_gamma")
611  insist(this%has_gamma( 146 ).eqv..true. ," 270580 has_gamma")
612  ref= 0.10442481034690776
613  new=sum(this%binned(:, 146 ))
614  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.10442481034690776 , new=",new,")"
615  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 270580 "//trim(msg))
616  insist(this%has_gamma( 147 ).eqv..false.," 270590 has_gamma")
617  insist(sum(this%binned(:, 147 ))== 0.0000000000000000 ," 270590 has zero counts if not has_gamma")
618  insist(this%has_gamma( 148 ).eqv..true. ," 270600 has_gamma")
619  ref= 7.7794668172793124e-002
620  new=sum(this%binned(:, 148 ))
621  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 7.7794668172793124E-002 , new=",new,")"
622  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 270600 "//trim(msg))
623  insist(this%has_gamma( 149 ).eqv..true. ," 270601 has_gamma")
624  ref= 4.0713854684785566e-006
625  new=sum(this%binned(:, 149 ))
626  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.0713854684785566E-006 , new=",new,")"
627  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 270601 "//trim(msg))
628  insist(this%has_gamma( 150 ).eqv..true. ," 270610 has_gamma")
629  ref= 0.48451684779639942
630  new=sum(this%binned(:, 150 ))
631  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.48451684779639942 , new=",new,")"
632  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 270610 "//trim(msg))
633  insist(this%has_gamma( 151 ).eqv..true. ," 270620 has_gamma")
634  ref= 2.0111488902794221
635  new=sum(this%binned(:, 151 ))
636  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.0111488902794221 , new=",new,")"
637  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 270620 "//trim(msg))
638  insist(this%has_gamma( 152 ).eqv..false.," 280560 has_gamma")
639  insist(sum(this%binned(:, 152 ))== 0.0000000000000000 ," 280560 has zero counts if not has_gamma")
640  insist(this%has_gamma( 153 ).eqv..false.," 280570 has_gamma")
641  insist(sum(this%binned(:, 153 ))== 0.0000000000000000 ," 280570 has zero counts if not has_gamma")
642  insist(this%has_gamma( 154 ).eqv..false.," 280580 has_gamma")
643  insist(sum(this%binned(:, 154 ))== 0.0000000000000000 ," 280580 has zero counts if not has_gamma")
644  insist(this%has_gamma( 155 ).eqv..false.," 280590 has_gamma")
645  insist(sum(this%binned(:, 155 ))== 0.0000000000000000 ," 280590 has zero counts if not has_gamma")
646  insist(this%has_gamma( 156 ).eqv..false.," 280600 has_gamma")
647  insist(sum(this%binned(:, 156 ))== 0.0000000000000000 ," 280600 has zero counts if not has_gamma")
648  insist(this%has_gamma( 157 ).eqv..false.," 280610 has_gamma")
649  insist(sum(this%binned(:, 157 ))== 0.0000000000000000 ," 280610 has zero counts if not has_gamma")
650  insist(this%has_gamma( 158 ).eqv..false.," 280620 has_gamma")
651  insist(sum(this%binned(:, 158 ))== 0.0000000000000000 ," 280620 has zero counts if not has_gamma")
652  insist(this%has_gamma( 159 ).eqv..true. ," 280630 has_gamma")
653  ref= 6.8060587681108660e-003
654  new=sum(this%binned(:, 159 ))
655  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.8060587681108660E-003 , new=",new,")"
656  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 280630 "//trim(msg))
657  insist(this%has_gamma( 160 ).eqv..false.," 280640 has_gamma")
658  insist(sum(this%binned(:, 160 ))== 0.0000000000000000 ," 280640 has zero counts if not has_gamma")
659  insist(this%has_gamma( 161 ).eqv..true. ," 280650 has_gamma")
660  ref= 0.71665109825983109
661  new=sum(this%binned(:, 161 ))
662  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.71665109825983109 , new=",new,")"
663  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 280650 "//trim(msg))
664  insist(this%has_gamma( 162 ).eqv..true. ," 280660 has_gamma")
665  ref= 4.9393710887042759e-002
666  new=sum(this%binned(:, 162 ))
667  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.9393710887042759E-002 , new=",new,")"
668  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 280660 "//trim(msg))
669  insist(this%has_gamma( 163 ).eqv..true. ," 290620 has_gamma")
670  ref= 2.2607026206143219
671  new=sum(this%binned(:, 163 ))
672  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.2607026206143219 , new=",new,")"
673  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 290620 "//trim(msg))
674  insist(this%has_gamma( 164 ).eqv..false.," 290630 has_gamma")
675  insist(sum(this%binned(:, 164 ))== 0.0000000000000000 ," 290630 has zero counts if not has_gamma")
676  insist(this%has_gamma( 165 ).eqv..true. ," 290640 has_gamma")
677  ref= 0.11471263055717519
678  new=sum(this%binned(:, 165 ))
679  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.11471263055717519 , new=",new,")"
680  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 290640 "//trim(msg))
681  insist(this%has_gamma( 166 ).eqv..false.," 290650 has_gamma")
682  insist(sum(this%binned(:, 166 ))== 0.0000000000000000 ," 290650 has zero counts if not has_gamma")
683  insist(this%has_gamma( 167 ).eqv..true. ," 290660 has_gamma")
684  ref= 1.2811493807402461
685  new=sum(this%binned(:, 167 ))
686  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2811493807402461 , new=",new,")"
687  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 290660 "//trim(msg))
688  insist(this%has_gamma( 168 ).eqv..true. ," 290670 has_gamma")
689  ref= 0.12419624399658105
690  new=sum(this%binned(:, 168 ))
691  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.12419624399658105 , new=",new,")"
692  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 290670 "//trim(msg))
693  insist(this%has_gamma( 169 ).eqv..true. ," 300630 has_gamma")
694  ref= 1.7069971737701048
695  new=sum(this%binned(:, 169 ))
696  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.7069971737701048 , new=",new,")"
697  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 300630 "//trim(msg))
698  insist(this%has_gamma( 170 ).eqv..false.," 300640 has_gamma")
699  insist(sum(this%binned(:, 170 ))== 0.0000000000000000 ," 300640 has zero counts if not has_gamma")
700  insist(this%has_gamma( 171 ).eqv..true. ," 300650 has_gamma")
701  ref= 8.9869193073204290e-003
702  new=sum(this%binned(:, 171 ))
703  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.9869193073204290E-003 , new=",new,")"
704  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 300650 "//trim(msg))
705  insist(this%has_gamma( 172 ).eqv..false.," 300660 has_gamma")
706  insist(sum(this%binned(:, 172 ))== 0.0000000000000000 ," 300660 has zero counts if not has_gamma")
707  insist(this%has_gamma( 173 ).eqv..false.," 300670 has_gamma")
708  insist(sum(this%binned(:, 173 ))== 0.0000000000000000 ," 300670 has zero counts if not has_gamma")
709  insist(this%has_gamma( 174 ).eqv..false.," 300680 has_gamma")
710  insist(sum(this%binned(:, 174 ))== 0.0000000000000000 ," 300680 has zero counts if not has_gamma")
711  insist(this%has_gamma( 175 ).eqv..true. ," 300690 has_gamma")
712  ref= 0.32448997333713686
713  new=sum(this%binned(:, 175 ))
714  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.32448997333713686 , new=",new,")"
715  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 300690 "//trim(msg))
716  insist(this%has_gamma( 176 ).eqv..true. ," 300691 has_gamma")
717  ref= 3.1907135371456243e-008
718  new=sum(this%binned(:, 176 ))
719  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.1907135371456243E-008 , new=",new,")"
720  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 300691 "//trim(msg))
721  insist(this%has_gamma( 177 ).eqv..false.," 300700 has_gamma")
722  insist(sum(this%binned(:, 177 ))== 0.0000000000000000 ," 300700 has zero counts if not has_gamma")
723  insist(this%has_gamma( 178 ).eqv..true. ," 300710 has_gamma")
724  ref= 1.2487497560868803
725  new=sum(this%binned(:, 178 ))
726  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2487497560868803 , new=",new,")"
727  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 300710 "//trim(msg))
728  insist(this%has_gamma( 179 ).eqv..true. ," 300711 has_gamma")
729  ref= 0.61465169864222335
730  new=sum(this%binned(:, 179 ))
731  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.61465169864222335 , new=",new,")"
732  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 300711 "//trim(msg))
733  insist(this%has_gamma( 180 ).eqv..true. ," 300720 has_gamma")
734  ref= 6.7099930788272200e-002
735  new=sum(this%binned(:, 180 ))
736  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.7099930788272200E-002 , new=",new,")"
737  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 300720 "//trim(msg))
738  insist(this%has_gamma( 181 ).eqv..false.," 310670 has_gamma")
739  insist(sum(this%binned(:, 181 ))== 0.0000000000000000 ," 310670 has zero counts if not has_gamma")
740  insist(this%has_gamma( 182 ).eqv..false.," 310680 has_gamma")
741  insist(sum(this%binned(:, 182 ))== 0.0000000000000000 ," 310680 has zero counts if not has_gamma")
742  insist(this%has_gamma( 183 ).eqv..false.," 310690 has_gamma")
743  insist(sum(this%binned(:, 183 ))== 0.0000000000000000 ," 310690 has zero counts if not has_gamma")
744  insist(this%has_gamma( 184 ).eqv..true. ," 310700 has_gamma")
745  ref= 0.72407405871151376
746  new=sum(this%binned(:, 184 ))
747  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.72407405871151376 , new=",new,")"
748  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 310700 "//trim(msg))
749  insist(this%has_gamma( 185 ).eqv..false.," 310710 has_gamma")
750  insist(sum(this%binned(:, 185 ))== 0.0000000000000000 ," 310710 has zero counts if not has_gamma")
751  insist(this%has_gamma( 186 ).eqv..true. ," 310720 has_gamma")
752  ref= 0.54910348605116188
753  new=sum(this%binned(:, 186 ))
754  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.54910348605116188 , new=",new,")"
755  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 310720 "//trim(msg))
756  insist(this%has_gamma( 187 ).eqv..false.," 310721 has_gamma")
757  insist(sum(this%binned(:, 187 ))== 0.0000000000000000 ," 310721 has zero counts if not has_gamma")
758  insist(this%has_gamma( 188 ).eqv..false.," 320680 has_gamma")
759  insist(sum(this%binned(:, 188 ))== 0.0000000000000000 ," 320680 has zero counts if not has_gamma")
760  insist(this%has_gamma( 189 ).eqv..false.," 320690 has_gamma")
761  insist(sum(this%binned(:, 189 ))== 0.0000000000000000 ," 320690 has zero counts if not has_gamma")
762  insist(this%has_gamma( 190 ).eqv..false.," 320700 has_gamma")
763  insist(sum(this%binned(:, 190 ))== 0.0000000000000000 ," 320700 has zero counts if not has_gamma")
764  insist(this%has_gamma( 191 ).eqv..false.," 320710 has_gamma")
765  insist(sum(this%binned(:, 191 ))== 0.0000000000000000 ," 320710 has zero counts if not has_gamma")
766  insist(this%has_gamma( 192 ).eqv..false.," 320711 has_gamma")
767  insist(sum(this%binned(:, 192 ))== 0.0000000000000000 ," 320711 has zero counts if not has_gamma")
768  insist(this%has_gamma( 193 ).eqv..false.," 320720 has_gamma")
769  insist(sum(this%binned(:, 193 ))== 0.0000000000000000 ," 320720 has zero counts if not has_gamma")
770  insist(this%has_gamma( 194 ).eqv..false.," 320730 has_gamma")
771  insist(sum(this%binned(:, 194 ))== 0.0000000000000000 ," 320730 has zero counts if not has_gamma")
772  insist(this%has_gamma( 195 ).eqv..false.," 320731 has_gamma")
773  insist(sum(this%binned(:, 195 ))== 0.0000000000000000 ," 320731 has zero counts if not has_gamma")
774  insist(this%has_gamma( 196 ).eqv..false.," 320740 has_gamma")
775  insist(sum(this%binned(:, 196 ))== 0.0000000000000000 ," 320740 has zero counts if not has_gamma")
776  insist(this%has_gamma( 197 ).eqv..true. ," 320750 has_gamma")
777  ref= 0.44207167789574253
778  new=sum(this%binned(:, 197 ))
779  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.44207167789574253 , new=",new,")"
780  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 320750 "//trim(msg))
781  insist(this%has_gamma( 198 ).eqv..false.," 320751 has_gamma")
782  insist(sum(this%binned(:, 198 ))== 0.0000000000000000 ," 320751 has zero counts if not has_gamma")
783  insist(this%has_gamma( 199 ).eqv..false.," 320760 has_gamma")
784  insist(sum(this%binned(:, 199 ))== 0.0000000000000000 ," 320760 has zero counts if not has_gamma")
785  insist(this%has_gamma( 200 ).eqv..true. ," 320770 has_gamma")
786  ref= 0.73257897902610103
787  new=sum(this%binned(:, 200 ))
788  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.73257897902610103 , new=",new,")"
789  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 320770 "//trim(msg))
790  insist(this%has_gamma( 201 ).eqv..true. ," 320771 has_gamma")
791  ref= 1.1353219258722906
792  new=sum(this%binned(:, 201 ))
793  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.1353219258722906 , new=",new,")"
794  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 320771 "//trim(msg))
795  insist(this%has_gamma( 202 ).eqv..false.," 330710 has_gamma")
796  insist(sum(this%binned(:, 202 ))== 0.0000000000000000 ," 330710 has zero counts if not has_gamma")
797  insist(this%has_gamma( 203 ).eqv..false.," 330720 has_gamma")
798  insist(sum(this%binned(:, 203 ))== 0.0000000000000000 ," 330720 has zero counts if not has_gamma")
799  insist(this%has_gamma( 204 ).eqv..false.," 330730 has_gamma")
800  insist(sum(this%binned(:, 204 ))== 0.0000000000000000 ," 330730 has zero counts if not has_gamma")
801  insist(this%has_gamma( 205 ).eqv..false.," 330740 has_gamma")
802  insist(sum(this%binned(:, 205 ))== 0.0000000000000000 ," 330740 has zero counts if not has_gamma")
803  insist(this%has_gamma( 206 ).eqv..false.," 330750 has_gamma")
804  insist(sum(this%binned(:, 206 ))== 0.0000000000000000 ," 330750 has zero counts if not has_gamma")
805  insist(this%has_gamma( 207 ).eqv..false.," 330751 has_gamma")
806  insist(sum(this%binned(:, 207 ))== 0.0000000000000000 ," 330751 has zero counts if not has_gamma")
807  insist(this%has_gamma( 208 ).eqv..true. ," 330760 has_gamma")
808  ref= 1.2892092204483565
809  new=sum(this%binned(:, 208 ))
810  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2892092204483565 , new=",new,")"
811  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 330760 "//trim(msg))
812  insist(this%has_gamma( 209 ).eqv..true. ," 330770 has_gamma")
813  ref= 0.21992764589933780
814  new=sum(this%binned(:, 209 ))
815  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.21992764589933780 , new=",new,")"
816  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 330770 "//trim(msg))
817  insist(this%has_gamma( 210 ).eqv..false.," 340720 has_gamma")
818  insist(sum(this%binned(:, 210 ))== 0.0000000000000000 ," 340720 has zero counts if not has_gamma")
819  insist(this%has_gamma( 211 ).eqv..false.," 340730 has_gamma")
820  insist(sum(this%binned(:, 211 ))== 0.0000000000000000 ," 340730 has zero counts if not has_gamma")
821  insist(this%has_gamma( 212 ).eqv..false.," 340740 has_gamma")
822  insist(sum(this%binned(:, 212 ))== 0.0000000000000000 ," 340740 has zero counts if not has_gamma")
823  insist(this%has_gamma( 213 ).eqv..false.," 340750 has_gamma")
824  insist(sum(this%binned(:, 213 ))== 0.0000000000000000 ," 340750 has zero counts if not has_gamma")
825  insist(this%has_gamma( 214 ).eqv..false.," 340760 has_gamma")
826  insist(sum(this%binned(:, 214 ))== 0.0000000000000000 ," 340760 has zero counts if not has_gamma")
827  insist(this%has_gamma( 215 ).eqv..false.," 340770 has_gamma")
828  insist(sum(this%binned(:, 215 ))== 0.0000000000000000 ," 340770 has zero counts if not has_gamma")
829  insist(this%has_gamma( 216 ).eqv..false.," 340771 has_gamma")
830  insist(sum(this%binned(:, 216 ))== 0.0000000000000000 ," 340771 has zero counts if not has_gamma")
831  insist(this%has_gamma( 217 ).eqv..false.," 340780 has_gamma")
832  insist(sum(this%binned(:, 217 ))== 0.0000000000000000 ," 340780 has zero counts if not has_gamma")
833  insist(this%has_gamma( 218 ).eqv..true. ," 340790 has_gamma")
834  ref= 3.6759974434876781e-002
835  new=sum(this%binned(:, 218 ))
836  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.6759974434876781E-002 , new=",new,")"
837  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 340790 "//trim(msg))
838  insist(this%has_gamma( 219 ).eqv..false.," 340791 has_gamma")
839  insist(sum(this%binned(:, 219 ))== 0.0000000000000000 ," 340791 has zero counts if not has_gamma")
840  insist(this%has_gamma( 220 ).eqv..false.," 340800 has_gamma")
841  insist(sum(this%binned(:, 220 ))== 0.0000000000000000 ," 340800 has zero counts if not has_gamma")
842  insist(this%has_gamma( 221 ).eqv..false.," 340810 has_gamma")
843  insist(sum(this%binned(:, 221 ))== 0.0000000000000000 ," 340810 has zero counts if not has_gamma")
844  insist(this%has_gamma( 222 ).eqv..false.," 340811 has_gamma")
845  insist(sum(this%binned(:, 222 ))== 0.0000000000000000 ," 340811 has zero counts if not has_gamma")
846  insist(this%has_gamma( 223 ).eqv..false.," 340820 has_gamma")
847  insist(sum(this%binned(:, 223 ))== 0.0000000000000000 ," 340820 has zero counts if not has_gamma")
848  insist(this%has_gamma( 224 ).eqv..true. ," 340830 has_gamma")
849  ref= 0.60150839844070703
850  new=sum(this%binned(:, 224 ))
851  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.60150839844070703 , new=",new,")"
852  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 340830 "//trim(msg))
853  insist(this%has_gamma( 225 ).eqv..true. ," 340831 has_gamma")
854  ref= 1.7093609387456612
855  new=sum(this%binned(:, 225 ))
856  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.7093609387456612 , new=",new,")"
857  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 340831 "//trim(msg))
858  insist(this%has_gamma( 226 ).eqv..false.," 350760 has_gamma")
859  insist(sum(this%binned(:, 226 ))== 0.0000000000000000 ," 350760 has zero counts if not has_gamma")
860  insist(this%has_gamma( 227 ).eqv..false.," 350770 has_gamma")
861  insist(sum(this%binned(:, 227 ))== 0.0000000000000000 ," 350770 has zero counts if not has_gamma")
862  insist(this%has_gamma( 228 ).eqv..false.," 350771 has_gamma")
863  insist(sum(this%binned(:, 228 ))== 0.0000000000000000 ," 350771 has zero counts if not has_gamma")
864  insist(this%has_gamma( 229 ).eqv..false.," 350780 has_gamma")
865  insist(sum(this%binned(:, 229 ))== 0.0000000000000000 ," 350780 has zero counts if not has_gamma")
866  insist(this%has_gamma( 230 ).eqv..false.," 350790 has_gamma")
867  insist(sum(this%binned(:, 230 ))== 0.0000000000000000 ," 350790 has zero counts if not has_gamma")
868  insist(this%has_gamma( 231 ).eqv..true. ," 350800 has_gamma")
869  ref= 0.77559239318698625
870  new=sum(this%binned(:, 231 ))
871  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.77559239318698625 , new=",new,")"
872  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 350800 "//trim(msg))
873  insist(this%has_gamma( 232 ).eqv..false.," 350801 has_gamma")
874  insist(sum(this%binned(:, 232 ))== 0.0000000000000000 ," 350801 has zero counts if not has_gamma")
875  insist(this%has_gamma( 233 ).eqv..false.," 350810 has_gamma")
876  insist(sum(this%binned(:, 233 ))== 0.0000000000000000 ," 350810 has zero counts if not has_gamma")
877  insist(this%has_gamma( 234 ).eqv..true. ," 350820 has_gamma")
878  ref= 0.12020021954554848
879  new=sum(this%binned(:, 234 ))
880  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.12020021954554848 , new=",new,")"
881  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 350820 "//trim(msg))
882  insist(this%has_gamma( 235 ).eqv..true. ," 350821 has_gamma")
883  ref= 9.4313711645749483e-004
884  new=sum(this%binned(:, 235 ))
885  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 9.4313711645749483E-004 , new=",new,")"
886  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 350821 "//trim(msg))
887  insist(this%has_gamma( 236 ).eqv..true. ," 350830 has_gamma")
888  ref= 0.32627888912931968
889  new=sum(this%binned(:, 236 ))
890  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.32627888912931968 , new=",new,")"
891  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 350830 "//trim(msg))
892  insist(this%has_gamma( 237 ).eqv..false.," 360760 has_gamma")
893  insist(sum(this%binned(:, 237 ))== 0.0000000000000000 ," 360760 has zero counts if not has_gamma")
894  insist(this%has_gamma( 238 ).eqv..false.," 360770 has_gamma")
895  insist(sum(this%binned(:, 238 ))== 0.0000000000000000 ," 360770 has zero counts if not has_gamma")
896  insist(this%has_gamma( 239 ).eqv..false.," 360780 has_gamma")
897  insist(sum(this%binned(:, 239 ))== 0.0000000000000000 ," 360780 has zero counts if not has_gamma")
898  insist(this%has_gamma( 240 ).eqv..true. ," 360790 has_gamma")
899  ref= 5.5476567838820726e-002
900  new=sum(this%binned(:, 240 ))
901  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.5476567838820726E-002 , new=",new,")"
902  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 360790 "//trim(msg))
903  insist(this%has_gamma( 241 ).eqv..false.," 360791 has_gamma")
904  insist(sum(this%binned(:, 241 ))== 0.0000000000000000 ," 360791 has zero counts if not has_gamma")
905  insist(this%has_gamma( 242 ).eqv..false.," 360800 has_gamma")
906  insist(sum(this%binned(:, 242 ))== 0.0000000000000000 ," 360800 has zero counts if not has_gamma")
907  insist(this%has_gamma( 243 ).eqv..false.," 360810 has_gamma")
908  insist(sum(this%binned(:, 243 ))== 0.0000000000000000 ," 360810 has zero counts if not has_gamma")
909  insist(this%has_gamma( 244 ).eqv..false.," 360811 has_gamma")
910  insist(sum(this%binned(:, 244 ))== 0.0000000000000000 ," 360811 has zero counts if not has_gamma")
911  insist(this%has_gamma( 245 ).eqv..false.," 360820 has_gamma")
912  insist(sum(this%binned(:, 245 ))== 0.0000000000000000 ," 360820 has zero counts if not has_gamma")
913  insist(this%has_gamma( 246 ).eqv..false.," 360830 has_gamma")
914  insist(sum(this%binned(:, 246 ))== 0.0000000000000000 ," 360830 has zero counts if not has_gamma")
915  insist(this%has_gamma( 247 ).eqv..false.," 360831 has_gamma")
916  insist(sum(this%binned(:, 247 ))== 0.0000000000000000 ," 360831 has zero counts if not has_gamma")
917  insist(this%has_gamma( 248 ).eqv..false.," 360840 has_gamma")
918  insist(sum(this%binned(:, 248 ))== 0.0000000000000000 ," 360840 has zero counts if not has_gamma")
919  insist(this%has_gamma( 249 ).eqv..true. ," 360850 has_gamma")
920  ref= 0.24726424389526619
921  new=sum(this%binned(:, 249 ))
922  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.24726424389526619 , new=",new,")"
923  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 360850 "//trim(msg))
924  insist(this%has_gamma( 250 ).eqv..true. ," 360851 has_gamma")
925  ref= 0.18059291069431535
926  new=sum(this%binned(:, 250 ))
927  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.18059291069431535 , new=",new,")"
928  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 360851 "//trim(msg))
929  insist(this%has_gamma( 251 ).eqv..false.," 360860 has_gamma")
930  insist(sum(this%binned(:, 251 ))== 0.0000000000000000 ," 360860 has zero counts if not has_gamma")
931  insist(this%has_gamma( 252 ).eqv..true. ," 360870 has_gamma")
932  ref= 1.6466898847232692
933  new=sum(this%binned(:, 252 ))
934  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.6466898847232692 , new=",new,")"
935  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 360870 "//trim(msg))
936  insist(this%has_gamma( 253 ).eqv..true. ," 360880 has_gamma")
937  ref= 0.39692490516986828
938  new=sum(this%binned(:, 253 ))
939  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.39692490516986828 , new=",new,")"
940  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 360880 "//trim(msg))
941  insist(this%has_gamma( 254 ).eqv..false.," 370820 has_gamma")
942  insist(sum(this%binned(:, 254 ))== 0.0000000000000000 ," 370820 has zero counts if not has_gamma")
943  insist(this%has_gamma( 255 ).eqv..false.," 370830 has_gamma")
944  insist(sum(this%binned(:, 255 ))== 0.0000000000000000 ," 370830 has zero counts if not has_gamma")
945  insist(this%has_gamma( 256 ).eqv..false.," 370840 has_gamma")
946  insist(sum(this%binned(:, 256 ))== 0.0000000000000000 ," 370840 has zero counts if not has_gamma")
947  insist(this%has_gamma( 257 ).eqv..false.," 370850 has_gamma")
948  insist(sum(this%binned(:, 257 ))== 0.0000000000000000 ," 370850 has zero counts if not has_gamma")
949  insist(this%has_gamma( 258 ).eqv..true. ," 370860 has_gamma")
950  ref= 0.76634182647394378
951  new=sum(this%binned(:, 258 ))
952  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.76634182647394378 , new=",new,")"
953  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 370860 "//trim(msg))
954  insist(this%has_gamma( 259 ).eqv..false.," 370861 has_gamma")
955  insist(sum(this%binned(:, 259 ))== 0.0000000000000000 ," 370861 has zero counts if not has_gamma")
956  insist(this%has_gamma( 260 ).eqv..true. ," 370870 has_gamma")
957  ref= 6.0877798994170014e-002
958  new=sum(this%binned(:, 260 ))
959  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.0877798994170014E-002 , new=",new,")"
960  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 370870 "//trim(msg))
961  insist(this%has_gamma( 261 ).eqv..true. ," 370880 has_gamma")
962  ref= 2.6814872124505200
963  new=sum(this%binned(:, 261 ))
964  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.6814872124505200 , new=",new,")"
965  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 370880 "//trim(msg))
966  insist(this%has_gamma( 262 ).eqv..true. ," 370890 has_gamma")
967  ref= 1.2452066888549780
968  new=sum(this%binned(:, 262 ))
969  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2452066888549780 , new=",new,")"
970  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 370890 "//trim(msg))
971  insist(this%has_gamma( 263 ).eqv..false.," 380820 has_gamma")
972  insist(sum(this%binned(:, 263 ))== 0.0000000000000000 ," 380820 has zero counts if not has_gamma")
973  insist(this%has_gamma( 264 ).eqv..false.," 380830 has_gamma")
974  insist(sum(this%binned(:, 264 ))== 0.0000000000000000 ," 380830 has zero counts if not has_gamma")
975  insist(this%has_gamma( 265 ).eqv..false.," 380840 has_gamma")
976  insist(sum(this%binned(:, 265 ))== 0.0000000000000000 ," 380840 has zero counts if not has_gamma")
977  insist(this%has_gamma( 266 ).eqv..false.," 380850 has_gamma")
978  insist(sum(this%binned(:, 266 ))== 0.0000000000000000 ," 380850 has zero counts if not has_gamma")
979  insist(this%has_gamma( 267 ).eqv..false.," 380851 has_gamma")
980  insist(sum(this%binned(:, 267 ))== 0.0000000000000000 ," 380851 has zero counts if not has_gamma")
981  insist(this%has_gamma( 268 ).eqv..false.," 380860 has_gamma")
982  insist(sum(this%binned(:, 268 ))== 0.0000000000000000 ," 380860 has zero counts if not has_gamma")
983  insist(this%has_gamma( 269 ).eqv..false.," 380870 has_gamma")
984  insist(sum(this%binned(:, 269 ))== 0.0000000000000000 ," 380870 has zero counts if not has_gamma")
985  insist(this%has_gamma( 270 ).eqv..false.," 380871 has_gamma")
986  insist(sum(this%binned(:, 270 ))== 0.0000000000000000 ," 380871 has zero counts if not has_gamma")
987  insist(this%has_gamma( 271 ).eqv..false.," 380880 has_gamma")
988  insist(sum(this%binned(:, 271 ))== 0.0000000000000000 ," 380880 has zero counts if not has_gamma")
989  insist(this%has_gamma( 272 ).eqv..true. ," 380890 has_gamma")
990  ref= 0.65625788511815231
991  new=sum(this%binned(:, 272 ))
992  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.65625788511815231 , new=",new,")"
993  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 380890 "//trim(msg))
994  insist(this%has_gamma( 273 ).eqv..true. ," 380900 has_gamma")
995  ref= 0.18447088309130777
996  new=sum(this%binned(:, 273 ))
997  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.18447088309130777 , new=",new,")"
998  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 380900 "//trim(msg))
999  insist(this%has_gamma( 274 ).eqv..true. ," 380910 has_gamma")
1000  ref= 0.75223841715706297
1001  new=sum(this%binned(:, 274 ))
1002  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.75223841715706297 , new=",new,")"
1003  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 380910 "//trim(msg))
1004  insist(this%has_gamma( 275 ).eqv..false.," 380930 has_gamma")
1005  insist(sum(this%binned(:, 275 ))== 0.0000000000000000 ," 380930 has zero counts if not has_gamma")
1006  insist(this%has_gamma( 276 ).eqv..false.," 390860 has_gamma")
1007  insist(sum(this%binned(:, 276 ))== 0.0000000000000000 ," 390860 has zero counts if not has_gamma")
1008  insist(this%has_gamma( 277 ).eqv..false.," 390870 has_gamma")
1009  insist(sum(this%binned(:, 277 ))== 0.0000000000000000 ," 390870 has zero counts if not has_gamma")
1010  insist(this%has_gamma( 278 ).eqv..false.," 390871 has_gamma")
1011  insist(sum(this%binned(:, 278 ))== 0.0000000000000000 ," 390871 has zero counts if not has_gamma")
1012  insist(this%has_gamma( 279 ).eqv..false.," 390880 has_gamma")
1013  insist(sum(this%binned(:, 279 ))== 0.0000000000000000 ," 390880 has zero counts if not has_gamma")
1014  insist(this%has_gamma( 280 ).eqv..false.," 390890 has_gamma")
1015  insist(sum(this%binned(:, 280 ))== 0.0000000000000000 ," 390890 has zero counts if not has_gamma")
1016  insist(this%has_gamma( 281 ).eqv..false.," 390891 has_gamma")
1017  insist(sum(this%binned(:, 281 ))== 0.0000000000000000 ," 390891 has zero counts if not has_gamma")
1018  insist(this%has_gamma( 282 ).eqv..true. ," 390900 has_gamma")
1019  ref= 1.1175127279733594
1020  new=sum(this%binned(:, 282 ))
1021  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.1175127279733594 , new=",new,")"
1022  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 390900 "//trim(msg))
1023  insist(this%has_gamma( 283 ).eqv..true. ," 390901 has_gamma")
1024  ref= 1.4444724824302237e-009
1025  new=sum(this%binned(:, 283 ))
1026  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4444724824302237E-009 , new=",new,")"
1027  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 390901 "//trim(msg))
1028  insist(this%has_gamma( 284 ).eqv..true. ," 390910 has_gamma")
1029  ref= 0.68106379883573032
1030  new=sum(this%binned(:, 284 ))
1031  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.68106379883573032 , new=",new,")"
1032  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 390910 "//trim(msg))
1033  insist(this%has_gamma( 285 ).eqv..false.," 390911 has_gamma")
1034  insist(sum(this%binned(:, 285 ))== 0.0000000000000000 ," 390911 has zero counts if not has_gamma")
1035  insist(this%has_gamma( 286 ).eqv..true. ," 390920 has_gamma")
1036  ref= 1.8217521303170661
1037  new=sum(this%binned(:, 286 ))
1038  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.8217521303170661 , new=",new,")"
1039  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 390920 "//trim(msg))
1040  insist(this%has_gamma( 287 ).eqv..true. ," 390930 has_gamma")
1041  ref= 1.4417397394595355
1042  new=sum(this%binned(:, 287 ))
1043  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4417397394595355 , new=",new,")"
1044  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 390930 "//trim(msg))
1045  insist(this%has_gamma( 288 ).eqv..false.," 390931 has_gamma")
1046  insist(sum(this%binned(:, 288 ))== 0.0000000000000000 ," 390931 has zero counts if not has_gamma")
1047  insist(this%has_gamma( 289 ).eqv..true. ," 390940 has_gamma")
1048  ref= 2.1602532596754713
1049  new=sum(this%binned(:, 289 ))
1050  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.1602532596754713 , new=",new,")"
1051  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 390940 "//trim(msg))
1052  insist(this%has_gamma( 290 ).eqv..true. ," 390960 has_gamma")
1053  ref= 3.6607642018429947
1054  new=sum(this%binned(:, 290 ))
1055  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.6607642018429947 , new=",new,")"
1056  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 390960 "//trim(msg))
1057  insist(this%has_gamma( 291 ).eqv..false.," 400860 has_gamma")
1058  insist(sum(this%binned(:, 291 ))== 0.0000000000000000 ," 400860 has zero counts if not has_gamma")
1059  insist(this%has_gamma( 292 ).eqv..false.," 400870 has_gamma")
1060  insist(sum(this%binned(:, 292 ))== 0.0000000000000000 ," 400870 has zero counts if not has_gamma")
1061  insist(this%has_gamma( 293 ).eqv..false.," 400880 has_gamma")
1062  insist(sum(this%binned(:, 293 ))== 0.0000000000000000 ," 400880 has zero counts if not has_gamma")
1063  insist(this%has_gamma( 294 ).eqv..true. ," 400890 has_gamma")
1064  ref= 0.21884140142702282
1065  new=sum(this%binned(:, 294 ))
1066  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.21884140142702282 , new=",new,")"
1067  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 400890 "//trim(msg))
1068  insist(this%has_gamma( 295 ).eqv..false.," 400900 has_gamma")
1069  insist(sum(this%binned(:, 295 ))== 0.0000000000000000 ," 400900 has zero counts if not has_gamma")
1070  insist(this%has_gamma( 296 ).eqv..false.," 400901 has_gamma")
1071  insist(sum(this%binned(:, 296 ))== 0.0000000000000000 ," 400901 has zero counts if not has_gamma")
1072  insist(this%has_gamma( 297 ).eqv..false.," 400910 has_gamma")
1073  insist(sum(this%binned(:, 297 ))== 0.0000000000000000 ," 400910 has zero counts if not has_gamma")
1074  insist(this%has_gamma( 298 ).eqv..false.," 400920 has_gamma")
1075  insist(sum(this%binned(:, 298 ))== 0.0000000000000000 ," 400920 has zero counts if not has_gamma")
1076  insist(this%has_gamma( 299 ).eqv..true. ," 400930 has_gamma")
1077  ref= 8.0673408209577246e-003
1078  new=sum(this%binned(:, 299 ))
1079  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.0673408209577246E-003 , new=",new,")"
1080  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 400930 "//trim(msg))
1081  insist(this%has_gamma( 300 ).eqv..false.," 400940 has_gamma")
1082  insist(sum(this%binned(:, 300 ))== 0.0000000000000000 ," 400940 has zero counts if not has_gamma")
1083  insist(this%has_gamma( 301 ).eqv..true. ," 400950 has_gamma")
1084  ref= 9.8333829532349815e-002
1085  new=sum(this%binned(:, 301 ))
1086  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 9.8333829532349815E-002 , new=",new,")"
1087  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 400950 "//trim(msg))
1088  insist(this%has_gamma( 302 ).eqv..false.," 400960 has_gamma")
1089  insist(sum(this%binned(:, 302 ))== 0.0000000000000000 ," 400960 has zero counts if not has_gamma")
1090  insist(this%has_gamma( 303 ).eqv..true. ," 400970 has_gamma")
1091  ref= 0.79223635100248524
1092  new=sum(this%binned(:, 303 ))
1093  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.79223635100248524 , new=",new,")"
1094  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 400970 "//trim(msg))
1095  insist(this%has_gamma( 304 ).eqv..false.," 410900 has_gamma")
1096  insist(sum(this%binned(:, 304 ))== 0.0000000000000000 ," 410900 has zero counts if not has_gamma")
1097  insist(this%has_gamma( 305 ).eqv..false.," 410901 has_gamma")
1098  insist(sum(this%binned(:, 305 ))== 0.0000000000000000 ," 410901 has zero counts if not has_gamma")
1099  insist(this%has_gamma( 306 ).eqv..false.," 410910 has_gamma")
1100  insist(sum(this%binned(:, 306 ))== 0.0000000000000000 ," 410910 has zero counts if not has_gamma")
1101  insist(this%has_gamma( 307 ).eqv..false.," 410911 has_gamma")
1102  insist(sum(this%binned(:, 307 ))== 0.0000000000000000 ," 410911 has zero counts if not has_gamma")
1103  insist(this%has_gamma( 308 ).eqv..false.," 410920 has_gamma")
1104  insist(sum(this%binned(:, 308 ))== 0.0000000000000000 ," 410920 has zero counts if not has_gamma")
1105  insist(this%has_gamma( 309 ).eqv..false.," 410921 has_gamma")
1106  insist(sum(this%binned(:, 309 ))== 0.0000000000000000 ," 410921 has zero counts if not has_gamma")
1107  insist(this%has_gamma( 310 ).eqv..false.," 410930 has_gamma")
1108  insist(sum(this%binned(:, 310 ))== 0.0000000000000000 ," 410930 has zero counts if not has_gamma")
1109  insist(this%has_gamma( 311 ).eqv..false.," 410931 has_gamma")
1110  insist(sum(this%binned(:, 311 ))== 0.0000000000000000 ," 410931 has zero counts if not has_gamma")
1111  insist(this%has_gamma( 312 ).eqv..true. ," 410940 has_gamma")
1112  ref= 0.12969260956754219
1113  new=sum(this%binned(:, 312 ))
1114  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.12969260956754219 , new=",new,")"
1115  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 410940 "//trim(msg))
1116  insist(this%has_gamma( 313 ).eqv..true. ," 410941 has_gamma")
1117  ref= 1.0912115440728130e-005
1118  new=sum(this%binned(:, 313 ))
1119  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.0912115440728130E-005 , new=",new,")"
1120  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 410941 "//trim(msg))
1121  insist(this%has_gamma( 314 ).eqv..true. ," 410950 has_gamma")
1122  ref= 2.7653486272365409e-002
1123  new=sum(this%binned(:, 314 ))
1124  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.7653486272365409E-002 , new=",new,")"
1125  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 410950 "//trim(msg))
1126  insist(this%has_gamma( 315 ).eqv..false.," 410951 has_gamma")
1127  insist(sum(this%binned(:, 315 ))== 0.0000000000000000 ," 410951 has zero counts if not has_gamma")
1128  insist(this%has_gamma( 316 ).eqv..true. ," 410960 has_gamma")
1129  ref= 0.24353126187349969
1130  new=sum(this%binned(:, 316 ))
1131  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.24353126187349969 , new=",new,")"
1132  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 410960 "//trim(msg))
1133  insist(this%has_gamma( 317 ).eqv..true. ," 410970 has_gamma")
1134  ref= 0.50117733078528348
1135  new=sum(this%binned(:, 317 ))
1136  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.50117733078528348 , new=",new,")"
1137  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 410970 "//trim(msg))
1138  insist(this%has_gamma( 318 ).eqv..false.," 410971 has_gamma")
1139  insist(sum(this%binned(:, 318 ))== 0.0000000000000000 ," 410971 has zero counts if not has_gamma")
1140  insist(this%has_gamma( 319 ).eqv..true. ," 410980 has_gamma")
1141  ref= 2.5333818530890744
1142  new=sum(this%binned(:, 319 ))
1143  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.5333818530890744 , new=",new,")"
1144  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 410980 "//trim(msg))
1145  insist(this%has_gamma( 320 ).eqv..false.," 411000 has_gamma")
1146  insist(sum(this%binned(:, 320 ))== 0.0000000000000000 ," 411000 has zero counts if not has_gamma")
1147  insist(this%has_gamma( 321 ).eqv..false.," 420920 has_gamma")
1148  insist(sum(this%binned(:, 321 ))== 0.0000000000000000 ," 420920 has zero counts if not has_gamma")
1149  insist(this%has_gamma( 322 ).eqv..false.," 420931 has_gamma")
1150  insist(sum(this%binned(:, 322 ))== 0.0000000000000000 ," 420931 has zero counts if not has_gamma")
1151  insist(this%has_gamma( 323 ).eqv..false.," 420930 has_gamma")
1152  insist(sum(this%binned(:, 323 ))== 0.0000000000000000 ," 420930 has zero counts if not has_gamma")
1153  insist(this%has_gamma( 324 ).eqv..false.," 420940 has_gamma")
1154  insist(sum(this%binned(:, 324 ))== 0.0000000000000000 ," 420940 has zero counts if not has_gamma")
1155  insist(this%has_gamma( 325 ).eqv..false.," 420950 has_gamma")
1156  insist(sum(this%binned(:, 325 ))== 0.0000000000000000 ," 420950 has zero counts if not has_gamma")
1157  insist(this%has_gamma( 326 ).eqv..false.," 420960 has_gamma")
1158  insist(sum(this%binned(:, 326 ))== 0.0000000000000000 ," 420960 has zero counts if not has_gamma")
1159  insist(this%has_gamma( 327 ).eqv..false.," 420970 has_gamma")
1160  insist(sum(this%binned(:, 327 ))== 0.0000000000000000 ," 420970 has zero counts if not has_gamma")
1161  insist(this%has_gamma( 328 ).eqv..false.," 420980 has_gamma")
1162  insist(sum(this%binned(:, 328 ))== 0.0000000000000000 ," 420980 has zero counts if not has_gamma")
1163  insist(this%has_gamma( 329 ).eqv..true. ," 420990 has_gamma")
1164  ref= 0.40968073719541048
1165  new=sum(this%binned(:, 329 ))
1166  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.40968073719541048 , new=",new,")"
1167  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 420990 "//trim(msg))
1168  insist(this%has_gamma( 330 ).eqv..false.," 421000 has_gamma")
1169  insist(sum(this%binned(:, 330 ))== 0.0000000000000000 ," 421000 has zero counts if not has_gamma")
1170  insist(this%has_gamma( 331 ).eqv..true. ," 421010 has_gamma")
1171  ref= 0.63661447291623863
1172  new=sum(this%binned(:, 331 ))
1173  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.63661447291623863 , new=",new,")"
1174  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 421010 "//trim(msg))
1175  insist(this%has_gamma( 332 ).eqv..false.," 430950 has_gamma")
1176  insist(sum(this%binned(:, 332 ))== 0.0000000000000000 ," 430950 has zero counts if not has_gamma")
1177  insist(this%has_gamma( 333 ).eqv..false.," 430951 has_gamma")
1178  insist(sum(this%binned(:, 333 ))== 0.0000000000000000 ," 430951 has zero counts if not has_gamma")
1179  insist(this%has_gamma( 334 ).eqv..false.," 430960 has_gamma")
1180  insist(sum(this%binned(:, 334 ))== 0.0000000000000000 ," 430960 has zero counts if not has_gamma")
1181  insist(this%has_gamma( 335 ).eqv..false.," 430970 has_gamma")
1182  insist(sum(this%binned(:, 335 ))== 0.0000000000000000 ," 430970 has zero counts if not has_gamma")
1183  insist(this%has_gamma( 336 ).eqv..false.," 430971 has_gamma")
1184  insist(sum(this%binned(:, 336 ))== 0.0000000000000000 ," 430971 has zero counts if not has_gamma")
1185  insist(this%has_gamma( 337 ).eqv..true. ," 430980 has_gamma")
1186  ref= 0.10194629045810190
1187  new=sum(this%binned(:, 337 ))
1188  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.10194629045810190 , new=",new,")"
1189  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 430980 "//trim(msg))
1190  insist(this%has_gamma( 338 ).eqv..true. ," 430990 has_gamma")
1191  ref= 6.6673559170234667e-002
1192  new=sum(this%binned(:, 338 ))
1193  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.6673559170234667E-002 , new=",new,")"
1194  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 430990 "//trim(msg))
1195  insist(this%has_gamma( 339 ).eqv..false.," 430991 has_gamma")
1196  insist(sum(this%binned(:, 339 ))== 0.0000000000000000 ," 430991 has zero counts if not has_gamma")
1197  insist(this%has_gamma( 340 ).eqv..true. ," 431000 has_gamma")
1198  ref= 1.7344833414313137
1199  new=sum(this%binned(:, 340 ))
1200  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.7344833414313137 , new=",new,")"
1201  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 431000 "//trim(msg))
1202  insist(this%has_gamma( 341 ).eqv..true. ," 431010 has_gamma")
1203  ref= 0.50693567226374714
1204  new=sum(this%binned(:, 341 ))
1205  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.50693567226374714 , new=",new,")"
1206  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 431010 "//trim(msg))
1207  insist(this%has_gamma( 342 ).eqv..false.," 440960 has_gamma")
1208  insist(sum(this%binned(:, 342 ))== 0.0000000000000000 ," 440960 has zero counts if not has_gamma")
1209  insist(this%has_gamma( 343 ).eqv..false.," 440970 has_gamma")
1210  insist(sum(this%binned(:, 343 ))== 0.0000000000000000 ," 440970 has zero counts if not has_gamma")
1211  insist(this%has_gamma( 344 ).eqv..false.," 440980 has_gamma")
1212  insist(sum(this%binned(:, 344 ))== 0.0000000000000000 ," 440980 has zero counts if not has_gamma")
1213  insist(this%has_gamma( 345 ).eqv..false.," 440990 has_gamma")
1214  insist(sum(this%binned(:, 345 ))== 0.0000000000000000 ," 440990 has zero counts if not has_gamma")
1215  insist(this%has_gamma( 346 ).eqv..false.," 441000 has_gamma")
1216  insist(sum(this%binned(:, 346 ))== 0.0000000000000000 ," 441000 has zero counts if not has_gamma")
1217  insist(this%has_gamma( 347 ).eqv..false.," 441010 has_gamma")
1218  insist(sum(this%binned(:, 347 ))== 0.0000000000000000 ," 441010 has zero counts if not has_gamma")
1219  insist(this%has_gamma( 348 ).eqv..false.," 441020 has_gamma")
1220  insist(sum(this%binned(:, 348 ))== 0.0000000000000000 ," 441020 has zero counts if not has_gamma")
1221  insist(this%has_gamma( 349 ).eqv..true. ," 441030 has_gamma")
1222  ref= 5.6067314364812035e-002
1223  new=sum(this%binned(:, 349 ))
1224  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.6067314364812035E-002 , new=",new,")"
1225  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 441030 "//trim(msg))
1226  insist(this%has_gamma( 350 ).eqv..false.," 441040 has_gamma")
1227  insist(sum(this%binned(:, 350 ))== 0.0000000000000000 ," 441040 has zero counts if not has_gamma")
1228  insist(this%has_gamma( 351 ).eqv..true. ," 441050 has_gamma")
1229  ref= 0.41997130747915101
1230  new=sum(this%binned(:, 351 ))
1231  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.41997130747915101 , new=",new,")"
1232  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 441050 "//trim(msg))
1233  insist(this%has_gamma( 352 ).eqv..true. ," 441060 has_gamma")
1234  ref= 2.5935015206863810e-003
1235  new=sum(this%binned(:, 352 ))
1236  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.5935015206863810E-003 , new=",new,")"
1237  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 441060 "//trim(msg))
1238  insist(this%has_gamma( 353 ).eqv..true. ," 441070 has_gamma")
1239  ref= 1.4737666172630914
1240  new=sum(this%binned(:, 353 ))
1241  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4737666172630914 , new=",new,")"
1242  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 441070 "//trim(msg))
1243  insist(this%has_gamma( 354 ).eqv..false.," 450990 has_gamma")
1244  insist(sum(this%binned(:, 354 ))== 0.0000000000000000 ," 450990 has zero counts if not has_gamma")
1245  insist(this%has_gamma( 355 ).eqv..false.," 450991 has_gamma")
1246  insist(sum(this%binned(:, 355 ))== 0.0000000000000000 ," 450991 has zero counts if not has_gamma")
1247  insist(this%has_gamma( 356 ).eqv..false.," 451000 has_gamma")
1248  insist(sum(this%binned(:, 356 ))== 0.0000000000000000 ," 451000 has zero counts if not has_gamma")
1249  insist(this%has_gamma( 357 ).eqv..false.," 451010 has_gamma")
1250  insist(sum(this%binned(:, 357 ))== 0.0000000000000000 ," 451010 has zero counts if not has_gamma")
1251  insist(this%has_gamma( 358 ).eqv..false.," 451011 has_gamma")
1252  insist(sum(this%binned(:, 358 ))== 0.0000000000000000 ," 451011 has zero counts if not has_gamma")
1253  insist(this%has_gamma( 359 ).eqv..false.," 451020 has_gamma")
1254  insist(sum(this%binned(:, 359 ))== 0.0000000000000000 ," 451020 has zero counts if not has_gamma")
1255  insist(this%has_gamma( 360 ).eqv..false.," 451021 has_gamma")
1256  insist(sum(this%binned(:, 360 ))== 0.0000000000000000 ," 451021 has zero counts if not has_gamma")
1257  insist(this%has_gamma( 361 ).eqv..false.," 451030 has_gamma")
1258  insist(sum(this%binned(:, 361 ))== 0.0000000000000000 ," 451030 has zero counts if not has_gamma")
1259  insist(this%has_gamma( 362 ).eqv..false.," 451031 has_gamma")
1260  insist(sum(this%binned(:, 362 ))== 0.0000000000000000 ," 451031 has zero counts if not has_gamma")
1261  insist(this%has_gamma( 363 ).eqv..true. ," 451040 has_gamma")
1262  ref= 1.1692380023296736
1263  new=sum(this%binned(:, 363 ))
1264  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.1692380023296736 , new=",new,")"
1265  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 451040 "//trim(msg))
1266  insist(this%has_gamma( 364 ).eqv..true. ," 451041 has_gamma")
1267  ref= 5.0072926284761812e-007
1268  new=sum(this%binned(:, 364 ))
1269  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.0072926284761812E-007 , new=",new,")"
1270  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 451041 "//trim(msg))
1271  insist(this%has_gamma( 365 ).eqv..true. ," 451050 has_gamma")
1272  ref= 0.13824386501530891
1273  new=sum(this%binned(:, 365 ))
1274  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.13824386501530891 , new=",new,")"
1275  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 451050 "//trim(msg))
1276  insist(this%has_gamma( 366 ).eqv..false.," 451051 has_gamma")
1277  insist(sum(this%binned(:, 366 ))== 0.0000000000000000 ," 451051 has zero counts if not has_gamma")
1278  insist(this%has_gamma( 367 ).eqv..true. ," 451060 has_gamma")
1279  ref= 1.7557060579002861
1280  new=sum(this%binned(:, 367 ))
1281  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.7557060579002861 , new=",new,")"
1282  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 451060 "//trim(msg))
1283  insist(this%has_gamma( 368 ).eqv..true. ," 451061 has_gamma")
1284  ref= 0.30463977297928585
1285  new=sum(this%binned(:, 368 ))
1286  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.30463977297928585 , new=",new,")"
1287  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 451061 "//trim(msg))
1288  insist(this%has_gamma( 369 ).eqv..true. ," 451070 has_gamma")
1289  ref= 0.49020845414431330
1290  new=sum(this%binned(:, 369 ))
1291  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.49020845414431330 , new=",new,")"
1292  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 451070 "//trim(msg))
1293  insist(this%has_gamma( 370 ).eqv..false.," 461000 has_gamma")
1294  insist(sum(this%binned(:, 370 ))== 0.0000000000000000 ," 461000 has zero counts if not has_gamma")
1295  insist(this%has_gamma( 371 ).eqv..false.," 461010 has_gamma")
1296  insist(sum(this%binned(:, 371 ))== 0.0000000000000000 ," 461010 has zero counts if not has_gamma")
1297  insist(this%has_gamma( 372 ).eqv..false.," 461020 has_gamma")
1298  insist(sum(this%binned(:, 372 ))== 0.0000000000000000 ," 461020 has zero counts if not has_gamma")
1299  insist(this%has_gamma( 373 ).eqv..false.," 461030 has_gamma")
1300  insist(sum(this%binned(:, 373 ))== 0.0000000000000000 ," 461030 has zero counts if not has_gamma")
1301  insist(this%has_gamma( 374 ).eqv..false.," 461040 has_gamma")
1302  insist(sum(this%binned(:, 374 ))== 0.0000000000000000 ," 461040 has zero counts if not has_gamma")
1303  insist(this%has_gamma( 375 ).eqv..false.," 461050 has_gamma")
1304  insist(sum(this%binned(:, 375 ))== 0.0000000000000000 ," 461050 has zero counts if not has_gamma")
1305  insist(this%has_gamma( 376 ).eqv..false.," 461060 has_gamma")
1306  insist(sum(this%binned(:, 376 ))== 0.0000000000000000 ," 461060 has zero counts if not has_gamma")
1307  insist(this%has_gamma( 377 ).eqv..true. ," 461070 has_gamma")
1308  ref= 2.1676466463853572e-003
1309  new=sum(this%binned(:, 377 ))
1310  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.1676466463853572E-003 , new=",new,")"
1311  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 461070 "//trim(msg))
1312  insist(this%has_gamma( 378 ).eqv..false.," 461071 has_gamma")
1313  insist(sum(this%binned(:, 378 ))== 0.0000000000000000 ," 461071 has zero counts if not has_gamma")
1314  insist(this%has_gamma( 379 ).eqv..false.," 461080 has_gamma")
1315  insist(sum(this%binned(:, 379 ))== 0.0000000000000000 ," 461080 has zero counts if not has_gamma")
1316  insist(this%has_gamma( 380 ).eqv..true. ," 461090 has_gamma")
1317  ref= 0.37413798787321895
1318  new=sum(this%binned(:, 380 ))
1319  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.37413798787321895 , new=",new,")"
1320  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 461090 "//trim(msg))
1321  insist(this%has_gamma( 381 ).eqv..false.," 461091 has_gamma")
1322  insist(sum(this%binned(:, 381 ))== 0.0000000000000000 ," 461091 has zero counts if not has_gamma")
1323  insist(this%has_gamma( 382 ).eqv..false.," 461100 has_gamma")
1324  insist(sum(this%binned(:, 382 ))== 0.0000000000000000 ," 461100 has zero counts if not has_gamma")
1325  insist(this%has_gamma( 383 ).eqv..false.," 461110 has_gamma")
1326  insist(sum(this%binned(:, 383 ))== 0.0000000000000000 ," 461110 has zero counts if not has_gamma")
1327  insist(this%has_gamma( 384 ).eqv..false.," 461111 has_gamma")
1328  insist(sum(this%binned(:, 384 ))== 0.0000000000000000 ," 461111 has zero counts if not has_gamma")
1329  insist(this%has_gamma( 385 ).eqv..false.," 461120 has_gamma")
1330  insist(sum(this%binned(:, 385 ))== 0.0000000000000000 ," 461120 has zero counts if not has_gamma")
1331  insist(this%has_gamma( 386 ).eqv..false.," 471050 has_gamma")
1332  insist(sum(this%binned(:, 386 ))== 0.0000000000000000 ," 471050 has zero counts if not has_gamma")
1333  insist(this%has_gamma( 387 ).eqv..false.," 471060 has_gamma")
1334  insist(sum(this%binned(:, 387 ))== 0.0000000000000000 ," 471060 has zero counts if not has_gamma")
1335  insist(this%has_gamma( 388 ).eqv..false.," 471061 has_gamma")
1336  insist(sum(this%binned(:, 388 ))== 0.0000000000000000 ," 471061 has zero counts if not has_gamma")
1337  insist(this%has_gamma( 389 ).eqv..false.," 471070 has_gamma")
1338  insist(sum(this%binned(:, 389 ))== 0.0000000000000000 ," 471070 has zero counts if not has_gamma")
1339  insist(this%has_gamma( 390 ).eqv..false.," 471071 has_gamma")
1340  insist(sum(this%binned(:, 390 ))== 0.0000000000000000 ," 471071 has zero counts if not has_gamma")
1341  insist(this%has_gamma( 391 ).eqv..true. ," 471080 has_gamma")
1342  ref= 0.66592332489877126
1343  new=sum(this%binned(:, 391 ))
1344  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.66592332489877126 , new=",new,")"
1345  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 471080 "//trim(msg))
1346  insist(this%has_gamma( 392 ).eqv..false.," 471081 has_gamma")
1347  insist(sum(this%binned(:, 392 ))== 0.0000000000000000 ," 471081 has zero counts if not has_gamma")
1348  insist(this%has_gamma( 393 ).eqv..false.," 471090 has_gamma")
1349  insist(sum(this%binned(:, 393 ))== 0.0000000000000000 ," 471090 has zero counts if not has_gamma")
1350  insist(this%has_gamma( 394 ).eqv..false.," 471091 has_gamma")
1351  insist(sum(this%binned(:, 394 ))== 0.0000000000000000 ," 471091 has zero counts if not has_gamma")
1352  insist(this%has_gamma( 395 ).eqv..true. ," 471100 has_gamma")
1353  ref= 1.4313205274231682
1354  new=sum(this%binned(:, 395 ))
1355  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4313205274231682 , new=",new,")"
1356  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 471100 "//trim(msg))
1357  insist(this%has_gamma( 396 ).eqv..true. ," 471101 has_gamma")
1358  ref= 5.2684700660961419e-002
1359  new=sum(this%binned(:, 396 ))
1360  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.2684700660961419E-002 , new=",new,")"
1361  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 471101 "//trim(msg))
1362  insist(this%has_gamma( 397 ).eqv..true. ," 471110 has_gamma")
1363  ref= 0.36628860078762671
1364  new=sum(this%binned(:, 397 ))
1365  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.36628860078762671 , new=",new,")"
1366  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 471110 "//trim(msg))
1367  insist(this%has_gamma( 398 ).eqv..false.," 471111 has_gamma")
1368  insist(sum(this%binned(:, 398 ))== 0.0000000000000000 ," 471111 has zero counts if not has_gamma")
1369  insist(this%has_gamma( 399 ).eqv..false.," 471120 has_gamma")
1370  insist(sum(this%binned(:, 399 ))== 0.0000000000000000 ," 471120 has zero counts if not has_gamma")
1371  insist(this%has_gamma( 400 ).eqv..false.," 481060 has_gamma")
1372  insist(sum(this%binned(:, 400 ))== 0.0000000000000000 ," 481060 has zero counts if not has_gamma")
1373  insist(this%has_gamma( 401 ).eqv..true. ," 481070 has_gamma")
1374  ref= 1.3637423944359017e-003
1375  new=sum(this%binned(:, 401 ))
1376  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.3637423944359017E-003 , new=",new,")"
1377  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 481070 "//trim(msg))
1378  insist(this%has_gamma( 402 ).eqv..false.," 481080 has_gamma")
1379  insist(sum(this%binned(:, 402 ))== 0.0000000000000000 ," 481080 has zero counts if not has_gamma")
1380  insist(this%has_gamma( 403 ).eqv..false.," 481090 has_gamma")
1381  insist(sum(this%binned(:, 403 ))== 0.0000000000000000 ," 481090 has zero counts if not has_gamma")
1382  insist(this%has_gamma( 404 ).eqv..false.," 481100 has_gamma")
1383  insist(sum(this%binned(:, 404 ))== 0.0000000000000000 ," 481100 has zero counts if not has_gamma")
1384  insist(this%has_gamma( 405 ).eqv..false.," 481110 has_gamma")
1385  insist(sum(this%binned(:, 405 ))== 0.0000000000000000 ," 481110 has zero counts if not has_gamma")
1386  insist(this%has_gamma( 406 ).eqv..false.," 481111 has_gamma")
1387  insist(sum(this%binned(:, 406 ))== 0.0000000000000000 ," 481111 has zero counts if not has_gamma")
1388  insist(this%has_gamma( 407 ).eqv..false.," 481120 has_gamma")
1389  insist(sum(this%binned(:, 407 ))== 0.0000000000000000 ," 481120 has zero counts if not has_gamma")
1390  insist(this%has_gamma( 408 ).eqv..true. ," 481130 has_gamma")
1391  ref= 7.5475555081041520e-002
1392  new=sum(this%binned(:, 408 ))
1393  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 7.5475555081041520E-002 , new=",new,")"
1394  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 481130 "//trim(msg))
1395  insist(this%has_gamma( 409 ).eqv..true. ," 481131 has_gamma")
1396  ref= 0.17320447776984155
1397  new=sum(this%binned(:, 409 ))
1398  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.17320447776984155 , new=",new,")"
1399  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 481131 "//trim(msg))
1400  insist(this%has_gamma( 410 ).eqv..false.," 481140 has_gamma")
1401  insist(sum(this%binned(:, 410 ))== 0.0000000000000000 ," 481140 has zero counts if not has_gamma")
1402  insist(this%has_gamma( 411 ).eqv..true. ," 481150 has_gamma")
1403  ref= 0.30763816677283629
1404  new=sum(this%binned(:, 411 ))
1405  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.30763816677283629 , new=",new,")"
1406  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 481150 "//trim(msg))
1407  insist(this%has_gamma( 412 ).eqv..true. ," 481151 has_gamma")
1408  ref= 0.67684358372750064
1409  new=sum(this%binned(:, 412 ))
1410  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.67684358372750064 , new=",new,")"
1411  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 481151 "//trim(msg))
1412  insist(this%has_gamma( 413 ).eqv..false.," 481160 has_gamma")
1413  insist(sum(this%binned(:, 413 ))== 0.0000000000000000 ," 481160 has zero counts if not has_gamma")
1414  insist(this%has_gamma( 414 ).eqv..false.," 481170 has_gamma")
1415  insist(sum(this%binned(:, 414 ))== 0.0000000000000000 ," 481170 has zero counts if not has_gamma")
1416  insist(this%has_gamma( 415 ).eqv..false.," 481171 has_gamma")
1417  insist(sum(this%binned(:, 415 ))== 0.0000000000000000 ," 481171 has zero counts if not has_gamma")
1418  insist(this%has_gamma( 416 ).eqv..false.," 481190 has_gamma")
1419  insist(sum(this%binned(:, 416 ))== 0.0000000000000000 ," 481190 has zero counts if not has_gamma")
1420  insist(this%has_gamma( 417 ).eqv..false.," 481210 has_gamma")
1421  insist(sum(this%binned(:, 417 ))== 0.0000000000000000 ," 481210 has zero counts if not has_gamma")
1422  insist(this%has_gamma( 418 ).eqv..false.," 491110 has_gamma")
1423  insist(sum(this%binned(:, 418 ))== 0.0000000000000000 ," 491110 has zero counts if not has_gamma")
1424  insist(this%has_gamma( 419 ).eqv..false.," 491120 has_gamma")
1425  insist(sum(this%binned(:, 419 ))== 0.0000000000000000 ," 491120 has zero counts if not has_gamma")
1426  insist(this%has_gamma( 420 ).eqv..false.," 491130 has_gamma")
1427  insist(sum(this%binned(:, 420 ))== 0.0000000000000000 ," 491130 has zero counts if not has_gamma")
1428  insist(this%has_gamma( 421 ).eqv..false.," 491131 has_gamma")
1429  insist(sum(this%binned(:, 421 ))== 0.0000000000000000 ," 491131 has zero counts if not has_gamma")
1430  insist(this%has_gamma( 422 ).eqv..true. ," 491140 has_gamma")
1431  ref= 0.88342222361784639
1432  new=sum(this%binned(:, 422 ))
1433  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.88342222361784639 , new=",new,")"
1434  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491140 "//trim(msg))
1435  insist(this%has_gamma( 423 ).eqv..false.," 491141 has_gamma")
1436  insist(sum(this%binned(:, 423 ))== 0.0000000000000000 ," 491141 has zero counts if not has_gamma")
1437  insist(this%has_gamma( 424 ).eqv..true. ," 491150 has_gamma")
1438  ref= 0.13679583884205912
1439  new=sum(this%binned(:, 424 ))
1440  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.13679583884205912 , new=",new,")"
1441  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491150 "//trim(msg))
1442  insist(this%has_gamma( 425 ).eqv..true. ," 491151 has_gamma")
1443  ref= 4.0115862475793927e-004
1444  new=sum(this%binned(:, 425 ))
1445  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.0115862475793927E-004 , new=",new,")"
1446  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491151 "//trim(msg))
1447  insist(this%has_gamma( 426 ).eqv..true. ," 491160 has_gamma")
1448  ref= 1.6867689489913009
1449  new=sum(this%binned(:, 426 ))
1450  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.6867689489913009 , new=",new,")"
1451  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491160 "//trim(msg))
1452  insist(this%has_gamma( 427 ).eqv..true. ," 491161 has_gamma")
1453  ref= 0.30791418396150139
1454  new=sum(this%binned(:, 427 ))
1455  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.30791418396150139 , new=",new,")"
1456  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491161 "//trim(msg))
1457  insist(this%has_gamma( 428 ).eqv..false.," 491170 has_gamma")
1458  insist(sum(this%binned(:, 428 ))== 0.0000000000000000 ," 491170 has zero counts if not has_gamma")
1459  insist(this%has_gamma( 429 ).eqv..false.," 491171 has_gamma")
1460  insist(sum(this%binned(:, 429 ))== 0.0000000000000000 ," 491171 has zero counts if not has_gamma")
1461  insist(this%has_gamma( 430 ).eqv..true. ," 491180 has_gamma")
1462  ref= 2.1664227433685710
1463  new=sum(this%binned(:, 430 ))
1464  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.1664227433685710 , new=",new,")"
1465  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491180 "//trim(msg))
1466  insist(this%has_gamma( 431 ).eqv..false.," 491190 has_gamma")
1467  insist(sum(this%binned(:, 431 ))== 0.0000000000000000 ," 491190 has zero counts if not has_gamma")
1468  insist(this%has_gamma( 432 ).eqv..false.," 491191 has_gamma")
1469  insist(sum(this%binned(:, 432 ))== 0.0000000000000000 ," 491191 has zero counts if not has_gamma")
1470  insist(this%has_gamma( 433 ).eqv..true. ," 491200 has_gamma")
1471  ref= 3.0781108253240705
1472  new=sum(this%binned(:, 433 ))
1473  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.0781108253240705 , new=",new,")"
1474  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491200 "//trim(msg))
1475  insist(this%has_gamma( 434 ).eqv..true. ," 491201 has_gamma")
1476  ref= 1.1038837285464551
1477  new=sum(this%binned(:, 434 ))
1478  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.1038837285464551 , new=",new,")"
1479  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491201 "//trim(msg))
1480  insist(this%has_gamma( 435 ).eqv..false.," 491210 has_gamma")
1481  insist(sum(this%binned(:, 435 ))== 0.0000000000000000 ," 491210 has zero counts if not has_gamma")
1482  insist(this%has_gamma( 436 ).eqv..false.," 491211 has_gamma")
1483  insist(sum(this%binned(:, 436 ))== 0.0000000000000000 ," 491211 has zero counts if not has_gamma")
1484  insist(this%has_gamma( 437 ).eqv..false.," 501120 has_gamma")
1485  insist(sum(this%binned(:, 437 ))== 0.0000000000000000 ," 501120 has zero counts if not has_gamma")
1486  insist(this%has_gamma( 438 ).eqv..false.," 501130 has_gamma")
1487  insist(sum(this%binned(:, 438 ))== 0.0000000000000000 ," 501130 has zero counts if not has_gamma")
1488  insist(this%has_gamma( 439 ).eqv..false.," 501131 has_gamma")
1489  insist(sum(this%binned(:, 439 ))== 0.0000000000000000 ," 501131 has zero counts if not has_gamma")
1490  insist(this%has_gamma( 440 ).eqv..false.," 501140 has_gamma")
1491  insist(sum(this%binned(:, 440 ))== 0.0000000000000000 ," 501140 has zero counts if not has_gamma")
1492  insist(this%has_gamma( 441 ).eqv..false.," 501150 has_gamma")
1493  insist(sum(this%binned(:, 441 ))== 0.0000000000000000 ," 501150 has zero counts if not has_gamma")
1494  insist(this%has_gamma( 442 ).eqv..false.," 501160 has_gamma")
1495  insist(sum(this%binned(:, 442 ))== 0.0000000000000000 ," 501160 has zero counts if not has_gamma")
1496  insist(this%has_gamma( 443 ).eqv..false.," 501170 has_gamma")
1497  insist(sum(this%binned(:, 443 ))== 0.0000000000000000 ," 501170 has zero counts if not has_gamma")
1498  insist(this%has_gamma( 444 ).eqv..false.," 501171 has_gamma")
1499  insist(sum(this%binned(:, 444 ))== 0.0000000000000000 ," 501171 has zero counts if not has_gamma")
1500  insist(this%has_gamma( 445 ).eqv..false.," 501180 has_gamma")
1501  insist(sum(this%binned(:, 445 ))== 0.0000000000000000 ," 501180 has zero counts if not has_gamma")
1502  insist(this%has_gamma( 446 ).eqv..false.," 501190 has_gamma")
1503  insist(sum(this%binned(:, 446 ))== 0.0000000000000000 ," 501190 has zero counts if not has_gamma")
1504  insist(this%has_gamma( 447 ).eqv..false.," 501191 has_gamma")
1505  insist(sum(this%binned(:, 447 ))== 0.0000000000000000 ," 501191 has zero counts if not has_gamma")
1506  insist(this%has_gamma( 448 ).eqv..false.," 501200 has_gamma")
1507  insist(sum(this%binned(:, 448 ))== 0.0000000000000000 ," 501200 has zero counts if not has_gamma")
1508  insist(this%has_gamma( 449 ).eqv..false.," 501210 has_gamma")
1509  insist(sum(this%binned(:, 449 ))== 0.0000000000000000 ," 501210 has zero counts if not has_gamma")
1510  insist(this%has_gamma( 450 ).eqv..false.," 501211 has_gamma")
1511  insist(sum(this%binned(:, 450 ))== 0.0000000000000000 ," 501211 has zero counts if not has_gamma")
1512  insist(this%has_gamma( 451 ).eqv..false.," 501220 has_gamma")
1513  insist(sum(this%binned(:, 451 ))== 0.0000000000000000 ," 501220 has zero counts if not has_gamma")
1514  insist(this%has_gamma( 452 ).eqv..true. ," 501230 has_gamma")
1515  ref= 0.57978316783614969
1516  new=sum(this%binned(:, 452 ))
1517  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.57978316783614969 , new=",new,")"
1518  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 501230 "//trim(msg))
1519  insist(this%has_gamma( 453 ).eqv..true. ," 501231 has_gamma")
1520  ref= 0.48882191691704341
1521  new=sum(this%binned(:, 453 ))
1522  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.48882191691704341 , new=",new,")"
1523  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 501231 "//trim(msg))
1524  insist(this%has_gamma( 454 ).eqv..false.," 501240 has_gamma")
1525  insist(sum(this%binned(:, 454 ))== 0.0000000000000000 ," 501240 has zero counts if not has_gamma")
1526  insist(this%has_gamma( 455 ).eqv..true. ," 501250 has_gamma")
1527  ref= 0.95998007878166880
1528  new=sum(this%binned(:, 455 ))
1529  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.95998007878166880 , new=",new,")"
1530  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 501250 "//trim(msg))
1531  insist(this%has_gamma( 456 ).eqv..true. ," 501251 has_gamma")
1532  ref= 0.90123469909512754
1533  new=sum(this%binned(:, 456 ))
1534  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.90123469909512754 , new=",new,")"
1535  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 501251 "//trim(msg))
1536  insist(this%has_gamma( 457 ).eqv..true. ," 501260 has_gamma")
1537  ref= 8.4624188393718172e-002
1538  new=sum(this%binned(:, 457 ))
1539  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.4624188393718172E-002 , new=",new,")"
1540  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 501260 "//trim(msg))
1541  insist(this%has_gamma( 458 ).eqv..false.," 511180 has_gamma")
1542  insist(sum(this%binned(:, 458 ))== 0.0000000000000000 ," 511180 has zero counts if not has_gamma")
1543  insist(this%has_gamma( 459 ).eqv..false.," 511190 has_gamma")
1544  insist(sum(this%binned(:, 459 ))== 0.0000000000000000 ," 511190 has zero counts if not has_gamma")
1545  insist(this%has_gamma( 460 ).eqv..false.," 511200 has_gamma")
1546  insist(sum(this%binned(:, 460 ))== 0.0000000000000000 ," 511200 has zero counts if not has_gamma")
1547  insist(this%has_gamma( 461 ).eqv..false.," 511201 has_gamma")
1548  insist(sum(this%binned(:, 461 ))== 0.0000000000000000 ," 511201 has zero counts if not has_gamma")
1549  insist(this%has_gamma( 462 ).eqv..false.," 511210 has_gamma")
1550  insist(sum(this%binned(:, 462 ))== 0.0000000000000000 ," 511210 has zero counts if not has_gamma")
1551  insist(this%has_gamma( 463 ).eqv..true. ," 511220 has_gamma")
1552  ref= 0.61206787508708693
1553  new=sum(this%binned(:, 463 ))
1554  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.61206787508708693 , new=",new,")"
1555  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511220 "//trim(msg))
1556  insist(this%has_gamma( 464 ).eqv..false.," 511221 has_gamma")
1557  insist(sum(this%binned(:, 464 ))== 0.0000000000000000 ," 511221 has zero counts if not has_gamma")
1558  insist(this%has_gamma( 465 ).eqv..false.," 511230 has_gamma")
1559  insist(sum(this%binned(:, 465 ))== 0.0000000000000000 ," 511230 has zero counts if not has_gamma")
1560  insist(this%has_gamma( 466 ).eqv..true. ," 511240 has_gamma")
1561  ref= 0.41775164849608570
1562  new=sum(this%binned(:, 466 ))
1563  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.41775164849608570 , new=",new,")"
1564  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511240 "//trim(msg))
1565  insist(this%has_gamma( 467 ).eqv..true. ," 511241 has_gamma")
1566  ref= 1.7386910510827434e-002
1567  new=sum(this%binned(:, 467 ))
1568  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.7386910510827434E-002 , new=",new,")"
1569  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511241 "//trim(msg))
1570  insist(this%has_gamma( 468 ).eqv..true. ," 511250 has_gamma")
1571  ref= 7.1726213357862861e-002
1572  new=sum(this%binned(:, 468 ))
1573  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 7.1726213357862861E-002 , new=",new,")"
1574  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511250 "//trim(msg))
1575  insist(this%has_gamma( 469 ).eqv..true. ," 511260 has_gamma")
1576  ref= 0.28249918769960813
1577  new=sum(this%binned(:, 469 ))
1578  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.28249918769960813 , new=",new,")"
1579  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511260 "//trim(msg))
1580  insist(this%has_gamma( 470 ).eqv..true. ," 511261 has_gamma")
1581  ref= 0.57419892530658634
1582  new=sum(this%binned(:, 470 ))
1583  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.57419892530658634 , new=",new,")"
1584  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511261 "//trim(msg))
1585  insist(this%has_gamma( 471 ).eqv..true. ," 511270 has_gamma")
1586  ref= 0.31553111973075260
1587  new=sum(this%binned(:, 471 ))
1588  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.31553111973075260 , new=",new,")"
1589  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511270 "//trim(msg))
1590  insist(this%has_gamma( 472 ).eqv..false.," 521180 has_gamma")
1591  insist(sum(this%binned(:, 472 ))== 0.0000000000000000 ," 521180 has zero counts if not has_gamma")
1592  insist(this%has_gamma( 473 ).eqv..false.," 521190 has_gamma")
1593  insist(sum(this%binned(:, 473 ))== 0.0000000000000000 ," 521190 has zero counts if not has_gamma")
1594  insist(this%has_gamma( 474 ).eqv..false.," 521191 has_gamma")
1595  insist(sum(this%binned(:, 474 ))== 0.0000000000000000 ," 521191 has zero counts if not has_gamma")
1596  insist(this%has_gamma( 475 ).eqv..false.," 521200 has_gamma")
1597  insist(sum(this%binned(:, 475 ))== 0.0000000000000000 ," 521200 has zero counts if not has_gamma")
1598  insist(this%has_gamma( 476 ).eqv..false.," 521210 has_gamma")
1599  insist(sum(this%binned(:, 476 ))== 0.0000000000000000 ," 521210 has zero counts if not has_gamma")
1600  insist(this%has_gamma( 477 ).eqv..false.," 521211 has_gamma")
1601  insist(sum(this%binned(:, 477 ))== 0.0000000000000000 ," 521211 has zero counts if not has_gamma")
1602  insist(this%has_gamma( 478 ).eqv..false.," 521220 has_gamma")
1603  insist(sum(this%binned(:, 478 ))== 0.0000000000000000 ," 521220 has zero counts if not has_gamma")
1604  insist(this%has_gamma( 479 ).eqv..false.," 521230 has_gamma")
1605  insist(sum(this%binned(:, 479 ))== 0.0000000000000000 ," 521230 has zero counts if not has_gamma")
1606  insist(this%has_gamma( 480 ).eqv..false.," 521231 has_gamma")
1607  insist(sum(this%binned(:, 480 ))== 0.0000000000000000 ," 521231 has zero counts if not has_gamma")
1608  insist(this%has_gamma( 481 ).eqv..false.," 521240 has_gamma")
1609  insist(sum(this%binned(:, 481 ))== 0.0000000000000000 ," 521240 has zero counts if not has_gamma")
1610  insist(this%has_gamma( 482 ).eqv..false.," 521250 has_gamma")
1611  insist(sum(this%binned(:, 482 ))== 0.0000000000000000 ," 521250 has zero counts if not has_gamma")
1612  insist(this%has_gamma( 483 ).eqv..false.," 521251 has_gamma")
1613  insist(sum(this%binned(:, 483 ))== 0.0000000000000000 ," 521251 has zero counts if not has_gamma")
1614  insist(this%has_gamma( 484 ).eqv..false.," 521260 has_gamma")
1615  insist(sum(this%binned(:, 484 ))== 0.0000000000000000 ," 521260 has zero counts if not has_gamma")
1616  insist(this%has_gamma( 485 ).eqv..true. ," 521270 has_gamma")
1617  ref= 0.21533089173324707
1618  new=sum(this%binned(:, 485 ))
1619  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.21533089173324707 , new=",new,")"
1620  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521270 "//trim(msg))
1621  insist(this%has_gamma( 486 ).eqv..true. ," 521271 has_gamma")
1622  ref= 1.4553212944834476e-004
1623  new=sum(this%binned(:, 486 ))
1624  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4553212944834476E-004 , new=",new,")"
1625  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521271 "//trim(msg))
1626  insist(this%has_gamma( 487 ).eqv..false.," 521280 has_gamma")
1627  insist(sum(this%binned(:, 487 ))== 0.0000000000000000 ," 521280 has zero counts if not has_gamma")
1628  insist(this%has_gamma( 488 ).eqv..true. ," 521290 has_gamma")
1629  ref= 0.57148233870467513
1630  new=sum(this%binned(:, 488 ))
1631  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.57148233870467513 , new=",new,")"
1632  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521290 "//trim(msg))
1633  insist(this%has_gamma( 489 ).eqv..true. ," 521291 has_gamma")
1634  ref= 7.7115786881851278e-002
1635  new=sum(this%binned(:, 489 ))
1636  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 7.7115786881851278E-002 , new=",new,")"
1637  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521291 "//trim(msg))
1638  insist(this%has_gamma( 490 ).eqv..false.," 521300 has_gamma")
1639  insist(sum(this%binned(:, 490 ))== 0.0000000000000000 ," 521300 has zero counts if not has_gamma")
1640  insist(this%has_gamma( 491 ).eqv..true. ," 521310 has_gamma")
1641  ref= 0.79543965914349735
1642  new=sum(this%binned(:, 491 ))
1643  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.79543965914349735 , new=",new,")"
1644  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521310 "//trim(msg))
1645  insist(this%has_gamma( 492 ).eqv..true. ," 521311 has_gamma")
1646  ref= 0.11407246174684361
1647  new=sum(this%binned(:, 492 ))
1648  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.11407246174684361 , new=",new,")"
1649  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521311 "//trim(msg))
1650  insist(this%has_gamma( 493 ).eqv..true. ," 521320 has_gamma")
1651  ref= 4.2364425689839891e-002
1652  new=sum(this%binned(:, 493 ))
1653  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.2364425689839891E-002 , new=",new,")"
1654  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521320 "//trim(msg))
1655  insist(this%has_gamma( 494 ).eqv..false.," 531220 has_gamma")
1656  insist(sum(this%binned(:, 494 ))== 0.0000000000000000 ," 531220 has zero counts if not has_gamma")
1657  insist(this%has_gamma( 495 ).eqv..false.," 531230 has_gamma")
1658  insist(sum(this%binned(:, 495 ))== 0.0000000000000000 ," 531230 has zero counts if not has_gamma")
1659  insist(this%has_gamma( 496 ).eqv..false.," 531240 has_gamma")
1660  insist(sum(this%binned(:, 496 ))== 0.0000000000000000 ," 531240 has zero counts if not has_gamma")
1661  insist(this%has_gamma( 497 ).eqv..false.," 531250 has_gamma")
1662  insist(sum(this%binned(:, 497 ))== 0.0000000000000000 ," 531250 has zero counts if not has_gamma")
1663  insist(this%has_gamma( 498 ).eqv..true. ," 531260 has_gamma")
1664  ref= 6.9957713445655045e-002
1665  new=sum(this%binned(:, 498 ))
1666  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.9957713445655045E-002 , new=",new,")"
1667  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531260 "//trim(msg))
1668  insist(this%has_gamma( 499 ).eqv..false.," 531270 has_gamma")
1669  insist(sum(this%binned(:, 499 ))== 0.0000000000000000 ," 531270 has zero counts if not has_gamma")
1670  insist(this%has_gamma( 500 ).eqv..true. ," 531280 has_gamma")
1671  ref= 0.81150481878300196
1672  new=sum(this%binned(:, 500 ))
1673  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.81150481878300196 , new=",new,")"
1674  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531280 "//trim(msg))
1675  insist(this%has_gamma( 501 ).eqv..true. ," 531290 has_gamma")
1676  ref= 2.5070131073676859e-002
1677  new=sum(this%binned(:, 501 ))
1678  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.5070131073676859E-002 , new=",new,")"
1679  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531290 "//trim(msg))
1680  insist(this%has_gamma( 502 ).eqv..true. ," 531300 has_gamma")
1681  ref= 0.29084157692338020
1682  new=sum(this%binned(:, 502 ))
1683  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.29084157692338020 , new=",new,")"
1684  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531300 "//trim(msg))
1685  insist(this%has_gamma( 503 ).eqv..true. ," 531301 has_gamma")
1686  ref= 3.1578917906401223e-002
1687  new=sum(this%binned(:, 503 ))
1688  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.1578917906401223E-002 , new=",new,")"
1689  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531301 "//trim(msg))
1690  insist(this%has_gamma( 504 ).eqv..true. ," 531310 has_gamma")
1691  ref= 0.16979873602472145
1692  new=sum(this%binned(:, 504 ))
1693  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.16979873602472145 , new=",new,")"
1694  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531310 "//trim(msg))
1695  insist(this%has_gamma( 505 ).eqv..true. ," 531320 has_gamma")
1696  ref= 0.53271029128831782
1697  new=sum(this%binned(:, 505 ))
1698  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.53271029128831782 , new=",new,")"
1699  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531320 "//trim(msg))
1700  insist(this%has_gamma( 506 ).eqv..true. ," 531330 has_gamma")
1701  ref= 0.43136643703652339
1702  new=sum(this%binned(:, 506 ))
1703  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.43136643703652339 , new=",new,")"
1704  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531330 "//trim(msg))
1705  insist(this%has_gamma( 507 ).eqv..false.," 541220 has_gamma")
1706  insist(sum(this%binned(:, 507 ))== 0.0000000000000000 ," 541220 has zero counts if not has_gamma")
1707  insist(this%has_gamma( 508 ).eqv..false.," 541230 has_gamma")
1708  insist(sum(this%binned(:, 508 ))== 0.0000000000000000 ," 541230 has zero counts if not has_gamma")
1709  insist(this%has_gamma( 509 ).eqv..false.," 541240 has_gamma")
1710  insist(sum(this%binned(:, 509 ))== 0.0000000000000000 ," 541240 has zero counts if not has_gamma")
1711  insist(this%has_gamma( 510 ).eqv..true. ," 541250 has_gamma")
1712  ref= 5.0064228739966918e-003
1713  new=sum(this%binned(:, 510 ))
1714  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.0064228739966918E-003 , new=",new,")"
1715  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 541250 "//trim(msg))
1716  insist(this%has_gamma( 511 ).eqv..false.," 541251 has_gamma")
1717  insist(sum(this%binned(:, 511 ))== 0.0000000000000000 ," 541251 has zero counts if not has_gamma")
1718  insist(this%has_gamma( 512 ).eqv..false.," 541260 has_gamma")
1719  insist(sum(this%binned(:, 512 ))== 0.0000000000000000 ," 541260 has zero counts if not has_gamma")
1720  insist(this%has_gamma( 513 ).eqv..false.," 541270 has_gamma")
1721  insist(sum(this%binned(:, 513 ))== 0.0000000000000000 ," 541270 has zero counts if not has_gamma")
1722  insist(this%has_gamma( 514 ).eqv..false.," 541271 has_gamma")
1723  insist(sum(this%binned(:, 514 ))== 0.0000000000000000 ," 541271 has zero counts if not has_gamma")
1724  insist(this%has_gamma( 515 ).eqv..false.," 541280 has_gamma")
1725  insist(sum(this%binned(:, 515 ))== 0.0000000000000000 ," 541280 has zero counts if not has_gamma")
1726  insist(this%has_gamma( 516 ).eqv..false.," 541290 has_gamma")
1727  insist(sum(this%binned(:, 516 ))== 0.0000000000000000 ," 541290 has zero counts if not has_gamma")
1728  insist(this%has_gamma( 517 ).eqv..false.," 541291 has_gamma")
1729  insist(sum(this%binned(:, 517 ))== 0.0000000000000000 ," 541291 has zero counts if not has_gamma")
1730  insist(this%has_gamma( 518 ).eqv..false.," 541300 has_gamma")
1731  insist(sum(this%binned(:, 518 ))== 0.0000000000000000 ," 541300 has zero counts if not has_gamma")
1732  insist(this%has_gamma( 519 ).eqv..false.," 541310 has_gamma")
1733  insist(sum(this%binned(:, 519 ))== 0.0000000000000000 ," 541310 has zero counts if not has_gamma")
1734  insist(this%has_gamma( 520 ).eqv..false.," 541311 has_gamma")
1735  insist(sum(this%binned(:, 520 ))== 0.0000000000000000 ," 541311 has zero counts if not has_gamma")
1736  insist(this%has_gamma( 521 ).eqv..false.," 541320 has_gamma")
1737  insist(sum(this%binned(:, 521 ))== 0.0000000000000000 ," 541320 has zero counts if not has_gamma")
1738  insist(this%has_gamma( 522 ).eqv..true. ," 541330 has_gamma")
1739  ref= 8.2721398470994259e-002
1740  new=sum(this%binned(:, 522 ))
1741  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.2721398470994259E-002 , new=",new,")"
1742  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 541330 "//trim(msg))
1743  insist(this%has_gamma( 523 ).eqv..false.," 541331 has_gamma")
1744  insist(sum(this%binned(:, 523 ))== 0.0000000000000000 ," 541331 has zero counts if not has_gamma")
1745  insist(this%has_gamma( 524 ).eqv..false.," 541340 has_gamma")
1746  insist(sum(this%binned(:, 524 ))== 0.0000000000000000 ," 541340 has zero counts if not has_gamma")
1747  insist(this%has_gamma( 525 ).eqv..true. ," 541350 has_gamma")
1748  ref= 0.30621217934464795
1749  new=sum(this%binned(:, 525 ))
1750  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.30621217934464795 , new=",new,")"
1751  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 541350 "//trim(msg))
1752  insist(this%has_gamma( 526 ).eqv..true. ," 541351 has_gamma")
1753  ref= 1.2799521752700906e-005
1754  new=sum(this%binned(:, 526 ))
1755  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2799521752700906E-005 , new=",new,")"
1756  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 541351 "//trim(msg))
1757  insist(this%has_gamma( 527 ).eqv..false.," 541360 has_gamma")
1758  insist(sum(this%binned(:, 527 ))== 0.0000000000000000 ," 541360 has zero counts if not has_gamma")
1759  insist(this%has_gamma( 528 ).eqv..true. ," 541370 has_gamma")
1760  ref= 2.2649732556560593
1761  new=sum(this%binned(:, 528 ))
1762  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.2649732556560593 , new=",new,")"
1763  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 541370 "//trim(msg))
1764  insist(this%has_gamma( 529 ).eqv..false.," 551280 has_gamma")
1765  insist(sum(this%binned(:, 529 ))== 0.0000000000000000 ," 551280 has zero counts if not has_gamma")
1766  insist(this%has_gamma( 530 ).eqv..false.," 551290 has_gamma")
1767  insist(sum(this%binned(:, 530 ))== 0.0000000000000000 ," 551290 has zero counts if not has_gamma")
1768  insist(this%has_gamma( 531 ).eqv..false.," 551300 has_gamma")
1769  insist(sum(this%binned(:, 531 ))== 0.0000000000000000 ," 551300 has zero counts if not has_gamma")
1770  insist(this%has_gamma( 532 ).eqv..false.," 551310 has_gamma")
1771  insist(sum(this%binned(:, 532 ))== 0.0000000000000000 ," 551310 has zero counts if not has_gamma")
1772  insist(this%has_gamma( 533 ).eqv..true. ," 551320 has_gamma")
1773  ref= 2.1000282732913530e-003
1774  new=sum(this%binned(:, 533 ))
1775  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.1000282732913530E-003 , new=",new,")"
1776  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 551320 "//trim(msg))
1777  insist(this%has_gamma( 534 ).eqv..false.," 551330 has_gamma")
1778  insist(sum(this%binned(:, 534 ))== 0.0000000000000000 ," 551330 has zero counts if not has_gamma")
1779  insist(this%has_gamma( 535 ).eqv..true. ," 551340 has_gamma")
1780  ref= 0.14673576315679460
1781  new=sum(this%binned(:, 535 ))
1782  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.14673576315679460 , new=",new,")"
1783  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 551340 "//trim(msg))
1784  insist(this%has_gamma( 536 ).eqv..false.," 551341 has_gamma")
1785  insist(sum(this%binned(:, 536 ))== 0.0000000000000000 ," 551341 has zero counts if not has_gamma")
1786  insist(this%has_gamma( 537 ).eqv..true. ," 551350 has_gamma")
1787  ref= 3.9443880041662993e-002
1788  new=sum(this%binned(:, 537 ))
1789  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.9443880041662993E-002 , new=",new,")"
1790  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 551350 "//trim(msg))
1791  insist(this%has_gamma( 538 ).eqv..true. ," 551360 has_gamma")
1792  ref= 8.5233914775956710e-002
1793  new=sum(this%binned(:, 538 ))
1794  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.5233914775956710E-002 , new=",new,")"
1795  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 551360 "//trim(msg))
1796  insist(this%has_gamma( 539 ).eqv..true. ," 551370 has_gamma")
1797  ref= 0.15841674472337336
1798  new=sum(this%binned(:, 539 ))
1799  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.15841674472337336 , new=",new,")"
1800  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 551370 "//trim(msg))
1801  insist(this%has_gamma( 540 ).eqv..true. ," 551380 has_gamma")
1802  ref= 1.4612133820677384
1803  new=sum(this%binned(:, 540 ))
1804  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4612133820677384 , new=",new,")"
1805  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 551380 "//trim(msg))
1806  insist(this%has_gamma( 541 ).eqv..false.," 561280 has_gamma")
1807  insist(sum(this%binned(:, 541 ))== 0.0000000000000000 ," 561280 has zero counts if not has_gamma")
1808  insist(this%has_gamma( 542 ).eqv..false.," 561290 has_gamma")
1809  insist(sum(this%binned(:, 542 ))== 0.0000000000000000 ," 561290 has zero counts if not has_gamma")
1810  insist(this%has_gamma( 543 ).eqv..false.," 561300 has_gamma")
1811  insist(sum(this%binned(:, 543 ))== 0.0000000000000000 ," 561300 has zero counts if not has_gamma")
1812  insist(this%has_gamma( 544 ).eqv..true. ," 561310 has_gamma")
1813  ref= 4.0519245755252231e-006
1814  new=sum(this%binned(:, 544 ))
1815  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.0519245755252231E-006 , new=",new,")"
1816  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 561310 "//trim(msg))
1817  insist(this%has_gamma( 545 ).eqv..false.," 561311 has_gamma")
1818  insist(sum(this%binned(:, 545 ))== 0.0000000000000000 ," 561311 has zero counts if not has_gamma")
1819  insist(this%has_gamma( 546 ).eqv..false.," 561320 has_gamma")
1820  insist(sum(this%binned(:, 546 ))== 0.0000000000000000 ," 561320 has zero counts if not has_gamma")
1821  insist(this%has_gamma( 547 ).eqv..false.," 561330 has_gamma")
1822  insist(sum(this%binned(:, 547 ))== 0.0000000000000000 ," 561330 has zero counts if not has_gamma")
1823  insist(this%has_gamma( 548 ).eqv..false.," 561331 has_gamma")
1824  insist(sum(this%binned(:, 548 ))== 0.0000000000000000 ," 561331 has zero counts if not has_gamma")
1825  insist(this%has_gamma( 549 ).eqv..false.," 561340 has_gamma")
1826  insist(sum(this%binned(:, 549 ))== 0.0000000000000000 ," 561340 has zero counts if not has_gamma")
1827  insist(this%has_gamma( 550 ).eqv..false.," 561350 has_gamma")
1828  insist(sum(this%binned(:, 550 ))== 0.0000000000000000 ," 561350 has zero counts if not has_gamma")
1829  insist(this%has_gamma( 551 ).eqv..false.," 561351 has_gamma")
1830  insist(sum(this%binned(:, 551 ))== 0.0000000000000000 ," 561351 has zero counts if not has_gamma")
1831  insist(this%has_gamma( 552 ).eqv..false.," 561360 has_gamma")
1832  insist(sum(this%binned(:, 552 ))== 0.0000000000000000 ," 561360 has zero counts if not has_gamma")
1833  insist(this%has_gamma( 553 ).eqv..false.," 561361 has_gamma")
1834  insist(sum(this%binned(:, 553 ))== 0.0000000000000000 ," 561361 has zero counts if not has_gamma")
1835  insist(this%has_gamma( 554 ).eqv..false.," 561370 has_gamma")
1836  insist(sum(this%binned(:, 554 ))== 0.0000000000000000 ," 561370 has zero counts if not has_gamma")
1837  insist(this%has_gamma( 555 ).eqv..false.," 561371 has_gamma")
1838  insist(sum(this%binned(:, 555 ))== 0.0000000000000000 ," 561371 has zero counts if not has_gamma")
1839  insist(this%has_gamma( 556 ).eqv..false.," 561380 has_gamma")
1840  insist(sum(this%binned(:, 556 ))== 0.0000000000000000 ," 561380 has zero counts if not has_gamma")
1841  insist(this%has_gamma( 557 ).eqv..true. ," 561390 has_gamma")
1842  ref= 1.0437788856665779
1843  new=sum(this%binned(:, 557 ))
1844  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.0437788856665779 , new=",new,")"
1845  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 561390 "//trim(msg))
1846  insist(this%has_gamma( 558 ).eqv..true. ," 561400 has_gamma")
1847  ref= 0.29417625363541500
1848  new=sum(this%binned(:, 558 ))
1849  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.29417625363541500 , new=",new,")"
1850  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 561400 "//trim(msg))
1851  insist(this%has_gamma( 559 ).eqv..true. ," 561410 has_gamma")
1852  ref= 1.0303107587092697
1853  new=sum(this%binned(:, 559 ))
1854  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.0303107587092697 , new=",new,")"
1855  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 561410 "//trim(msg))
1856  insist(this%has_gamma( 560 ).eqv..false.," 571340 has_gamma")
1857  insist(sum(this%binned(:, 560 ))== 0.0000000000000000 ," 571340 has zero counts if not has_gamma")
1858  insist(this%has_gamma( 561 ).eqv..false.," 571350 has_gamma")
1859  insist(sum(this%binned(:, 561 ))== 0.0000000000000000 ," 571350 has zero counts if not has_gamma")
1860  insist(this%has_gamma( 562 ).eqv..false.," 571360 has_gamma")
1861  insist(sum(this%binned(:, 562 ))== 0.0000000000000000 ," 571360 has zero counts if not has_gamma")
1862  insist(this%has_gamma( 563 ).eqv..false.," 571370 has_gamma")
1863  insist(sum(this%binned(:, 563 ))== 0.0000000000000000 ," 571370 has zero counts if not has_gamma")
1864  insist(this%has_gamma( 564 ).eqv..true. ," 571380 has_gamma")
1865  ref= 8.0724458313241581e-003
1866  new=sum(this%binned(:, 564 ))
1867  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.0724458313241581E-003 , new=",new,")"
1868  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 571380 "//trim(msg))
1869  insist(this%has_gamma( 565 ).eqv..false.," 571390 has_gamma")
1870  insist(sum(this%binned(:, 565 ))== 0.0000000000000000 ," 571390 has zero counts if not has_gamma")
1871  insist(this%has_gamma( 566 ).eqv..true. ," 571400 has_gamma")
1872  ref= 0.60218382412752902
1873  new=sum(this%binned(:, 566 ))
1874  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.60218382412752902 , new=",new,")"
1875  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 571400 "//trim(msg))
1876  insist(this%has_gamma( 567 ).eqv..true. ," 571410 has_gamma")
1877  ref= 1.1226592142810996
1878  new=sum(this%binned(:, 567 ))
1879  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.1226592142810996 , new=",new,")"
1880  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 571410 "//trim(msg))
1881  insist(this%has_gamma( 568 ).eqv..false.," 581340 has_gamma")
1882  insist(sum(this%binned(:, 568 ))== 0.0000000000000000 ," 581340 has zero counts if not has_gamma")
1883  insist(this%has_gamma( 569 ).eqv..false.," 581350 has_gamma")
1884  insist(sum(this%binned(:, 569 ))== 0.0000000000000000 ," 581350 has zero counts if not has_gamma")
1885  insist(this%has_gamma( 570 ).eqv..false.," 581360 has_gamma")
1886  insist(sum(this%binned(:, 570 ))== 0.0000000000000000 ," 581360 has zero counts if not has_gamma")
1887  insist(this%has_gamma( 571 ).eqv..false.," 581370 has_gamma")
1888  insist(sum(this%binned(:, 571 ))== 0.0000000000000000 ," 581370 has zero counts if not has_gamma")
1889  insist(this%has_gamma( 572 ).eqv..false.," 581371 has_gamma")
1890  insist(sum(this%binned(:, 572 ))== 0.0000000000000000 ," 581371 has zero counts if not has_gamma")
1891  insist(this%has_gamma( 573 ).eqv..false.," 581380 has_gamma")
1892  insist(sum(this%binned(:, 573 ))== 0.0000000000000000 ," 581380 has zero counts if not has_gamma")
1893  insist(this%has_gamma( 574 ).eqv..false.," 581390 has_gamma")
1894  insist(sum(this%binned(:, 574 ))== 0.0000000000000000 ," 581390 has zero counts if not has_gamma")
1895  insist(this%has_gamma( 575 ).eqv..false.," 581391 has_gamma")
1896  insist(sum(this%binned(:, 575 ))== 0.0000000000000000 ," 581391 has zero counts if not has_gamma")
1897  insist(this%has_gamma( 576 ).eqv..false.," 581400 has_gamma")
1898  insist(sum(this%binned(:, 576 ))== 0.0000000000000000 ," 581400 has zero counts if not has_gamma")
1899  insist(this%has_gamma( 577 ).eqv..true. ," 581410 has_gamma")
1900  ref= 0.13008160678741820
1901  new=sum(this%binned(:, 577 ))
1902  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.13008160678741820 , new=",new,")"
1903  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 581410 "//trim(msg))
1904  insist(this%has_gamma( 578 ).eqv..false.," 581420 has_gamma")
1905  insist(sum(this%binned(:, 578 ))== 0.0000000000000000 ," 581420 has zero counts if not has_gamma")
1906  insist(this%has_gamma( 579 ).eqv..true. ," 581430 has_gamma")
1907  ref= 0.42580739165593329
1908  new=sum(this%binned(:, 579 ))
1909  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.42580739165593329 , new=",new,")"
1910  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 581430 "//trim(msg))
1911  insist(this%has_gamma( 580 ).eqv..true. ," 581440 has_gamma")
1912  ref= 6.3751021087238499e-002
1913  new=sum(this%binned(:, 580 ))
1914  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.3751021087238499E-002 , new=",new,")"
1915  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 581440 "//trim(msg))
1916  insist(this%has_gamma( 581 ).eqv..true. ," 581450 has_gamma")
1917  ref= 0.68194909056210118
1918  new=sum(this%binned(:, 581 ))
1919  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.68194909056210118 , new=",new,")"
1920  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 581450 "//trim(msg))
1921  insist(this%has_gamma( 582 ).eqv..false.," 591400 has_gamma")
1922  insist(sum(this%binned(:, 582 ))== 0.0000000000000000 ," 591400 has zero counts if not has_gamma")
1923  insist(this%has_gamma( 583 ).eqv..false.," 591410 has_gamma")
1924  insist(sum(this%binned(:, 583 ))== 0.0000000000000000 ," 591410 has zero counts if not has_gamma")
1925  insist(this%has_gamma( 584 ).eqv..true. ," 591420 has_gamma")
1926  ref= 0.95774008341515993
1927  new=sum(this%binned(:, 584 ))
1928  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.95774008341515993 , new=",new,")"
1929  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 591420 "//trim(msg))
1930  insist(this%has_gamma( 585 ).eqv..false.," 591421 has_gamma")
1931  insist(sum(this%binned(:, 585 ))== 0.0000000000000000 ," 591421 has zero counts if not has_gamma")
1932  insist(this%has_gamma( 586 ).eqv..true. ," 591430 has_gamma")
1933  ref= 0.32059556534630923
1934  new=sum(this%binned(:, 586 ))
1935  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.32059556534630923 , new=",new,")"
1936  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 591430 "//trim(msg))
1937  insist(this%has_gamma( 587 ).eqv..true. ," 591440 has_gamma")
1938  ref= 1.4731444439248664
1939  new=sum(this%binned(:, 587 ))
1940  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4731444439248664 , new=",new,")"
1941  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 591440 "//trim(msg))
1942  insist(this%has_gamma( 588 ).eqv..true. ," 591441 has_gamma")
1943  ref= 2.2731732977862911e-007
1944  new=sum(this%binned(:, 588 ))
1945  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.2731732977862911E-007 , new=",new,")"
1946  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 591441 "//trim(msg))
1947  insist(this%has_gamma( 589 ).eqv..true. ," 591450 has_gamma")
1948  ref= 0.76913395252632344
1949  new=sum(this%binned(:, 589 ))
1950  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.76913395252632344 , new=",new,")"
1951  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 591450 "//trim(msg))
1952  insist(this%has_gamma( 590 ).eqv..false.," 601400 has_gamma")
1953  insist(sum(this%binned(:, 590 ))== 0.0000000000000000 ," 601400 has zero counts if not has_gamma")
1954  insist(this%has_gamma( 591 ).eqv..false.," 601410 has_gamma")
1955  insist(sum(this%binned(:, 591 ))== 0.0000000000000000 ," 601410 has zero counts if not has_gamma")
1956  insist(this%has_gamma( 592 ).eqv..false.," 601411 has_gamma")
1957  insist(sum(this%binned(:, 592 ))== 0.0000000000000000 ," 601411 has zero counts if not has_gamma")
1958  insist(this%has_gamma( 593 ).eqv..false.," 601420 has_gamma")
1959  insist(sum(this%binned(:, 593 ))== 0.0000000000000000 ," 601420 has zero counts if not has_gamma")
1960  insist(this%has_gamma( 594 ).eqv..false.," 601430 has_gamma")
1961  insist(sum(this%binned(:, 594 ))== 0.0000000000000000 ," 601430 has zero counts if not has_gamma")
1962  insist(this%has_gamma( 595 ).eqv..false.," 601440 has_gamma")
1963  insist(sum(this%binned(:, 595 ))== 0.0000000000000000 ," 601440 has zero counts if not has_gamma")
1964  insist(this%has_gamma( 596 ).eqv..false.," 601450 has_gamma")
1965  insist(sum(this%binned(:, 596 ))== 0.0000000000000000 ," 601450 has zero counts if not has_gamma")
1966  insist(this%has_gamma( 597 ).eqv..false.," 601460 has_gamma")
1967  insist(sum(this%binned(:, 597 ))== 0.0000000000000000 ," 601460 has zero counts if not has_gamma")
1968  insist(this%has_gamma( 598 ).eqv..true. ," 601470 has_gamma")
1969  ref= 0.22875016324034583
1970  new=sum(this%binned(:, 598 ))
1971  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.22875016324034583 , new=",new,")"
1972  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 601470 "//trim(msg))
1973  insist(this%has_gamma( 599 ).eqv..false.," 601480 has_gamma")
1974  insist(sum(this%binned(:, 599 ))== 0.0000000000000000 ," 601480 has zero counts if not has_gamma")
1975  insist(this%has_gamma( 600 ).eqv..true. ," 601490 has_gamma")
1976  ref= 0.50091352746460194
1977  new=sum(this%binned(:, 600 ))
1978  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.50091352746460194 , new=",new,")"
1979  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 601490 "//trim(msg))
1980  insist(this%has_gamma( 601 ).eqv..false.," 601500 has_gamma")
1981  insist(sum(this%binned(:, 601 ))== 0.0000000000000000 ," 601500 has zero counts if not has_gamma")
1982  insist(this%has_gamma( 602 ).eqv..true. ," 601510 has_gamma")
1983  ref= 0.68210990210782507
1984  new=sum(this%binned(:, 602 ))
1985  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.68210990210782507 , new=",new,")"
1986  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 601510 "//trim(msg))
1987  insist(this%has_gamma( 603 ).eqv..false.," 611430 has_gamma")
1988  insist(sum(this%binned(:, 603 ))== 0.0000000000000000 ," 611430 has zero counts if not has_gamma")
1989  insist(this%has_gamma( 604 ).eqv..false.," 611440 has_gamma")
1990  insist(sum(this%binned(:, 604 ))== 0.0000000000000000 ," 611440 has zero counts if not has_gamma")
1991  insist(this%has_gamma( 605 ).eqv..false.," 611450 has_gamma")
1992  insist(sum(this%binned(:, 605 ))== 0.0000000000000000 ," 611450 has zero counts if not has_gamma")
1993  insist(this%has_gamma( 606 ).eqv..false.," 611460 has_gamma")
1994  insist(sum(this%binned(:, 606 ))== 0.0000000000000000 ," 611460 has zero counts if not has_gamma")
1995  insist(this%has_gamma( 607 ).eqv..true. ," 611470 has_gamma")
1996  ref= 4.4805144281838238e-002
1997  new=sum(this%binned(:, 607 ))
1998  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.4805144281838238E-002 , new=",new,")"
1999  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 611470 "//trim(msg))
2000  insist(this%has_gamma( 608 ).eqv..true. ," 611480 has_gamma")
2001  ref= 0.83675692258202616
2002  new=sum(this%binned(:, 608 ))
2003  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.83675692258202616 , new=",new,")"
2004  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 611480 "//trim(msg))
2005  insist(this%has_gamma( 609 ).eqv..true. ," 611481 has_gamma")
2006  ref= 0.12653649152724911
2007  new=sum(this%binned(:, 609 ))
2008  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.12653649152724911 , new=",new,")"
2009  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 611481 "//trim(msg))
2010  insist(this%has_gamma( 610 ).eqv..true. ," 611490 has_gamma")
2011  ref= 0.38134159373967347
2012  new=sum(this%binned(:, 610 ))
2013  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.38134159373967347 , new=",new,")"
2014  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 611490 "//trim(msg))
2015  insist(this%has_gamma( 611 ).eqv..true. ," 611500 has_gamma")
2016  ref= 0.90416439631137979
2017  new=sum(this%binned(:, 611 ))
2018  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.90416439631137979 , new=",new,")"
2019  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 611500 "//trim(msg))
2020  insist(this%has_gamma( 612 ).eqv..true. ," 611510 has_gamma")
2021  ref= 0.28534802372394646
2022  new=sum(this%binned(:, 612 ))
2023  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.28534802372394646 , new=",new,")"
2024  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 611510 "//trim(msg))
2025  insist(this%has_gamma( 613 ).eqv..false.," 611520 has_gamma")
2026  insist(sum(this%binned(:, 613 ))== 0.0000000000000000 ," 611520 has zero counts if not has_gamma")
2027  insist(this%has_gamma( 614 ).eqv..false.," 621440 has_gamma")
2028  insist(sum(this%binned(:, 614 ))== 0.0000000000000000 ," 621440 has zero counts if not has_gamma")
2029  insist(this%has_gamma( 615 ).eqv..false.," 621450 has_gamma")
2030  insist(sum(this%binned(:, 615 ))== 0.0000000000000000 ," 621450 has zero counts if not has_gamma")
2031  insist(this%has_gamma( 616 ).eqv..false.," 621460 has_gamma")
2032  insist(sum(this%binned(:, 616 ))== 0.0000000000000000 ," 621460 has zero counts if not has_gamma")
2033  insist(this%has_gamma( 617 ).eqv..false.," 621470 has_gamma")
2034  insist(sum(this%binned(:, 617 ))== 0.0000000000000000 ," 621470 has zero counts if not has_gamma")
2035  insist(this%has_gamma( 618 ).eqv..false.," 621480 has_gamma")
2036  insist(sum(this%binned(:, 618 ))== 0.0000000000000000 ," 621480 has zero counts if not has_gamma")
2037  insist(this%has_gamma( 619 ).eqv..false.," 621490 has_gamma")
2038  insist(sum(this%binned(:, 619 ))== 0.0000000000000000 ," 621490 has zero counts if not has_gamma")
2039  insist(this%has_gamma( 620 ).eqv..false.," 621500 has_gamma")
2040  insist(sum(this%binned(:, 620 ))== 0.0000000000000000 ," 621500 has zero counts if not has_gamma")
2041  insist(this%has_gamma( 621 ).eqv..true. ," 621510 has_gamma")
2042  ref= 8.5480743712219379e-003
2043  new=sum(this%binned(:, 621 ))
2044  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.5480743712219379E-003 , new=",new,")"
2045  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 621510 "//trim(msg))
2046  insist(this%has_gamma( 622 ).eqv..false.," 621520 has_gamma")
2047  insist(sum(this%binned(:, 622 ))== 0.0000000000000000 ," 621520 has zero counts if not has_gamma")
2048  insist(this%has_gamma( 623 ).eqv..true. ," 621530 has_gamma")
2049  ref= 0.21990841593176749
2050  new=sum(this%binned(:, 623 ))
2051  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.21990841593176749 , new=",new,")"
2052  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 621530 "//trim(msg))
2053  insist(this%has_gamma( 624 ).eqv..false.," 621540 has_gamma")
2054  insist(sum(this%binned(:, 624 ))== 0.0000000000000000 ," 621540 has zero counts if not has_gamma")
2055  insist(this%has_gamma( 625 ).eqv..true. ," 621550 has_gamma")
2056  ref= 0.61408630543853560
2057  new=sum(this%binned(:, 625 ))
2058  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.61408630543853560 , new=",new,")"
2059  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 621550 "//trim(msg))
2060  insist(this%has_gamma( 626 ).eqv..false.," 631450 has_gamma")
2061  insist(sum(this%binned(:, 626 ))== 0.0000000000000000 ," 631450 has zero counts if not has_gamma")
2062  insist(this%has_gamma( 627 ).eqv..false.," 631460 has_gamma")
2063  insist(sum(this%binned(:, 627 ))== 0.0000000000000000 ," 631460 has zero counts if not has_gamma")
2064  insist(this%has_gamma( 628 ).eqv..false.," 631470 has_gamma")
2065  insist(sum(this%binned(:, 628 ))== 0.0000000000000000 ," 631470 has zero counts if not has_gamma")
2066  insist(this%has_gamma( 629 ).eqv..false.," 631480 has_gamma")
2067  insist(sum(this%binned(:, 629 ))== 0.0000000000000000 ," 631480 has zero counts if not has_gamma")
2068  insist(this%has_gamma( 630 ).eqv..false.," 631490 has_gamma")
2069  insist(sum(this%binned(:, 630 ))== 0.0000000000000000 ," 631490 has zero counts if not has_gamma")
2070  insist(this%has_gamma( 631 ).eqv..false.," 631500 has_gamma")
2071  insist(sum(this%binned(:, 631 ))== 0.0000000000000000 ," 631500 has zero counts if not has_gamma")
2072  insist(this%has_gamma( 632 ).eqv..false.," 631501 has_gamma")
2073  insist(sum(this%binned(:, 632 ))== 0.0000000000000000 ," 631501 has zero counts if not has_gamma")
2074  insist(this%has_gamma( 633 ).eqv..false.," 631510 has_gamma")
2075  insist(sum(this%binned(:, 633 ))== 0.0000000000000000 ," 631510 has zero counts if not has_gamma")
2076  insist(this%has_gamma( 634 ).eqv..true. ," 631520 has_gamma")
2077  ref= 2.4607505074389455e-002
2078  new=sum(this%binned(:, 634 ))
2079  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.4607505074389455E-002 , new=",new,")"
2080  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 631520 "//trim(msg))
2081  insist(this%has_gamma( 635 ).eqv..true. ," 631521 has_gamma")
2082  ref= 0.40900613295608057
2083  new=sum(this%binned(:, 635 ))
2084  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.40900613295608057 , new=",new,")"
2085  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 631521 "//trim(msg))
2086  insist(this%has_gamma( 636 ).eqv..false.," 631530 has_gamma")
2087  insist(sum(this%binned(:, 636 ))== 0.0000000000000000 ," 631530 has zero counts if not has_gamma")
2088  insist(this%has_gamma( 637 ).eqv..true. ," 631540 has_gamma")
2089  ref= 0.23601550649829009
2090  new=sum(this%binned(:, 637 ))
2091  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.23601550649829009 , new=",new,")"
2092  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 631540 "//trim(msg))
2093  insist(this%has_gamma( 638 ).eqv..true. ," 631550 has_gamma")
2094  ref= 3.0158225960669194e-002
2095  new=sum(this%binned(:, 638 ))
2096  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.0158225960669194E-002 , new=",new,")"
2097  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 631550 "//trim(msg))
2098  insist(this%has_gamma( 639 ).eqv..true. ," 631560 has_gamma")
2099  ref= 0.43135526533026802
2100  new=sum(this%binned(:, 639 ))
2101  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.43135526533026802 , new=",new,")"
2102  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 631560 "//trim(msg))
2103  insist(this%has_gamma( 640 ).eqv..true. ," 631570 has_gamma")
2104  ref= 0.38807598956565947
2105  new=sum(this%binned(:, 640 ))
2106  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.38807598956565947 , new=",new,")"
2107  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 631570 "//trim(msg))
2108  insist(this%has_gamma( 641 ).eqv..false.," 641460 has_gamma")
2109  insist(sum(this%binned(:, 641 ))== 0.0000000000000000 ," 641460 has zero counts if not has_gamma")
2110  insist(this%has_gamma( 642 ).eqv..false.," 641470 has_gamma")
2111  insist(sum(this%binned(:, 642 ))== 0.0000000000000000 ," 641470 has zero counts if not has_gamma")
2112  insist(this%has_gamma( 643 ).eqv..false.," 641480 has_gamma")
2113  insist(sum(this%binned(:, 643 ))== 0.0000000000000000 ," 641480 has zero counts if not has_gamma")
2114  insist(this%has_gamma( 644 ).eqv..false.," 641490 has_gamma")
2115  insist(sum(this%binned(:, 644 ))== 0.0000000000000000 ," 641490 has zero counts if not has_gamma")
2116  insist(this%has_gamma( 645 ).eqv..false.," 641500 has_gamma")
2117  insist(sum(this%binned(:, 645 ))== 0.0000000000000000 ," 641500 has zero counts if not has_gamma")
2118  insist(this%has_gamma( 646 ).eqv..false.," 641510 has_gamma")
2119  insist(sum(this%binned(:, 646 ))== 0.0000000000000000 ," 641510 has zero counts if not has_gamma")
2120  insist(this%has_gamma( 647 ).eqv..false.," 641520 has_gamma")
2121  insist(sum(this%binned(:, 647 ))== 0.0000000000000000 ," 641520 has zero counts if not has_gamma")
2122  insist(this%has_gamma( 648 ).eqv..false.," 641530 has_gamma")
2123  insist(sum(this%binned(:, 648 ))== 0.0000000000000000 ," 641530 has zero counts if not has_gamma")
2124  insist(this%has_gamma( 649 ).eqv..false.," 641540 has_gamma")
2125  insist(sum(this%binned(:, 649 ))== 0.0000000000000000 ," 641540 has zero counts if not has_gamma")
2126  insist(this%has_gamma( 650 ).eqv..false.," 641551 has_gamma")
2127  insist(sum(this%binned(:, 650 ))== 0.0000000000000000 ," 641551 has zero counts if not has_gamma")
2128  insist(this%has_gamma( 651 ).eqv..false.," 641550 has_gamma")
2129  insist(sum(this%binned(:, 651 ))== 0.0000000000000000 ," 641550 has zero counts if not has_gamma")
2130  insist(this%has_gamma( 652 ).eqv..false.," 641560 has_gamma")
2131  insist(sum(this%binned(:, 652 ))== 0.0000000000000000 ," 641560 has zero counts if not has_gamma")
2132  insist(this%has_gamma( 653 ).eqv..false.," 641570 has_gamma")
2133  insist(sum(this%binned(:, 653 ))== 0.0000000000000000 ," 641570 has zero counts if not has_gamma")
2134  insist(this%has_gamma( 654 ).eqv..false.," 641580 has_gamma")
2135  insist(sum(this%binned(:, 654 ))== 0.0000000000000000 ," 641580 has zero counts if not has_gamma")
2136  insist(this%has_gamma( 655 ).eqv..true. ," 641590 has_gamma")
2137  ref= 0.29955126869737125
2138  new=sum(this%binned(:, 655 ))
2139  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.29955126869737125 , new=",new,")"
2140  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 641590 "//trim(msg))
2141  insist(this%has_gamma( 656 ).eqv..false.," 641600 has_gamma")
2142  insist(sum(this%binned(:, 656 ))== 0.0000000000000000 ," 641600 has zero counts if not has_gamma")
2143  insist(this%has_gamma( 657 ).eqv..true. ," 641610 has_gamma")
2144  ref= 0.62205631423809715
2145  new=sum(this%binned(:, 657 ))
2146  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.62205631423809715 , new=",new,")"
2147  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 641610 "//trim(msg))
2148  insist(this%has_gamma( 658 ).eqv..true. ," 641620 has_gamma")
2149  ref= 0.33008241509130104
2150  new=sum(this%binned(:, 658 ))
2151  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.33008241509130104 , new=",new,")"
2152  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 641620 "//trim(msg))
2153  insist(this%has_gamma( 659 ).eqv..false.," 651520 has_gamma")
2154  insist(sum(this%binned(:, 659 ))== 0.0000000000000000 ," 651520 has zero counts if not has_gamma")
2155  insist(this%has_gamma( 660 ).eqv..false.," 651530 has_gamma")
2156  insist(sum(this%binned(:, 660 ))== 0.0000000000000000 ," 651530 has zero counts if not has_gamma")
2157  insist(this%has_gamma( 661 ).eqv..false.," 651540 has_gamma")
2158  insist(sum(this%binned(:, 661 ))== 0.0000000000000000 ," 651540 has zero counts if not has_gamma")
2159  insist(this%has_gamma( 662 ).eqv..false.," 651541 has_gamma")
2160  insist(sum(this%binned(:, 662 ))== 0.0000000000000000 ," 651541 has zero counts if not has_gamma")
2161  insist(this%has_gamma( 663 ).eqv..false.," 651550 has_gamma")
2162  insist(sum(this%binned(:, 663 ))== 0.0000000000000000 ," 651550 has zero counts if not has_gamma")
2163  insist(this%has_gamma( 664 ).eqv..false.," 651560 has_gamma")
2164  insist(sum(this%binned(:, 664 ))== 0.0000000000000000 ," 651560 has zero counts if not has_gamma")
2165  insist(this%has_gamma( 665 ).eqv..false.," 651561 has_gamma")
2166  insist(sum(this%binned(:, 665 ))== 0.0000000000000000 ," 651561 has zero counts if not has_gamma")
2167  insist(this%has_gamma( 666 ).eqv..false.," 651570 has_gamma")
2168  insist(sum(this%binned(:, 666 ))== 0.0000000000000000 ," 651570 has zero counts if not has_gamma")
2169  insist(this%has_gamma( 667 ).eqv..false.," 651580 has_gamma")
2170  insist(sum(this%binned(:, 667 ))== 0.0000000000000000 ," 651580 has zero counts if not has_gamma")
2171  insist(this%has_gamma( 668 ).eqv..false.," 651590 has_gamma")
2172  insist(sum(this%binned(:, 668 ))== 0.0000000000000000 ," 651590 has zero counts if not has_gamma")
2173  insist(this%has_gamma( 669 ).eqv..true. ," 651600 has_gamma")
2174  ref= 0.19677743286810334
2175  new=sum(this%binned(:, 669 ))
2176  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.19677743286810334 , new=",new,")"
2177  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 651600 "//trim(msg))
2178  insist(this%has_gamma( 670 ).eqv..true. ," 651610 has_gamma")
2179  ref= 0.13716866353510065
2180  new=sum(this%binned(:, 670 ))
2181  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.13716866353510065 , new=",new,")"
2182  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 651610 "//trim(msg))
2183  insist(this%has_gamma( 671 ).eqv..true. ," 651620 has_gamma")
2184  ref= 0.49386870265293037
2185  new=sum(this%binned(:, 671 ))
2186  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.49386870265293037 , new=",new,")"
2187  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 651620 "//trim(msg))
2188  insist(this%has_gamma( 672 ).eqv..false.," 661540 has_gamma")
2189  insist(sum(this%binned(:, 672 ))== 0.0000000000000000 ," 661540 has zero counts if not has_gamma")
2190  insist(this%has_gamma( 673 ).eqv..false.," 661550 has_gamma")
2191  insist(sum(this%binned(:, 673 ))== 0.0000000000000000 ," 661550 has zero counts if not has_gamma")
2192  insist(this%has_gamma( 674 ).eqv..false.," 661560 has_gamma")
2193  insist(sum(this%binned(:, 674 ))== 0.0000000000000000 ," 661560 has zero counts if not has_gamma")
2194  insist(this%has_gamma( 675 ).eqv..false.," 661570 has_gamma")
2195  insist(sum(this%binned(:, 675 ))== 0.0000000000000000 ," 661570 has zero counts if not has_gamma")
2196  insist(this%has_gamma( 676 ).eqv..false.," 661580 has_gamma")
2197  insist(sum(this%binned(:, 676 ))== 0.0000000000000000 ," 661580 has zero counts if not has_gamma")
2198  insist(this%has_gamma( 677 ).eqv..false.," 661590 has_gamma")
2199  insist(sum(this%binned(:, 677 ))== 0.0000000000000000 ," 661590 has zero counts if not has_gamma")
2200  insist(this%has_gamma( 678 ).eqv..false.," 661600 has_gamma")
2201  insist(sum(this%binned(:, 678 ))== 0.0000000000000000 ," 661600 has zero counts if not has_gamma")
2202  insist(this%has_gamma( 679 ).eqv..false.," 661610 has_gamma")
2203  insist(sum(this%binned(:, 679 ))== 0.0000000000000000 ," 661610 has zero counts if not has_gamma")
2204  insist(this%has_gamma( 680 ).eqv..false.," 661620 has_gamma")
2205  insist(sum(this%binned(:, 680 ))== 0.0000000000000000 ," 661620 has zero counts if not has_gamma")
2206  insist(this%has_gamma( 681 ).eqv..false.," 661630 has_gamma")
2207  insist(sum(this%binned(:, 681 ))== 0.0000000000000000 ," 661630 has zero counts if not has_gamma")
2208  insist(this%has_gamma( 682 ).eqv..false.," 661640 has_gamma")
2209  insist(sum(this%binned(:, 682 ))== 0.0000000000000000 ," 661640 has zero counts if not has_gamma")
2210  insist(this%has_gamma( 683 ).eqv..true. ," 661650 has_gamma")
2211  ref= 0.47595028997703481
2212  new=sum(this%binned(:, 683 ))
2213  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.47595028997703481 , new=",new,")"
2214  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 661650 "//trim(msg))
2215  insist(this%has_gamma( 684 ).eqv..true. ," 661651 has_gamma")
2216  ref= 1.5781428807830995e-004
2217  new=sum(this%binned(:, 684 ))
2218  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.5781428807830995E-004 , new=",new,")"
2219  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 661651 "//trim(msg))
2220  insist(this%has_gamma( 685 ).eqv..true. ," 661660 has_gamma")
2221  ref= 9.8151209522421748e-002
2222  new=sum(this%binned(:, 685 ))
2223  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 9.8151209522421748E-002 , new=",new,")"
2224  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 661660 "//trim(msg))
2225  insist(this%has_gamma( 686 ).eqv..false.," 671600 has_gamma")
2226  insist(sum(this%binned(:, 686 ))== 0.0000000000000000 ," 671600 has zero counts if not has_gamma")
2227  insist(this%has_gamma( 687 ).eqv..false.," 671601 has_gamma")
2228  insist(sum(this%binned(:, 687 ))== 0.0000000000000000 ," 671601 has zero counts if not has_gamma")
2229  insist(this%has_gamma( 688 ).eqv..false.," 671610 has_gamma")
2230  insist(sum(this%binned(:, 688 ))== 0.0000000000000000 ," 671610 has zero counts if not has_gamma")
2231  insist(this%has_gamma( 689 ).eqv..false.," 671630 has_gamma")
2232  insist(sum(this%binned(:, 689 ))== 0.0000000000000000 ," 671630 has zero counts if not has_gamma")
2233  insist(this%has_gamma( 690 ).eqv..false.," 671631 has_gamma")
2234  insist(sum(this%binned(:, 690 ))== 0.0000000000000000 ," 671631 has zero counts if not has_gamma")
2235  insist(this%has_gamma( 691 ).eqv..false.," 671640 has_gamma")
2236  insist(sum(this%binned(:, 691 ))== 0.0000000000000000 ," 671640 has zero counts if not has_gamma")
2237  insist(this%has_gamma( 692 ).eqv..false.," 671641 has_gamma")
2238  insist(sum(this%binned(:, 692 ))== 0.0000000000000000 ," 671641 has zero counts if not has_gamma")
2239  insist(this%has_gamma( 693 ).eqv..false.," 671650 has_gamma")
2240  insist(sum(this%binned(:, 693 ))== 0.0000000000000000 ," 671650 has zero counts if not has_gamma")
2241  insist(this%has_gamma( 694 ).eqv..true. ," 671660 has_gamma")
2242  ref= 0.76381537700397173
2243  new=sum(this%binned(:, 694 ))
2244  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.76381537700397173 , new=",new,")"
2245  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 671660 "//trim(msg))
2246  insist(this%has_gamma( 695 ).eqv..true. ," 671661 has_gamma")
2247  ref= 6.9905578106101993e-003
2248  new=sum(this%binned(:, 695 ))
2249  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.9905578106101993E-003 , new=",new,")"
2250  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 671661 "//trim(msg))
2251  insist(this%has_gamma( 696 ).eqv..false.," 681600 has_gamma")
2252  insist(sum(this%binned(:, 696 ))== 0.0000000000000000 ," 681600 has zero counts if not has_gamma")
2253  insist(this%has_gamma( 697 ).eqv..false.," 681610 has_gamma")
2254  insist(sum(this%binned(:, 697 ))== 0.0000000000000000 ," 681610 has zero counts if not has_gamma")
2255  insist(this%has_gamma( 698 ).eqv..false.," 681620 has_gamma")
2256  insist(sum(this%binned(:, 698 ))== 0.0000000000000000 ," 681620 has zero counts if not has_gamma")
2257  insist(this%has_gamma( 699 ).eqv..false.," 681630 has_gamma")
2258  insist(sum(this%binned(:, 699 ))== 0.0000000000000000 ," 681630 has zero counts if not has_gamma")
2259  insist(this%has_gamma( 700 ).eqv..false.," 681640 has_gamma")
2260  insist(sum(this%binned(:, 700 ))== 0.0000000000000000 ," 681640 has zero counts if not has_gamma")
2261  insist(this%has_gamma( 701 ).eqv..false.," 681650 has_gamma")
2262  insist(sum(this%binned(:, 701 ))== 0.0000000000000000 ," 681650 has zero counts if not has_gamma")
2263  insist(this%has_gamma( 702 ).eqv..false.," 681660 has_gamma")
2264  insist(sum(this%binned(:, 702 ))== 0.0000000000000000 ," 681660 has zero counts if not has_gamma")
2265  insist(this%has_gamma( 703 ).eqv..false.," 681670 has_gamma")
2266  insist(sum(this%binned(:, 703 ))== 0.0000000000000000 ," 681670 has zero counts if not has_gamma")
2267  insist(this%has_gamma( 704 ).eqv..false.," 681671 has_gamma")
2268  insist(sum(this%binned(:, 704 ))== 0.0000000000000000 ," 681671 has zero counts if not has_gamma")
2269  insist(this%has_gamma( 705 ).eqv..false.," 681680 has_gamma")
2270  insist(sum(this%binned(:, 705 ))== 0.0000000000000000 ," 681680 has zero counts if not has_gamma")
2271  insist(this%has_gamma( 706 ).eqv..true. ," 681690 has_gamma")
2272  ref= 8.2603648633007620e-002
2273  new=sum(this%binned(:, 706 ))
2274  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.2603648633007620E-002 , new=",new,")"
2275  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 681690 "//trim(msg))
2276  insist(this%has_gamma( 707 ).eqv..false.," 681700 has_gamma")
2277  insist(sum(this%binned(:, 707 ))== 0.0000000000000000 ," 681700 has zero counts if not has_gamma")
2278  insist(this%has_gamma( 708 ).eqv..true. ," 681710 has_gamma")
2279  ref= 0.38508704871806548
2280  new=sum(this%binned(:, 708 ))
2281  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.38508704871806548 , new=",new,")"
2282  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 681710 "//trim(msg))
2283  insist(this%has_gamma( 709 ).eqv..true. ," 681720 has_gamma")
2284  ref= 7.9573185132163951e-002
2285  new=sum(this%binned(:, 709 ))
2286  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 7.9573185132163951E-002 , new=",new,")"
2287  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 681720 "//trim(msg))
2288  insist(this%has_gamma( 710 ).eqv..false.," 691650 has_gamma")
2289  insist(sum(this%binned(:, 710 ))== 0.0000000000000000 ," 691650 has zero counts if not has_gamma")
2290  insist(this%has_gamma( 711 ).eqv..false.," 691660 has_gamma")
2291  insist(sum(this%binned(:, 711 ))== 0.0000000000000000 ," 691660 has zero counts if not has_gamma")
2292  insist(this%has_gamma( 712 ).eqv..false.," 691670 has_gamma")
2293  insist(sum(this%binned(:, 712 ))== 0.0000000000000000 ," 691670 has zero counts if not has_gamma")
2294  insist(this%has_gamma( 713 ).eqv..false.," 691680 has_gamma")
2295  insist(sum(this%binned(:, 713 ))== 0.0000000000000000 ," 691680 has zero counts if not has_gamma")
2296  insist(this%has_gamma( 714 ).eqv..false.," 691690 has_gamma")
2297  insist(sum(this%binned(:, 714 ))== 0.0000000000000000 ," 691690 has zero counts if not has_gamma")
2298  insist(this%has_gamma( 715 ).eqv..true. ," 691700 has_gamma")
2299  ref= 0.32198517535952448
2300  new=sum(this%binned(:, 715 ))
2301  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.32198517535952448 , new=",new,")"
2302  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 691700 "//trim(msg))
2303  insist(this%has_gamma( 716 ).eqv..true. ," 691710 has_gamma")
2304  ref= 1.2421613035298590e-002
2305  new=sum(this%binned(:, 716 ))
2306  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2421613035298590E-002 , new=",new,")"
2307  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 691710 "//trim(msg))
2308  insist(this%has_gamma( 717 ).eqv..true. ," 691720 has_gamma")
2309  ref= 0.54836751755446267
2310  new=sum(this%binned(:, 717 ))
2311  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.54836751755446267 , new=",new,")"
2312  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 691720 "//trim(msg))
2313  insist(this%has_gamma( 718 ).eqv..true. ," 691730 has_gamma")
2314  ref= 0.30832883353377594
2315  new=sum(this%binned(:, 718 ))
2316  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.30832883353377594 , new=",new,")"
2317  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 691730 "//trim(msg))
2318  insist(this%has_gamma( 719 ).eqv..false.," 701660 has_gamma")
2319  insist(sum(this%binned(:, 719 ))== 0.0000000000000000 ," 701660 has zero counts if not has_gamma")
2320  insist(this%has_gamma( 720 ).eqv..false.," 701670 has_gamma")
2321  insist(sum(this%binned(:, 720 ))== 0.0000000000000000 ," 701670 has zero counts if not has_gamma")
2322  insist(this%has_gamma( 721 ).eqv..false.," 701680 has_gamma")
2323  insist(sum(this%binned(:, 721 ))== 0.0000000000000000 ," 701680 has zero counts if not has_gamma")
2324  insist(this%has_gamma( 722 ).eqv..false.," 701690 has_gamma")
2325  insist(sum(this%binned(:, 722 ))== 0.0000000000000000 ," 701690 has zero counts if not has_gamma")
2326  insist(this%has_gamma( 723 ).eqv..false.," 701700 has_gamma")
2327  insist(sum(this%binned(:, 723 ))== 0.0000000000000000 ," 701700 has zero counts if not has_gamma")
2328  insist(this%has_gamma( 724 ).eqv..false.," 701710 has_gamma")
2329  insist(sum(this%binned(:, 724 ))== 0.0000000000000000 ," 701710 has zero counts if not has_gamma")
2330  insist(this%has_gamma( 725 ).eqv..false.," 701720 has_gamma")
2331  insist(sum(this%binned(:, 725 ))== 0.0000000000000000 ," 701720 has zero counts if not has_gamma")
2332  insist(this%has_gamma( 726 ).eqv..false.," 701730 has_gamma")
2333  insist(sum(this%binned(:, 726 ))== 0.0000000000000000 ," 701730 has zero counts if not has_gamma")
2334  insist(this%has_gamma( 727 ).eqv..false.," 701740 has_gamma")
2335  insist(sum(this%binned(:, 727 ))== 0.0000000000000000 ," 701740 has zero counts if not has_gamma")
2336  insist(this%has_gamma( 728 ).eqv..true. ," 701750 has_gamma")
2337  ref= 0.11027029078394435
2338  new=sum(this%binned(:, 728 ))
2339  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.11027029078394435 , new=",new,")"
2340  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 701750 "//trim(msg))
2341  insist(this%has_gamma( 729 ).eqv..false.," 701751 has_gamma")
2342  insist(sum(this%binned(:, 729 ))== 0.0000000000000000 ," 701751 has zero counts if not has_gamma")
2343  insist(this%has_gamma( 730 ).eqv..false.," 701760 has_gamma")
2344  insist(sum(this%binned(:, 730 ))== 0.0000000000000000 ," 701760 has zero counts if not has_gamma")
2345  insist(this%has_gamma( 731 ).eqv..true. ," 701770 has_gamma")
2346  ref= 0.45213056628767700
2347  new=sum(this%binned(:, 731 ))
2348  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.45213056628767700 , new=",new,")"
2349  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 701770 "//trim(msg))
2350  insist(this%has_gamma( 732 ).eqv..false.," 711690 has_gamma")
2351  insist(sum(this%binned(:, 732 ))== 0.0000000000000000 ," 711690 has zero counts if not has_gamma")
2352  insist(this%has_gamma( 733 ).eqv..false.," 711700 has_gamma")
2353  insist(sum(this%binned(:, 733 ))== 0.0000000000000000 ," 711700 has zero counts if not has_gamma")
2354  insist(this%has_gamma( 734 ).eqv..false.," 711710 has_gamma")
2355  insist(sum(this%binned(:, 734 ))== 0.0000000000000000 ," 711710 has zero counts if not has_gamma")
2356  insist(this%has_gamma( 735 ).eqv..false.," 711720 has_gamma")
2357  insist(sum(this%binned(:, 735 ))== 0.0000000000000000 ," 711720 has zero counts if not has_gamma")
2358  insist(this%has_gamma( 736 ).eqv..false.," 711721 has_gamma")
2359  insist(sum(this%binned(:, 736 ))== 0.0000000000000000 ," 711721 has zero counts if not has_gamma")
2360  insist(this%has_gamma( 737 ).eqv..false.," 711730 has_gamma")
2361  insist(sum(this%binned(:, 737 ))== 0.0000000000000000 ," 711730 has zero counts if not has_gamma")
2362  insist(this%has_gamma( 738 ).eqv..false.," 711740 has_gamma")
2363  insist(sum(this%binned(:, 738 ))== 0.0000000000000000 ," 711740 has zero counts if not has_gamma")
2364  insist(this%has_gamma( 739 ).eqv..false.," 711741 has_gamma")
2365  insist(sum(this%binned(:, 739 ))== 0.0000000000000000 ," 711741 has zero counts if not has_gamma")
2366  insist(this%has_gamma( 740 ).eqv..false.," 711750 has_gamma")
2367  insist(sum(this%binned(:, 740 ))== 0.0000000000000000 ," 711750 has zero counts if not has_gamma")
2368  insist(this%has_gamma( 741 ).eqv..true. ," 711760 has_gamma")
2369  ref= 0.16774423530656077
2370  new=sum(this%binned(:, 741 ))
2371  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.16774423530656077 , new=",new,")"
2372  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 711760 "//trim(msg))
2373  insist(this%has_gamma( 742 ).eqv..true. ," 711761 has_gamma")
2374  ref= 0.46985723134678636
2375  new=sum(this%binned(:, 742 ))
2376  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.46985723134678636 , new=",new,")"
2377  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 711761 "//trim(msg))
2378  insist(this%has_gamma( 743 ).eqv..true. ," 711770 has_gamma")
2379  ref= 0.11788118328851648
2380  new=sum(this%binned(:, 743 ))
2381  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.11788118328851648 , new=",new,")"
2382  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 711770 "//trim(msg))
2383  insist(this%has_gamma( 744 ).eqv..true. ," 711771 has_gamma")
2384  ref= 0.25134608291358329
2385  new=sum(this%binned(:, 744 ))
2386  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.25134608291358329 , new=",new,")"
2387  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 711771 "//trim(msg))
2388  insist(this%has_gamma( 745 ).eqv..false.," 721700 has_gamma")
2389  insist(sum(this%binned(:, 745 ))== 0.0000000000000000 ," 721700 has zero counts if not has_gamma")
2390  insist(this%has_gamma( 746 ).eqv..false.," 721710 has_gamma")
2391  insist(sum(this%binned(:, 746 ))== 0.0000000000000000 ," 721710 has zero counts if not has_gamma")
2392  insist(this%has_gamma( 747 ).eqv..false.," 721720 has_gamma")
2393  insist(sum(this%binned(:, 747 ))== 0.0000000000000000 ," 721720 has zero counts if not has_gamma")
2394  insist(this%has_gamma( 748 ).eqv..false.," 721730 has_gamma")
2395  insist(sum(this%binned(:, 748 ))== 0.0000000000000000 ," 721730 has zero counts if not has_gamma")
2396  insist(this%has_gamma( 749 ).eqv..false.," 721740 has_gamma")
2397  insist(sum(this%binned(:, 749 ))== 0.0000000000000000 ," 721740 has zero counts if not has_gamma")
2398  insist(this%has_gamma( 750 ).eqv..false.," 721750 has_gamma")
2399  insist(sum(this%binned(:, 750 ))== 0.0000000000000000 ," 721750 has zero counts if not has_gamma")
2400  insist(this%has_gamma( 751 ).eqv..false.," 721760 has_gamma")
2401  insist(sum(this%binned(:, 751 ))== 0.0000000000000000 ," 721760 has zero counts if not has_gamma")
2402  insist(this%has_gamma( 752 ).eqv..false.," 721770 has_gamma")
2403  insist(sum(this%binned(:, 752 ))== 0.0000000000000000 ," 721770 has zero counts if not has_gamma")
2404  insist(this%has_gamma( 753 ).eqv..false.," 721771 has_gamma")
2405  insist(sum(this%binned(:, 753 ))== 0.0000000000000000 ," 721771 has zero counts if not has_gamma")
2406  insist(this%has_gamma( 754 ).eqv..false.," 721780 has_gamma")
2407  insist(sum(this%binned(:, 754 ))== 0.0000000000000000 ," 721780 has zero counts if not has_gamma")
2408  insist(this%has_gamma( 755 ).eqv..false.," 721781 has_gamma")
2409  insist(sum(this%binned(:, 755 ))== 0.0000000000000000 ," 721781 has zero counts if not has_gamma")
2410  insist(this%has_gamma( 756 ).eqv..false.," 721790 has_gamma")
2411  insist(sum(this%binned(:, 756 ))== 0.0000000000000000 ," 721790 has zero counts if not has_gamma")
2412  insist(this%has_gamma( 757 ).eqv..false.," 721791 has_gamma")
2413  insist(sum(this%binned(:, 757 ))== 0.0000000000000000 ," 721791 has zero counts if not has_gamma")
2414  insist(this%has_gamma( 758 ).eqv..false.," 721800 has_gamma")
2415  insist(sum(this%binned(:, 758 ))== 0.0000000000000000 ," 721800 has zero counts if not has_gamma")
2416  insist(this%has_gamma( 759 ).eqv..false.," 721801 has_gamma")
2417  insist(sum(this%binned(:, 759 ))== 0.0000000000000000 ," 721801 has zero counts if not has_gamma")
2418  insist(this%has_gamma( 760 ).eqv..true. ," 721810 has_gamma")
2419  ref= 0.10216851044242503
2420  new=sum(this%binned(:, 760 ))
2421  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.10216851044242503 , new=",new,")"
2422  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 721810 "//trim(msg))
2423  insist(this%has_gamma( 761 ).eqv..true. ," 721820 has_gamma")
2424  ref= 3.2873713067093753e-002
2425  new=sum(this%binned(:, 761 ))
2426  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.2873713067093753E-002 , new=",new,")"
2427  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 721820 "//trim(msg))
2428  insist(this%has_gamma( 762 ).eqv..false.," 731770 has_gamma")
2429  insist(sum(this%binned(:, 762 ))== 0.0000000000000000 ," 731770 has zero counts if not has_gamma")
2430  insist(this%has_gamma( 763 ).eqv..false.," 731780 has_gamma")
2431  insist(sum(this%binned(:, 763 ))== 0.0000000000000000 ," 731780 has zero counts if not has_gamma")
2432  insist(this%has_gamma( 764 ).eqv..false.," 731790 has_gamma")
2433  insist(sum(this%binned(:, 764 ))== 0.0000000000000000 ," 731790 has zero counts if not has_gamma")
2434  insist(this%has_gamma( 765 ).eqv..false.," 731801 has_gamma")
2435  insist(sum(this%binned(:, 765 ))== 0.0000000000000000 ," 731801 has zero counts if not has_gamma")
2436  insist(this%has_gamma( 766 ).eqv..false.," 731800 has_gamma")
2437  insist(sum(this%binned(:, 766 ))== 0.0000000000000000 ," 731800 has zero counts if not has_gamma")
2438  insist(this%has_gamma( 767 ).eqv..false.," 731810 has_gamma")
2439  insist(sum(this%binned(:, 767 ))== 0.0000000000000000 ," 731810 has zero counts if not has_gamma")
2440  insist(this%has_gamma( 768 ).eqv..true. ," 731820 has_gamma")
2441  ref= 0.11098766851437693
2442  new=sum(this%binned(:, 768 ))
2443  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.11098766851437693 , new=",new,")"
2444  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 731820 "//trim(msg))
2445  insist(this%has_gamma( 769 ).eqv..false.," 731821 has_gamma")
2446  insist(sum(this%binned(:, 769 ))== 0.0000000000000000 ," 731821 has zero counts if not has_gamma")
2447  insist(this%has_gamma( 770 ).eqv..true. ," 731830 has_gamma")
2448  ref= 0.17589090681543226
2449  new=sum(this%binned(:, 770 ))
2450  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.17589090681543226 , new=",new,")"
2451  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 731830 "//trim(msg))
2452  insist(this%has_gamma( 771 ).eqv..false.," 741780 has_gamma")
2453  insist(sum(this%binned(:, 771 ))== 0.0000000000000000 ," 741780 has zero counts if not has_gamma")
2454  insist(this%has_gamma( 772 ).eqv..false.," 741800 has_gamma")
2455  insist(sum(this%binned(:, 772 ))== 0.0000000000000000 ," 741800 has zero counts if not has_gamma")
2456  insist(this%has_gamma( 773 ).eqv..false.," 741810 has_gamma")
2457  insist(sum(this%binned(:, 773 ))== 0.0000000000000000 ," 741810 has zero counts if not has_gamma")
2458  insist(this%has_gamma( 774 ).eqv..false.," 741820 has_gamma")
2459  insist(sum(this%binned(:, 774 ))== 0.0000000000000000 ," 741820 has zero counts if not has_gamma")
2460  insist(this%has_gamma( 775 ).eqv..false.," 741831 has_gamma")
2461  insist(sum(this%binned(:, 775 ))== 0.0000000000000000 ," 741831 has zero counts if not has_gamma")
2462  insist(this%has_gamma( 776 ).eqv..false.," 741830 has_gamma")
2463  insist(sum(this%binned(:, 776 ))== 0.0000000000000000 ," 741830 has zero counts if not has_gamma")
2464  insist(this%has_gamma( 777 ).eqv..false.," 741840 has_gamma")
2465  insist(sum(this%binned(:, 777 ))== 0.0000000000000000 ," 741840 has zero counts if not has_gamma")
2466  insist(this%has_gamma( 778 ).eqv..true. ," 741850 has_gamma")
2467  ref= 0.11064296651577800
2468  new=sum(this%binned(:, 778 ))
2469  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.11064296651577800 , new=",new,")"
2470  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 741850 "//trim(msg))
2471  insist(this%has_gamma( 779 ).eqv..false.," 741851 has_gamma")
2472  insist(sum(this%binned(:, 779 ))== 0.0000000000000000 ," 741851 has zero counts if not has_gamma")
2473  insist(this%has_gamma( 780 ).eqv..false.," 741860 has_gamma")
2474  insist(sum(this%binned(:, 780 ))== 0.0000000000000000 ," 741860 has zero counts if not has_gamma")
2475  insist(this%has_gamma( 781 ).eqv..true. ," 741870 has_gamma")
2476  ref= 0.26596432951907234
2477  new=sum(this%binned(:, 781 ))
2478  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.26596432951907234 , new=",new,")"
2479  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 741870 "//trim(msg))
2480  insist(this%has_gamma( 782 ).eqv..true. ," 741880 has_gamma")
2481  ref= 8.1702264111754630e-002
2482  new=sum(this%binned(:, 782 ))
2483  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.1702264111754630E-002 , new=",new,")"
2484  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 741880 "//trim(msg))
2485  insist(this%has_gamma( 783 ).eqv..false.," 741890 has_gamma")
2486  insist(sum(this%binned(:, 783 ))== 0.0000000000000000 ," 741890 has zero counts if not has_gamma")
2487  insist(this%has_gamma( 784 ).eqv..false.," 751810 has_gamma")
2488  insist(sum(this%binned(:, 784 ))== 0.0000000000000000 ," 751810 has zero counts if not has_gamma")
2489  insist(this%has_gamma( 785 ).eqv..false.," 751820 has_gamma")
2490  insist(sum(this%binned(:, 785 ))== 0.0000000000000000 ," 751820 has zero counts if not has_gamma")
2491  insist(this%has_gamma( 786 ).eqv..false.," 751821 has_gamma")
2492  insist(sum(this%binned(:, 786 ))== 0.0000000000000000 ," 751821 has zero counts if not has_gamma")
2493  insist(this%has_gamma( 787 ).eqv..false.," 751830 has_gamma")
2494  insist(sum(this%binned(:, 787 ))== 0.0000000000000000 ," 751830 has zero counts if not has_gamma")
2495  insist(this%has_gamma( 788 ).eqv..false.," 751840 has_gamma")
2496  insist(sum(this%binned(:, 788 ))== 0.0000000000000000 ," 751840 has zero counts if not has_gamma")
2497  insist(this%has_gamma( 789 ).eqv..false.," 751841 has_gamma")
2498  insist(sum(this%binned(:, 789 ))== 0.0000000000000000 ," 751841 has zero counts if not has_gamma")
2499  insist(this%has_gamma( 790 ).eqv..false.," 751850 has_gamma")
2500  insist(sum(this%binned(:, 790 ))== 0.0000000000000000 ," 751850 has zero counts if not has_gamma")
2501  insist(this%has_gamma( 791 ).eqv..true. ," 751860 has_gamma")
2502  ref= 0.32251814027147196
2503  new=sum(this%binned(:, 791 ))
2504  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.32251814027147196 , new=",new,")"
2505  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 751860 "//trim(msg))
2506  insist(this%has_gamma( 792 ).eqv..false.," 751861 has_gamma")
2507  insist(sum(this%binned(:, 792 ))== 0.0000000000000000 ," 751861 has zero counts if not has_gamma")
2508  insist(this%has_gamma( 793 ).eqv..true. ," 751870 has_gamma")
2509  ref= 3.6429999370878735e-014
2510  new=sum(this%binned(:, 793 ))
2511  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.6429999370878735E-014 , new=",new,")"
2512  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 751870 "//trim(msg))
2513  insist(this%has_gamma( 794 ).eqv..true. ," 751880 has_gamma")
2514  ref= 0.88296889652508559
2515  new=sum(this%binned(:, 794 ))
2516  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.88296889652508559 , new=",new,")"
2517  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 751880 "//trim(msg))
2518  insist(this%has_gamma( 795 ).eqv..false.," 751881 has_gamma")
2519  insist(sum(this%binned(:, 795 ))== 0.0000000000000000 ," 751881 has zero counts if not has_gamma")
2520  insist(this%has_gamma( 796 ).eqv..true. ," 751890 has_gamma")
2521  ref= 0.38755910558928969
2522  new=sum(this%binned(:, 796 ))
2523  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.38755910558928969 , new=",new,")"
2524  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 751890 "//trim(msg))
2525  insist(this%has_gamma( 797 ).eqv..false.," 761820 has_gamma")
2526  insist(sum(this%binned(:, 797 ))== 0.0000000000000000 ," 761820 has zero counts if not has_gamma")
2527  insist(this%has_gamma( 798 ).eqv..false.," 761830 has_gamma")
2528  insist(sum(this%binned(:, 798 ))== 0.0000000000000000 ," 761830 has zero counts if not has_gamma")
2529  insist(this%has_gamma( 799 ).eqv..false.," 761840 has_gamma")
2530  insist(sum(this%binned(:, 799 ))== 0.0000000000000000 ," 761840 has zero counts if not has_gamma")
2531  insist(this%has_gamma( 800 ).eqv..false.," 761850 has_gamma")
2532  insist(sum(this%binned(:, 800 ))== 0.0000000000000000 ," 761850 has zero counts if not has_gamma")
2533  insist(this%has_gamma( 801 ).eqv..false.," 761860 has_gamma")
2534  insist(sum(this%binned(:, 801 ))== 0.0000000000000000 ," 761860 has zero counts if not has_gamma")
2535  insist(this%has_gamma( 802 ).eqv..false.," 761870 has_gamma")
2536  insist(sum(this%binned(:, 802 ))== 0.0000000000000000 ," 761870 has zero counts if not has_gamma")
2537  insist(this%has_gamma( 803 ).eqv..false.," 761880 has_gamma")
2538  insist(sum(this%binned(:, 803 ))== 0.0000000000000000 ," 761880 has zero counts if not has_gamma")
2539  insist(this%has_gamma( 804 ).eqv..false.," 761890 has_gamma")
2540  insist(sum(this%binned(:, 804 ))== 0.0000000000000000 ," 761890 has zero counts if not has_gamma")
2541  insist(this%has_gamma( 805 ).eqv..false.," 761891 has_gamma")
2542  insist(sum(this%binned(:, 805 ))== 0.0000000000000000 ," 761891 has zero counts if not has_gamma")
2543  insist(this%has_gamma( 806 ).eqv..false.," 761900 has_gamma")
2544  insist(sum(this%binned(:, 806 ))== 0.0000000000000000 ," 761900 has zero counts if not has_gamma")
2545  insist(this%has_gamma( 807 ).eqv..false.," 761901 has_gamma")
2546  insist(sum(this%binned(:, 807 ))== 0.0000000000000000 ," 761901 has zero counts if not has_gamma")
2547  insist(this%has_gamma( 808 ).eqv..true. ," 761910 has_gamma")
2548  ref= 2.2744864753734710e-002
2549  new=sum(this%binned(:, 808 ))
2550  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.2744864753734710E-002 , new=",new,")"
2551  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 761910 "//trim(msg))
2552  insist(this%has_gamma( 809 ).eqv..false.," 761911 has_gamma")
2553  insist(sum(this%binned(:, 809 ))== 0.0000000000000000 ," 761911 has zero counts if not has_gamma")
2554  insist(this%has_gamma( 810 ).eqv..false.," 761920 has_gamma")
2555  insist(sum(this%binned(:, 810 ))== 0.0000000000000000 ," 761920 has zero counts if not has_gamma")
2556  insist(this%has_gamma( 811 ).eqv..false.," 761930 has_gamma")
2557  insist(sum(this%binned(:, 811 ))== 0.0000000000000000 ," 761930 has zero counts if not has_gamma")
2558  insist(this%has_gamma( 812 ).eqv..true. ," 761940 has_gamma")
2559  ref= 1.0053409411032190e-002
2560  new=sum(this%binned(:, 812 ))
2561  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.0053409411032190E-002 , new=",new,")"
2562  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 761940 "//trim(msg))
2563  insist(this%has_gamma( 813 ).eqv..false.," 771850 has_gamma")
2564  insist(sum(this%binned(:, 813 ))== 0.0000000000000000 ," 771850 has zero counts if not has_gamma")
2565  insist(this%has_gamma( 814 ).eqv..false.," 771860 has_gamma")
2566  insist(sum(this%binned(:, 814 ))== 0.0000000000000000 ," 771860 has zero counts if not has_gamma")
2567  insist(this%has_gamma( 815 ).eqv..false.," 771880 has_gamma")
2568  insist(sum(this%binned(:, 815 ))== 0.0000000000000000 ," 771880 has zero counts if not has_gamma")
2569  insist(this%has_gamma( 816 ).eqv..false.," 771890 has_gamma")
2570  insist(sum(this%binned(:, 816 ))== 0.0000000000000000 ," 771890 has zero counts if not has_gamma")
2571  insist(this%has_gamma( 817 ).eqv..false.," 771891 has_gamma")
2572  insist(sum(this%binned(:, 817 ))== 0.0000000000000000 ," 771891 has zero counts if not has_gamma")
2573  insist(this%has_gamma( 818 ).eqv..false.," 771900 has_gamma")
2574  insist(sum(this%binned(:, 818 ))== 0.0000000000000000 ," 771900 has zero counts if not has_gamma")
2575  insist(this%has_gamma( 819 ).eqv..false.," 771910 has_gamma")
2576  insist(sum(this%binned(:, 819 ))== 0.0000000000000000 ," 771910 has zero counts if not has_gamma")
2577  insist(this%has_gamma( 820 ).eqv..false.," 771911 has_gamma")
2578  insist(sum(this%binned(:, 820 ))== 0.0000000000000000 ," 771911 has zero counts if not has_gamma")
2579  insist(this%has_gamma( 821 ).eqv..true. ," 771920 has_gamma")
2580  ref= 0.15271818383563138
2581  new=sum(this%binned(:, 821 ))
2582  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.15271818383563138 , new=",new,")"
2583  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 771920 "//trim(msg))
2584  insist(this%has_gamma( 822 ).eqv..true. ," 771921 has_gamma")
2585  ref= 8.3639700666395634e-005
2586  new=sum(this%binned(:, 822 ))
2587  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.3639700666395634E-005 , new=",new,")"
2588  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 771921 "//trim(msg))
2589  insist(this%has_gamma( 823 ).eqv..false.," 771930 has_gamma")
2590  insist(sum(this%binned(:, 823 ))== 0.0000000000000000 ," 771930 has zero counts if not has_gamma")
2591  insist(this%has_gamma( 824 ).eqv..false.," 771931 has_gamma")
2592  insist(sum(this%binned(:, 824 ))== 0.0000000000000000 ," 771931 has zero counts if not has_gamma")
2593  insist(this%has_gamma( 825 ).eqv..true. ," 771940 has_gamma")
2594  ref= 0.93501711795654774
2595  new=sum(this%binned(:, 825 ))
2596  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.93501711795654774 , new=",new,")"
2597  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 771940 "//trim(msg))
2598  insist(this%has_gamma( 826 ).eqv..true. ," 771941 has_gamma")
2599  ref= 5.2449764006308186e-002
2600  new=sum(this%binned(:, 826 ))
2601  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.2449764006308186E-002 , new=",new,")"
2602  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 771941 "//trim(msg))
2603  insist(this%has_gamma( 827 ).eqv..false.," 771960 has_gamma")
2604  insist(sum(this%binned(:, 827 ))== 0.0000000000000000 ," 771960 has zero counts if not has_gamma")
2605  insist(this%has_gamma( 828 ).eqv..false.," 771961 has_gamma")
2606  insist(sum(this%binned(:, 828 ))== 0.0000000000000000 ," 771961 has zero counts if not has_gamma")
2607  insist(this%has_gamma( 829 ).eqv..false.," 781880 has_gamma")
2608  insist(sum(this%binned(:, 829 ))== 0.0000000000000000 ," 781880 has zero counts if not has_gamma")
2609  insist(this%has_gamma( 830 ).eqv..false.," 781890 has_gamma")
2610  insist(sum(this%binned(:, 830 ))== 0.0000000000000000 ," 781890 has zero counts if not has_gamma")
2611  insist(this%has_gamma( 831 ).eqv..false.," 781900 has_gamma")
2612  insist(sum(this%binned(:, 831 ))== 0.0000000000000000 ," 781900 has zero counts if not has_gamma")
2613  insist(this%has_gamma( 832 ).eqv..false.," 781910 has_gamma")
2614  insist(sum(this%binned(:, 832 ))== 0.0000000000000000 ," 781910 has zero counts if not has_gamma")
2615  insist(this%has_gamma( 833 ).eqv..false.," 781920 has_gamma")
2616  insist(sum(this%binned(:, 833 ))== 0.0000000000000000 ," 781920 has zero counts if not has_gamma")
2617  insist(this%has_gamma( 834 ).eqv..false.," 781930 has_gamma")
2618  insist(sum(this%binned(:, 834 ))== 0.0000000000000000 ," 781930 has zero counts if not has_gamma")
2619  insist(this%has_gamma( 835 ).eqv..false.," 781931 has_gamma")
2620  insist(sum(this%binned(:, 835 ))== 0.0000000000000000 ," 781931 has zero counts if not has_gamma")
2621  insist(this%has_gamma( 836 ).eqv..false.," 781940 has_gamma")
2622  insist(sum(this%binned(:, 836 ))== 0.0000000000000000 ," 781940 has zero counts if not has_gamma")
2623  insist(this%has_gamma( 837 ).eqv..false.," 781950 has_gamma")
2624  insist(sum(this%binned(:, 837 ))== 0.0000000000000000 ," 781950 has zero counts if not has_gamma")
2625  insist(this%has_gamma( 838 ).eqv..false.," 781951 has_gamma")
2626  insist(sum(this%binned(:, 838 ))== 0.0000000000000000 ," 781951 has zero counts if not has_gamma")
2627  insist(this%has_gamma( 839 ).eqv..false.," 781960 has_gamma")
2628  insist(sum(this%binned(:, 839 ))== 0.0000000000000000 ," 781960 has zero counts if not has_gamma")
2629  insist(this%has_gamma( 840 ).eqv..true. ," 781970 has_gamma")
2630  ref= 0.18554690397005824
2631  new=sum(this%binned(:, 840 ))
2632  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.18554690397005824 , new=",new,")"
2633  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 781970 "//trim(msg))
2634  insist(this%has_gamma( 841 ).eqv..true. ," 781971 has_gamma")
2635  ref= 7.0945916320679387e-003
2636  new=sum(this%binned(:, 841 ))
2637  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 7.0945916320679387E-003 , new=",new,")"
2638  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 781971 "//trim(msg))
2639  insist(this%has_gamma( 842 ).eqv..false.," 781980 has_gamma")
2640  insist(sum(this%binned(:, 842 ))== 0.0000000000000000 ," 781980 has zero counts if not has_gamma")
2641  insist(this%has_gamma( 843 ).eqv..true. ," 781990 has_gamma")
2642  ref= 0.57670183556534194
2643  new=sum(this%binned(:, 843 ))
2644  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.57670183556534194 , new=",new,")"
2645  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 781990 "//trim(msg))
2646  insist(this%has_gamma( 844 ).eqv..false.," 781991 has_gamma")
2647  insist(sum(this%binned(:, 844 ))== 0.0000000000000000 ," 781991 has zero counts if not has_gamma")
2648  insist(this%has_gamma( 845 ).eqv..false.," 782000 has_gamma")
2649  insist(sum(this%binned(:, 845 ))== 0.0000000000000000 ," 782000 has zero counts if not has_gamma")
2650  insist(this%has_gamma( 846 ).eqv..false.," 791930 has_gamma")
2651  insist(sum(this%binned(:, 846 ))== 0.0000000000000000 ," 791930 has zero counts if not has_gamma")
2652  insist(this%has_gamma( 847 ).eqv..false.," 791940 has_gamma")
2653  insist(sum(this%binned(:, 847 ))== 0.0000000000000000 ," 791940 has zero counts if not has_gamma")
2654  insist(this%has_gamma( 848 ).eqv..false.," 791950 has_gamma")
2655  insist(sum(this%binned(:, 848 ))== 0.0000000000000000 ," 791950 has zero counts if not has_gamma")
2656  insist(this%has_gamma( 849 ).eqv..false.," 791951 has_gamma")
2657  insist(sum(this%binned(:, 849 ))== 0.0000000000000000 ," 791951 has zero counts if not has_gamma")
2658  insist(this%has_gamma( 850 ).eqv..false.," 791960 has_gamma")
2659  insist(sum(this%binned(:, 850 ))== 0.0000000000000000 ," 791960 has zero counts if not has_gamma")
2660  insist(this%has_gamma( 851 ).eqv..false.," 791970 has_gamma")
2661  insist(sum(this%binned(:, 851 ))== 0.0000000000000000 ," 791970 has zero counts if not has_gamma")
2662  insist(this%has_gamma( 852 ).eqv..false.," 791971 has_gamma")
2663  insist(sum(this%binned(:, 852 ))== 0.0000000000000000 ," 791971 has zero counts if not has_gamma")
2664  insist(this%has_gamma( 853 ).eqv..true. ," 791980 has_gamma")
2665  ref= 0.31966403609022070
2666  new=sum(this%binned(:, 853 ))
2667  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.31966403609022070 , new=",new,")"
2668  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 791980 "//trim(msg))
2669  insist(this%has_gamma( 854 ).eqv..false.," 791981 has_gamma")
2670  insist(sum(this%binned(:, 854 ))== 0.0000000000000000 ," 791981 has zero counts if not has_gamma")
2671  insist(this%has_gamma( 855 ).eqv..true. ," 791990 has_gamma")
2672  ref= 6.9247868059394008e-002
2673  new=sum(this%binned(:, 855 ))
2674  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.9247868059394008E-002 , new=",new,")"
2675  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 791990 "//trim(msg))
2676  insist(this%has_gamma( 856 ).eqv..false.," 792000 has_gamma")
2677  insist(sum(this%binned(:, 856 ))== 0.0000000000000000 ," 792000 has zero counts if not has_gamma")
2678  insist(this%has_gamma( 857 ).eqv..false.," 792001 has_gamma")
2679  insist(sum(this%binned(:, 857 ))== 0.0000000000000000 ," 792001 has zero counts if not has_gamma")
2680  insist(this%has_gamma( 858 ).eqv..false.," 801930 has_gamma")
2681  insist(sum(this%binned(:, 858 ))== 0.0000000000000000 ," 801930 has zero counts if not has_gamma")
2682  insist(this%has_gamma( 859 ).eqv..false.," 801931 has_gamma")
2683  insist(sum(this%binned(:, 859 ))== 0.0000000000000000 ," 801931 has zero counts if not has_gamma")
2684  insist(this%has_gamma( 860 ).eqv..false.," 801940 has_gamma")
2685  insist(sum(this%binned(:, 860 ))== 0.0000000000000000 ," 801940 has zero counts if not has_gamma")
2686  insist(this%has_gamma( 861 ).eqv..false.," 801950 has_gamma")
2687  insist(sum(this%binned(:, 861 ))== 0.0000000000000000 ," 801950 has zero counts if not has_gamma")
2688  insist(this%has_gamma( 862 ).eqv..false.," 801951 has_gamma")
2689  insist(sum(this%binned(:, 862 ))== 0.0000000000000000 ," 801951 has zero counts if not has_gamma")
2690  insist(this%has_gamma( 863 ).eqv..false.," 801960 has_gamma")
2691  insist(sum(this%binned(:, 863 ))== 0.0000000000000000 ," 801960 has zero counts if not has_gamma")
2692  insist(this%has_gamma( 864 ).eqv..false.," 801970 has_gamma")
2693  insist(sum(this%binned(:, 864 ))== 0.0000000000000000 ," 801970 has zero counts if not has_gamma")
2694  insist(this%has_gamma( 865 ).eqv..false.," 801971 has_gamma")
2695  insist(sum(this%binned(:, 865 ))== 0.0000000000000000 ," 801971 has zero counts if not has_gamma")
2696  insist(this%has_gamma( 866 ).eqv..false.," 801980 has_gamma")
2697  insist(sum(this%binned(:, 866 ))== 0.0000000000000000 ," 801980 has zero counts if not has_gamma")
2698  insist(this%has_gamma( 867 ).eqv..false.," 801990 has_gamma")
2699  insist(sum(this%binned(:, 867 ))== 0.0000000000000000 ," 801990 has zero counts if not has_gamma")
2700  insist(this%has_gamma( 868 ).eqv..false.," 801991 has_gamma")
2701  insist(sum(this%binned(:, 868 ))== 0.0000000000000000 ," 801991 has zero counts if not has_gamma")
2702  insist(this%has_gamma( 869 ).eqv..false.," 802000 has_gamma")
2703  insist(sum(this%binned(:, 869 ))== 0.0000000000000000 ," 802000 has zero counts if not has_gamma")
2704  insist(this%has_gamma( 870 ).eqv..false.," 802010 has_gamma")
2705  insist(sum(this%binned(:, 870 ))== 0.0000000000000000 ," 802010 has zero counts if not has_gamma")
2706  insist(this%has_gamma( 871 ).eqv..false.," 802020 has_gamma")
2707  insist(sum(this%binned(:, 871 ))== 0.0000000000000000 ," 802020 has zero counts if not has_gamma")
2708  insist(this%has_gamma( 872 ).eqv..true. ," 802030 has_gamma")
2709  ref= 4.0785911570608853e-002
2710  new=sum(this%binned(:, 872 ))
2711  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.0785911570608853E-002 , new=",new,")"
2712  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 802030 "//trim(msg))
2713  insist(this%has_gamma( 873 ).eqv..false.," 802040 has_gamma")
2714  insist(sum(this%binned(:, 873 ))== 0.0000000000000000 ," 802040 has zero counts if not has_gamma")
2715  insist(this%has_gamma( 874 ).eqv..false.," 802050 has_gamma")
2716  insist(sum(this%binned(:, 874 ))== 0.0000000000000000 ," 802050 has zero counts if not has_gamma")
2717  insist(this%has_gamma( 875 ).eqv..false.," 802060 has_gamma")
2718  insist(sum(this%binned(:, 875 ))== 0.0000000000000000 ," 802060 has zero counts if not has_gamma")
2719  insist(this%has_gamma( 876 ).eqv..false.," 812000 has_gamma")
2720  insist(sum(this%binned(:, 876 ))== 0.0000000000000000 ," 812000 has zero counts if not has_gamma")
2721  insist(this%has_gamma( 877 ).eqv..false.," 812010 has_gamma")
2722  insist(sum(this%binned(:, 877 ))== 0.0000000000000000 ," 812010 has zero counts if not has_gamma")
2723  insist(this%has_gamma( 878 ).eqv..false.," 812020 has_gamma")
2724  insist(sum(this%binned(:, 878 ))== 0.0000000000000000 ," 812020 has zero counts if not has_gamma")
2725  insist(this%has_gamma( 879 ).eqv..false.," 812030 has_gamma")
2726  insist(sum(this%binned(:, 879 ))== 0.0000000000000000 ," 812030 has zero counts if not has_gamma")
2727  insist(this%has_gamma( 880 ).eqv..false.," 812040 has_gamma")
2728  insist(sum(this%binned(:, 880 ))== 0.0000000000000000 ," 812040 has zero counts if not has_gamma")
2729  insist(this%has_gamma( 881 ).eqv..false.," 812050 has_gamma")
2730  insist(sum(this%binned(:, 881 ))== 0.0000000000000000 ," 812050 has zero counts if not has_gamma")
2731  insist(this%has_gamma( 882 ).eqv..false.," 812060 has_gamma")
2732  insist(sum(this%binned(:, 882 ))== 0.0000000000000000 ," 812060 has zero counts if not has_gamma")
2733  insist(this%has_gamma( 883 ).eqv..true. ," 812070 has_gamma")
2734  ref= 0.53874462950932056
2735  new=sum(this%binned(:, 883 ))
2736  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.53874462950932056 , new=",new,")"
2737  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 812070 "//trim(msg))
2738  insist(this%has_gamma( 884 ).eqv..false.," 822000 has_gamma")
2739  insist(sum(this%binned(:, 884 ))== 0.0000000000000000 ," 822000 has zero counts if not has_gamma")
2740  insist(this%has_gamma( 885 ).eqv..false.," 822020 has_gamma")
2741  insist(sum(this%binned(:, 885 ))== 0.0000000000000000 ," 822020 has zero counts if not has_gamma")
2742  insist(this%has_gamma( 886 ).eqv..false.," 822030 has_gamma")
2743  insist(sum(this%binned(:, 886 ))== 0.0000000000000000 ," 822030 has zero counts if not has_gamma")
2744  insist(this%has_gamma( 887 ).eqv..false.," 822040 has_gamma")
2745  insist(sum(this%binned(:, 887 ))== 0.0000000000000000 ," 822040 has zero counts if not has_gamma")
2746  insist(this%has_gamma( 888 ).eqv..false.," 822050 has_gamma")
2747  insist(sum(this%binned(:, 888 ))== 0.0000000000000000 ," 822050 has zero counts if not has_gamma")
2748  insist(this%has_gamma( 889 ).eqv..false.," 822051 has_gamma")
2749  insist(sum(this%binned(:, 889 ))== 0.0000000000000000 ," 822051 has zero counts if not has_gamma")
2750  insist(this%has_gamma( 890 ).eqv..false.," 822060 has_gamma")
2751  insist(sum(this%binned(:, 890 ))== 0.0000000000000000 ," 822060 has zero counts if not has_gamma")
2752  insist(this%has_gamma( 891 ).eqv..false.," 822070 has_gamma")
2753  insist(sum(this%binned(:, 891 ))== 0.0000000000000000 ," 822070 has zero counts if not has_gamma")
2754  insist(this%has_gamma( 892 ).eqv..false.," 822071 has_gamma")
2755  insist(sum(this%binned(:, 892 ))== 0.0000000000000000 ," 822071 has zero counts if not has_gamma")
2756  insist(this%has_gamma( 893 ).eqv..false.," 822080 has_gamma")
2757  insist(sum(this%binned(:, 893 ))== 0.0000000000000000 ," 822080 has zero counts if not has_gamma")
2758  insist(this%has_gamma( 894 ).eqv..true. ," 822090 has_gamma")
2759  ref= 0.18797484500782954
2760  new=sum(this%binned(:, 894 ))
2761  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.18797484500782954 , new=",new,")"
2762  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 822090 "//trim(msg))
2763  insist(this%has_gamma( 895 ).eqv..true. ," 822100 has_gamma")
2764  ref= 1.4747836263975245e-003
2765  new=sum(this%binned(:, 895 ))
2766  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4747836263975245E-003 , new=",new,")"
2767  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 822100 "//trim(msg))
2768  insist(this%has_gamma( 896 ).eqv..false.," 832050 has_gamma")
2769  insist(sum(this%binned(:, 896 ))== 0.0000000000000000 ," 832050 has zero counts if not has_gamma")
2770  insist(this%has_gamma( 897 ).eqv..false.," 832060 has_gamma")
2771  insist(sum(this%binned(:, 897 ))== 0.0000000000000000 ," 832060 has zero counts if not has_gamma")
2772  insist(this%has_gamma( 898 ).eqv..false.," 832070 has_gamma")
2773  insist(sum(this%binned(:, 898 ))== 0.0000000000000000 ," 832070 has zero counts if not has_gamma")
2774  insist(this%has_gamma( 899 ).eqv..false.," 832080 has_gamma")
2775  insist(sum(this%binned(:, 899 ))== 0.0000000000000000 ," 832080 has zero counts if not has_gamma")
2776  insist(this%has_gamma( 900 ).eqv..false.," 832090 has_gamma")
2777  insist(sum(this%binned(:, 900 ))== 0.0000000000000000 ," 832090 has zero counts if not has_gamma")
2778  insist(this%has_gamma( 901 ).eqv..true. ," 832100 has_gamma")
2779  ref= 0.41111443877903026
2780  new=sum(this%binned(:, 901 ))
2781  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.41111443877903026 , new=",new,")"
2782  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 832100 "//trim(msg))
2783  insist(this%has_gamma( 902 ).eqv..false.," 832101 has_gamma")
2784  insist(sum(this%binned(:, 902 ))== 0.0000000000000000 ," 832101 has zero counts if not has_gamma")
2785  insist(this%has_gamma( 903 ).eqv..true. ," 832110 has_gamma")
2786  ref= 1.2738720412561945e-006
2787  new=sum(this%binned(:, 903 ))
2788  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2738720412561945E-006 , new=",new,")"
2789  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 832110 "//trim(msg))
2790  insist(this%has_gamma( 904 ).eqv..false.," 842060 has_gamma")
2791  insist(sum(this%binned(:, 904 ))== 0.0000000000000000 ," 842060 has zero counts if not has_gamma")
2792  insist(this%has_gamma( 905 ).eqv..false.," 842070 has_gamma")
2793  insist(sum(this%binned(:, 905 ))== 0.0000000000000000 ," 842070 has zero counts if not has_gamma")
2794  insist(this%has_gamma( 906 ).eqv..false.," 842080 has_gamma")
2795  insist(sum(this%binned(:, 906 ))== 0.0000000000000000 ," 842080 has zero counts if not has_gamma")
2796  insist(this%has_gamma( 907 ).eqv..false.," 842090 has_gamma")
2797  insist(sum(this%binned(:, 907 ))== 0.0000000000000000 ," 842090 has zero counts if not has_gamma")
2798  insist(this%has_gamma( 908 ).eqv..false.," 842100 has_gamma")
2799  insist(sum(this%binned(:, 908 ))== 0.0000000000000000 ," 842100 has zero counts if not has_gamma")
2800  insist(this%has_gamma( 909 ).eqv..false.," 842110 has_gamma")
2801  insist(sum(this%binned(:, 909 ))== 0.0000000000000000 ," 842110 has zero counts if not has_gamma")
2802  insist(this%has_gamma( 910 ).eqv..false.," 842111 has_gamma")
2803  insist(sum(this%binned(:, 910 ))== 0.0000000000000000 ," 842111 has zero counts if not has_gamma")
2804  insist(this%has_gamma( 911 ).eqv..false.," 20030 has_gamma")
2805  insist(sum(this%binned(:, 911 ))== 0.0000000000000000 ," 20030 has zero counts if not has_gamma")
2806  insist(this%has_gamma( 912 ).eqv..false.," 20040 has_gamma")
2807  insist(sum(this%binned(:, 912 ))== 0.0000000000000000 ," 20040 has zero counts if not has_gamma")
2808  insist(this%has_gamma( 913 ).eqv..false.," 30060 has_gamma")
2809  insist(sum(this%binned(:, 913 ))== 0.0000000000000000 ," 30060 has zero counts if not has_gamma")
2810  insist(this%has_gamma( 914 ).eqv..false.," 30070 has_gamma")
2811  insist(sum(this%binned(:, 914 ))== 0.0000000000000000 ," 30070 has zero counts if not has_gamma")
2812  insist(this%has_gamma( 915 ).eqv..false.," 40070 has_gamma")
2813  insist(sum(this%binned(:, 915 ))== 0.0000000000000000 ," 40070 has zero counts if not has_gamma")
2814  insist(this%has_gamma( 916 ).eqv..false.," 60120 has_gamma")
2815  insist(sum(this%binned(:, 916 ))== 0.0000000000000000 ," 60120 has zero counts if not has_gamma")
2816  insist(this%has_gamma( 917 ).eqv..false.," 802060 has_gamma")
2817  insist(sum(this%binned(:, 917 ))== 0.0000000000000000 ," 802060 has zero counts if not has_gamma")
2818  insist(this%has_gamma( 918 ).eqv..false.," 812030 has_gamma")
2819  insist(sum(this%binned(:, 918 ))== 0.0000000000000000 ," 812030 has zero counts if not has_gamma")
2820  insist(this%has_gamma( 919 ).eqv..false.," 812050 has_gamma")
2821  insist(sum(this%binned(:, 919 ))== 0.0000000000000000 ," 812050 has zero counts if not has_gamma")
2822  insist(this%has_gamma( 920 ).eqv..false.," 812060 has_gamma")
2823  insist(sum(this%binned(:, 920 ))== 0.0000000000000000 ," 812060 has zero counts if not has_gamma")
2824  insist(this%has_gamma( 921 ).eqv..true. ," 812070 has_gamma")
2825  ref= 0.53874462950932056
2826  new=sum(this%binned(:, 921 ))
2827  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.53874462950932056 , new=",new,")"
2828  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 812070 "//trim(msg))
2829  insist(this%has_gamma( 922 ).eqv..true. ," 812080 has_gamma")
2830  ref= 0.62573442505910604
2831  new=sum(this%binned(:, 922 ))
2832  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.62573442505910604 , new=",new,")"
2833  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 812080 "//trim(msg))
2834  insist(this%has_gamma( 923 ).eqv..true. ," 812090 has_gamma")
2835  ref= 0.74720925750205869
2836  new=sum(this%binned(:, 923 ))
2837  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.74720925750205869 , new=",new,")"
2838  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 812090 "//trim(msg))
2839  insist(this%has_gamma( 924 ).eqv..false.," 812100 has_gamma")
2840  insist(sum(this%binned(:, 924 ))== 0.0000000000000000 ," 812100 has zero counts if not has_gamma")
2841  insist(this%has_gamma( 925 ).eqv..false.," 822030 has_gamma")
2842  insist(sum(this%binned(:, 925 ))== 0.0000000000000000 ," 822030 has zero counts if not has_gamma")
2843  insist(this%has_gamma( 926 ).eqv..false.," 822040 has_gamma")
2844  insist(sum(this%binned(:, 926 ))== 0.0000000000000000 ," 822040 has zero counts if not has_gamma")
2845  insist(this%has_gamma( 927 ).eqv..false.," 822050 has_gamma")
2846  insist(sum(this%binned(:, 927 ))== 0.0000000000000000 ," 822050 has zero counts if not has_gamma")
2847  insist(this%has_gamma( 928 ).eqv..false.," 822060 has_gamma")
2848  insist(sum(this%binned(:, 928 ))== 0.0000000000000000 ," 822060 has zero counts if not has_gamma")
2849  insist(this%has_gamma( 929 ).eqv..false.," 822070 has_gamma")
2850  insist(sum(this%binned(:, 929 ))== 0.0000000000000000 ," 822070 has zero counts if not has_gamma")
2851  insist(this%has_gamma( 930 ).eqv..false.," 822071 has_gamma")
2852  insist(sum(this%binned(:, 930 ))== 0.0000000000000000 ," 822071 has zero counts if not has_gamma")
2853  insist(this%has_gamma( 931 ).eqv..false.," 822080 has_gamma")
2854  insist(sum(this%binned(:, 931 ))== 0.0000000000000000 ," 822080 has zero counts if not has_gamma")
2855  insist(this%has_gamma( 932 ).eqv..true. ," 822090 has_gamma")
2856  ref= 0.18797484500782954
2857  new=sum(this%binned(:, 932 ))
2858  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.18797484500782954 , new=",new,")"
2859  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 822090 "//trim(msg))
2860  insist(this%has_gamma( 933 ).eqv..true. ," 822100 has_gamma")
2861  ref= 1.4747836263975245e-003
2862  new=sum(this%binned(:, 933 ))
2863  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4747836263975245E-003 , new=",new,")"
2864  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 822100 "//trim(msg))
2865  insist(this%has_gamma( 934 ).eqv..true. ," 822110 has_gamma")
2866  ref= 0.49050796820090392
2867  new=sum(this%binned(:, 934 ))
2868  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.49050796820090392 , new=",new,")"
2869  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 822110 "//trim(msg))
2870  insist(this%has_gamma( 935 ).eqv..true. ," 822120 has_gamma")
2871  ref= 8.2801822919428225e-002
2872  new=sum(this%binned(:, 935 ))
2873  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.2801822919428225E-002 , new=",new,")"
2874  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 822120 "//trim(msg))
2875  insist(this%has_gamma( 936 ).eqv..true. ," 822140 has_gamma")
2876  ref= 0.21343081639527520
2877  new=sum(this%binned(:, 936 ))
2878  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.21343081639527520 , new=",new,")"
2879  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 822140 "//trim(msg))
2880  insist(this%has_gamma( 937 ).eqv..false.," 832060 has_gamma")
2881  insist(sum(this%binned(:, 937 ))== 0.0000000000000000 ," 832060 has zero counts if not has_gamma")
2882  insist(this%has_gamma( 938 ).eqv..false.," 832070 has_gamma")
2883  insist(sum(this%binned(:, 938 ))== 0.0000000000000000 ," 832070 has zero counts if not has_gamma")
2884  insist(this%has_gamma( 939 ).eqv..false.," 832080 has_gamma")
2885  insist(sum(this%binned(:, 939 ))== 0.0000000000000000 ," 832080 has zero counts if not has_gamma")
2886  insist(this%has_gamma( 940 ).eqv..false.," 832090 has_gamma")
2887  insist(sum(this%binned(:, 940 ))== 0.0000000000000000 ," 832090 has zero counts if not has_gamma")
2888  insist(this%has_gamma( 941 ).eqv..false.," 832101 has_gamma")
2889  insist(sum(this%binned(:, 941 ))== 0.0000000000000000 ," 832101 has zero counts if not has_gamma")
2890  insist(this%has_gamma( 942 ).eqv..true. ," 832100 has_gamma")
2891  ref= 0.41111443877903026
2892  new=sum(this%binned(:, 942 ))
2893  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.41111443877903026 , new=",new,")"
2894  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 832100 "//trim(msg))
2895  insist(this%has_gamma( 943 ).eqv..true. ," 832110 has_gamma")
2896  ref= 1.2738720412561945e-006
2897  new=sum(this%binned(:, 943 ))
2898  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2738720412561945E-006 , new=",new,")"
2899  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 832110 "//trim(msg))
2900  insist(this%has_gamma( 944 ).eqv..true. ," 832120 has_gamma")
2901  ref= 0.33996331021536363
2902  new=sum(this%binned(:, 944 ))
2903  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.33996331021536363 , new=",new,")"
2904  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 832120 "//trim(msg))
2905  insist(this%has_gamma( 945 ).eqv..false.," 832121 has_gamma")
2906  insist(sum(this%binned(:, 945 ))== 0.0000000000000000 ," 832121 has zero counts if not has_gamma")
2907  insist(this%has_gamma( 946 ).eqv..true. ," 832130 has_gamma")
2908  ref= 0.45135284930860575
2909  new=sum(this%binned(:, 946 ))
2910  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.45135284930860575 , new=",new,")"
2911  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 832130 "//trim(msg))
2912  insist(this%has_gamma( 947 ).eqv..true. ," 832140 has_gamma")
2913  ref= 0.73373987625549841
2914  new=sum(this%binned(:, 947 ))
2915  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.73373987625549841 , new=",new,")"
2916  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 832140 "//trim(msg))
2917  insist(this%has_gamma( 948 ).eqv..false.," 842070 has_gamma")
2918  insist(sum(this%binned(:, 948 ))== 0.0000000000000000 ," 842070 has zero counts if not has_gamma")
2919  insist(this%has_gamma( 949 ).eqv..false.," 842080 has_gamma")
2920  insist(sum(this%binned(:, 949 ))== 0.0000000000000000 ," 842080 has zero counts if not has_gamma")
2921  insist(this%has_gamma( 950 ).eqv..false.," 842090 has_gamma")
2922  insist(sum(this%binned(:, 950 ))== 0.0000000000000000 ," 842090 has zero counts if not has_gamma")
2923  insist(this%has_gamma( 951 ).eqv..false.," 842100 has_gamma")
2924  insist(sum(this%binned(:, 951 ))== 0.0000000000000000 ," 842100 has zero counts if not has_gamma")
2925  insist(this%has_gamma( 952 ).eqv..false.," 842111 has_gamma")
2926  insist(sum(this%binned(:, 952 ))== 0.0000000000000000 ," 842111 has zero counts if not has_gamma")
2927  insist(this%has_gamma( 953 ).eqv..false.," 842110 has_gamma")
2928  insist(sum(this%binned(:, 953 ))== 0.0000000000000000 ," 842110 has zero counts if not has_gamma")
2929  insist(this%has_gamma( 954 ).eqv..false.," 842120 has_gamma")
2930  insist(sum(this%binned(:, 954 ))== 0.0000000000000000 ," 842120 has zero counts if not has_gamma")
2931  insist(this%has_gamma( 955 ).eqv..false.," 842130 has_gamma")
2932  insist(sum(this%binned(:, 955 ))== 0.0000000000000000 ," 842130 has zero counts if not has_gamma")
2933  insist(this%has_gamma( 956 ).eqv..false.," 842140 has_gamma")
2934  insist(sum(this%binned(:, 956 ))== 0.0000000000000000 ," 842140 has zero counts if not has_gamma")
2935  insist(this%has_gamma( 957 ).eqv..false.," 842150 has_gamma")
2936  insist(sum(this%binned(:, 957 ))== 0.0000000000000000 ," 842150 has zero counts if not has_gamma")
2937  insist(this%has_gamma( 958 ).eqv..false.," 842160 has_gamma")
2938  insist(sum(this%binned(:, 958 ))== 0.0000000000000000 ," 842160 has zero counts if not has_gamma")
2939  insist(this%has_gamma( 959 ).eqv..false.," 842180 has_gamma")
2940  insist(sum(this%binned(:, 959 ))== 0.0000000000000000 ," 842180 has zero counts if not has_gamma")
2941  insist(this%has_gamma( 960 ).eqv..false.," 852160 has_gamma")
2942  insist(sum(this%binned(:, 960 ))== 0.0000000000000000 ," 852160 has zero counts if not has_gamma")
2943  insist(this%has_gamma( 961 ).eqv..false.," 852170 has_gamma")
2944  insist(sum(this%binned(:, 961 ))== 0.0000000000000000 ," 852170 has zero counts if not has_gamma")
2945  insist(this%has_gamma( 962 ).eqv..false.," 852180 has_gamma")
2946  insist(sum(this%binned(:, 962 ))== 0.0000000000000000 ," 852180 has zero counts if not has_gamma")
2947  insist(this%has_gamma( 963 ).eqv..false.," 862160 has_gamma")
2948  insist(sum(this%binned(:, 963 ))== 0.0000000000000000 ," 862160 has zero counts if not has_gamma")
2949  insist(this%has_gamma( 964 ).eqv..false.," 862170 has_gamma")
2950  insist(sum(this%binned(:, 964 ))== 0.0000000000000000 ," 862170 has zero counts if not has_gamma")
2951  insist(this%has_gamma( 965 ).eqv..false.," 862180 has_gamma")
2952  insist(sum(this%binned(:, 965 ))== 0.0000000000000000 ," 862180 has zero counts if not has_gamma")
2953  insist(this%has_gamma( 966 ).eqv..false.," 862190 has_gamma")
2954  insist(sum(this%binned(:, 966 ))== 0.0000000000000000 ," 862190 has zero counts if not has_gamma")
2955  insist(this%has_gamma( 967 ).eqv..false.," 862200 has_gamma")
2956  insist(sum(this%binned(:, 967 ))== 0.0000000000000000 ," 862200 has zero counts if not has_gamma")
2957  insist(this%has_gamma( 968 ).eqv..false.," 862220 has_gamma")
2958  insist(sum(this%binned(:, 968 ))== 0.0000000000000000 ," 862220 has zero counts if not has_gamma")
2959  insist(this%has_gamma( 969 ).eqv..false.," 872200 has_gamma")
2960  insist(sum(this%binned(:, 969 ))== 0.0000000000000000 ," 872200 has zero counts if not has_gamma")
2961  insist(this%has_gamma( 970 ).eqv..false.," 872210 has_gamma")
2962  insist(sum(this%binned(:, 970 ))== 0.0000000000000000 ," 872210 has zero counts if not has_gamma")
2963  insist(this%has_gamma( 971 ).eqv..false.," 872220 has_gamma")
2964  insist(sum(this%binned(:, 971 ))== 0.0000000000000000 ," 872220 has zero counts if not has_gamma")
2965  insist(this%has_gamma( 972 ).eqv..true. ," 872230 has_gamma")
2966  ref= 0.34457590992681397
2967  new=sum(this%binned(:, 972 ))
2968  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.34457590992681397 , new=",new,")"
2969  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 872230 "//trim(msg))
2970  insist(this%has_gamma( 973 ).eqv..false.," 882200 has_gamma")
2971  insist(sum(this%binned(:, 973 ))== 0.0000000000000000 ," 882200 has zero counts if not has_gamma")
2972  insist(this%has_gamma( 974 ).eqv..false.," 882220 has_gamma")
2973  insist(sum(this%binned(:, 974 ))== 0.0000000000000000 ," 882220 has zero counts if not has_gamma")
2974  insist(this%has_gamma( 975 ).eqv..false.," 882230 has_gamma")
2975  insist(sum(this%binned(:, 975 ))== 0.0000000000000000 ," 882230 has zero counts if not has_gamma")
2976  insist(this%has_gamma( 976 ).eqv..false.," 882240 has_gamma")
2977  insist(sum(this%binned(:, 976 ))== 0.0000000000000000 ," 882240 has zero counts if not has_gamma")
2978  insist(this%has_gamma( 977 ).eqv..true. ," 882250 has_gamma")
2979  ref= 7.6982210094959369e-002
2980  new=sum(this%binned(:, 977 ))
2981  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 7.6982210094959369E-002 , new=",new,")"
2982  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 882250 "//trim(msg))
2983  insist(this%has_gamma( 978 ).eqv..false.," 882260 has_gamma")
2984  insist(sum(this%binned(:, 978 ))== 0.0000000000000000 ," 882260 has zero counts if not has_gamma")
2985  insist(this%has_gamma( 979 ).eqv..false.," 882270 has_gamma")
2986  insist(sum(this%binned(:, 979 ))== 0.0000000000000000 ," 882270 has zero counts if not has_gamma")
2987  insist(this%has_gamma( 980 ).eqv..true. ," 882280 has_gamma")
2988  ref= 1.5048172072433814e-003
2989  new=sum(this%binned(:, 980 ))
2990  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.5048172072433814E-003 , new=",new,")"
2991  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 882280 "//trim(msg))
2992  insist(this%has_gamma( 981 ).eqv..false.," 892240 has_gamma")
2993  insist(sum(this%binned(:, 981 ))== 0.0000000000000000 ," 892240 has zero counts if not has_gamma")
2994  insist(this%has_gamma( 982 ).eqv..false.," 892250 has_gamma")
2995  insist(sum(this%binned(:, 982 ))== 0.0000000000000000 ," 892250 has zero counts if not has_gamma")
2996  insist(this%has_gamma( 983 ).eqv..false.," 892260 has_gamma")
2997  insist(sum(this%binned(:, 983 ))== 0.0000000000000000 ," 892260 has zero counts if not has_gamma")
2998  insist(this%has_gamma( 984 ).eqv..true. ," 892270 has_gamma")
2999  ref= 2.4139754975247558e-003
3000  new=sum(this%binned(:, 984 ))
3001  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.4139754975247558E-003 , new=",new,")"
3002  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 892270 "//trim(msg))
3003  insist(this%has_gamma( 985 ).eqv..true. ," 892280 has_gamma")
3004  ref= 0.47638958783602731
3005  new=sum(this%binned(:, 985 ))
3006  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.47638958783602731 , new=",new,")"
3007  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 892280 "//trim(msg))
3008  insist(this%has_gamma( 986 ).eqv..false.," 902260 has_gamma")
3009  insist(sum(this%binned(:, 986 ))== 0.0000000000000000 ," 902260 has zero counts if not has_gamma")
3010  insist(this%has_gamma( 987 ).eqv..false.," 902270 has_gamma")
3011  insist(sum(this%binned(:, 987 ))== 0.0000000000000000 ," 902270 has zero counts if not has_gamma")
3012  insist(this%has_gamma( 988 ).eqv..false.," 902280 has_gamma")
3013  insist(sum(this%binned(:, 988 ))== 0.0000000000000000 ," 902280 has zero counts if not has_gamma")
3014  insist(this%has_gamma( 989 ).eqv..false.," 902290 has_gamma")
3015  insist(sum(this%binned(:, 989 ))== 0.0000000000000000 ," 902290 has zero counts if not has_gamma")
3016  insist(this%has_gamma( 990 ).eqv..false.," 902300 has_gamma")
3017  insist(sum(this%binned(:, 990 ))== 0.0000000000000000 ," 902300 has zero counts if not has_gamma")
3018  insist(this%has_gamma( 991 ).eqv..true. ," 902310 has_gamma")
3019  ref= 6.1092506991736975e-002
3020  new=sum(this%binned(:, 991 ))
3021  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.1092506991736975E-002 , new=",new,")"
3022  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 902310 "//trim(msg))
3023  insist(this%has_gamma( 992 ).eqv..false.," 902320 has_gamma")
3024  insist(sum(this%binned(:, 992 ))== 0.0000000000000000 ," 902320 has zero counts if not has_gamma")
3025  insist(this%has_gamma( 993 ).eqv..false.," 902330 has_gamma")
3026  insist(sum(this%binned(:, 993 ))== 0.0000000000000000 ," 902330 has zero counts if not has_gamma")
3027  insist(this%has_gamma( 994 ).eqv..true. ," 902340 has_gamma")
3028  ref= 2.9265930386982702e-002
3029  new=sum(this%binned(:, 994 ))
3030  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.9265930386982702E-002 , new=",new,")"
3031  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 902340 "//trim(msg))
3032  insist(this%has_gamma( 995 ).eqv..false.," 912280 has_gamma")
3033  insist(sum(this%binned(:, 995 ))== 0.0000000000000000 ," 912280 has zero counts if not has_gamma")
3034  insist(this%has_gamma( 996 ).eqv..false.," 912290 has_gamma")
3035  insist(sum(this%binned(:, 996 ))== 0.0000000000000000 ," 912290 has zero counts if not has_gamma")
3036  insist(this%has_gamma( 997 ).eqv..false.," 912300 has_gamma")
3037  insist(sum(this%binned(:, 997 ))== 0.0000000000000000 ," 912300 has zero counts if not has_gamma")
3038  insist(this%has_gamma( 998 ).eqv..false.," 912310 has_gamma")
3039  insist(sum(this%binned(:, 998 ))== 0.0000000000000000 ," 912310 has zero counts if not has_gamma")
3040  insist(this%has_gamma( 999 ).eqv..true. ," 912320 has_gamma")
3041  ref= 8.1573892923436156e-002
3042  new=sum(this%binned(:, 999 ))
3043  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.1573892923436156E-002 , new=",new,")"
3044  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 912320 "//trim(msg))
3045  insist(this%has_gamma( 1000 ).eqv..true. ," 912330 has_gamma")
3046  ref= 5.2396245176693078e-002
3047  new=sum(this%binned(:, 1000 ))
3048  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.2396245176693078E-002 , new=",new,")"
3049  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 912330 "//trim(msg))
3050  insist(this%has_gamma( 1001 ).eqv..true. ," 912341 has_gamma")
3051  ref= 0.95710188882963210
3052  new=sum(this%binned(:, 1001 ))
3053  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.95710188882963210 , new=",new,")"
3054  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 912341 "//trim(msg))
3055  insist(this%has_gamma( 1002 ).eqv..true. ," 912340 has_gamma")
3056  ref= 0.20125070867845496
3057  new=sum(this%binned(:, 1002 ))
3058  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.20125070867845496 , new=",new,")"
3059  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 912340 "//trim(msg))
3060  insist(this%has_gamma( 1003 ).eqv..true. ," 912350 has_gamma")
3061  ref= 0.51959527883799284
3062  new=sum(this%binned(:, 1003 ))
3063  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.51959527883799284 , new=",new,")"
3064  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 912350 "//trim(msg))
3065  insist(this%has_gamma( 1004 ).eqv..false.," 922300 has_gamma")
3066  insist(sum(this%binned(:, 1004 ))== 0.0000000000000000 ," 922300 has zero counts if not has_gamma")
3067  insist(this%has_gamma( 1005 ).eqv..false.," 922310 has_gamma")
3068  insist(sum(this%binned(:, 1005 ))== 0.0000000000000000 ," 922310 has zero counts if not has_gamma")
3069  insist(this%has_gamma( 1006 ).eqv..false.," 922320 has_gamma")
3070  insist(sum(this%binned(:, 1006 ))== 0.0000000000000000 ," 922320 has zero counts if not has_gamma")
3071  insist(this%has_gamma( 1007 ).eqv..false.," 922330 has_gamma")
3072  insist(sum(this%binned(:, 1007 ))== 0.0000000000000000 ," 922330 has zero counts if not has_gamma")
3073  insist(this%has_gamma( 1008 ).eqv..false.," 922340 has_gamma")
3074  insist(sum(this%binned(:, 1008 ))== 0.0000000000000000 ," 922340 has zero counts if not has_gamma")
3075  insist(this%has_gamma( 1009 ).eqv..false.," 922350 has_gamma")
3076  insist(sum(this%binned(:, 1009 ))== 0.0000000000000000 ," 922350 has zero counts if not has_gamma")
3077  insist(this%has_gamma( 1010 ).eqv..false.," 922351 has_gamma")
3078  insist(sum(this%binned(:, 1010 ))== 0.0000000000000000 ," 922351 has zero counts if not has_gamma")
3079  insist(this%has_gamma( 1011 ).eqv..false.," 922360 has_gamma")
3080  insist(sum(this%binned(:, 1011 ))== 0.0000000000000000 ," 922360 has zero counts if not has_gamma")
3081  insist(this%has_gamma( 1012 ).eqv..true. ," 922370 has_gamma")
3082  ref= 4.9673577145975742e-002
3083  new=sum(this%binned(:, 1012 ))
3084  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.9673577145975742E-002 , new=",new,")"
3085  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 922370 "//trim(msg))
3086  insist(this%has_gamma( 1013 ).eqv..false.," 922380 has_gamma")
3087  insist(sum(this%binned(:, 1013 ))== 0.0000000000000000 ," 922380 has zero counts if not has_gamma")
3088  insist(this%has_gamma( 1014 ).eqv..true. ," 922390 has_gamma")
3089  ref= 0.42497242704025745
3090  new=sum(this%binned(:, 1014 ))
3091  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.42497242704025745 , new=",new,")"
3092  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 922390 "//trim(msg))
3093  insist(this%has_gamma( 1015 ).eqv..true. ," 922400 has_gamma")
3094  ref= 8.4512707180117816e-002
3095  new=sum(this%binned(:, 1015 ))
3096  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.4512707180117816E-002 , new=",new,")"
3097  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 922400 "//trim(msg))
3098  insist(this%has_gamma( 1016 ).eqv..false.," 922410 has_gamma")
3099  insist(sum(this%binned(:, 1016 ))== 0.0000000000000000 ," 922410 has zero counts if not has_gamma")
3100  insist(this%has_gamma( 1017 ).eqv..false.," 932340 has_gamma")
3101  insist(sum(this%binned(:, 1017 ))== 0.0000000000000000 ," 932340 has zero counts if not has_gamma")
3102  insist(this%has_gamma( 1018 ).eqv..false.," 932350 has_gamma")
3103  insist(sum(this%binned(:, 1018 ))== 0.0000000000000000 ," 932350 has zero counts if not has_gamma")
3104  insist(this%has_gamma( 1019 ).eqv..true. ," 932361 has_gamma")
3105  ref= 3.2724980694425192e-002
3106  new=sum(this%binned(:, 1019 ))
3107  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.2724980694425192E-002 , new=",new,")"
3108  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 932361 "//trim(msg))
3109  insist(this%has_gamma( 1020 ).eqv..true. ," 932360 has_gamma")
3110  ref= 6.6346084215321592e-004
3111  new=sum(this%binned(:, 1020 ))
3112  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.6346084215321592E-004 , new=",new,")"
3113  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 932360 "//trim(msg))
3114  insist(this%has_gamma( 1021 ).eqv..false.," 932370 has_gamma")
3115  insist(sum(this%binned(:, 1021 ))== 0.0000000000000000 ," 932370 has zero counts if not has_gamma")
3116  insist(this%has_gamma( 1022 ).eqv..true. ," 932380 has_gamma")
3117  ref= 0.22831253906543125
3118  new=sum(this%binned(:, 1022 ))
3119  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.22831253906543125 , new=",new,")"
3120  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 932380 "//trim(msg))
3121  insist(this%has_gamma( 1023 ).eqv..true. ," 932390 has_gamma")
3122  ref= 0.10292849191012543
3123  new=sum(this%binned(:, 1023 ))
3124  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.10292849191012543 , new=",new,")"
3125  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 932390 "//trim(msg))
3126  insist(this%has_gamma( 1024 ).eqv..true. ," 932401 has_gamma")
3127  ref= 0.70032517157923735
3128  new=sum(this%binned(:, 1024 ))
3129  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.70032517157923735 , new=",new,")"
3130  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 932401 "//trim(msg))
3131  insist(this%has_gamma( 1025 ).eqv..true. ," 932400 has_gamma")
3132  ref= 0.27112565937590682
3133  new=sum(this%binned(:, 1025 ))
3134  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.27112565937590682 , new=",new,")"
3135  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 932400 "//trim(msg))
3136  insist(this%has_gamma( 1026 ).eqv..false.," 932410 has_gamma")
3137  insist(sum(this%binned(:, 1026 ))== 0.0000000000000000 ," 932410 has zero counts if not has_gamma")
3138  insist(this%has_gamma( 1027 ).eqv..false.," 942360 has_gamma")
3139  insist(sum(this%binned(:, 1027 ))== 0.0000000000000000 ," 942360 has zero counts if not has_gamma")
3140  insist(this%has_gamma( 1028 ).eqv..false.," 942371 has_gamma")
3141  insist(sum(this%binned(:, 1028 ))== 0.0000000000000000 ," 942371 has zero counts if not has_gamma")
3142  insist(this%has_gamma( 1029 ).eqv..false.," 942370 has_gamma")
3143  insist(sum(this%binned(:, 1029 ))== 0.0000000000000000 ," 942370 has zero counts if not has_gamma")
3144  insist(this%has_gamma( 1030 ).eqv..false.," 942380 has_gamma")
3145  insist(sum(this%binned(:, 1030 ))== 0.0000000000000000 ," 942380 has zero counts if not has_gamma")
3146  insist(this%has_gamma( 1031 ).eqv..false.," 942390 has_gamma")
3147  insist(sum(this%binned(:, 1031 ))== 0.0000000000000000 ," 942390 has zero counts if not has_gamma")
3148  insist(this%has_gamma( 1032 ).eqv..false.," 942400 has_gamma")
3149  insist(sum(this%binned(:, 1032 ))== 0.0000000000000000 ," 942400 has zero counts if not has_gamma")
3150  insist(this%has_gamma( 1033 ).eqv..true. ," 942410 has_gamma")
3151  ref= 5.8739440397093101e-004
3152  new=sum(this%binned(:, 1033 ))
3153  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.8739440397093101E-004 , new=",new,")"
3154  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 942410 "//trim(msg))
3155  insist(this%has_gamma( 1034 ).eqv..false.," 942420 has_gamma")
3156  insist(sum(this%binned(:, 1034 ))== 0.0000000000000000 ," 942420 has zero counts if not has_gamma")
3157  insist(this%has_gamma( 1035 ).eqv..true. ," 942430 has_gamma")
3158  ref= 0.14868743975125570
3159  new=sum(this%binned(:, 1035 ))
3160  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.14868743975125570 , new=",new,")"
3161  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 942430 "//trim(msg))
3162  insist(this%has_gamma( 1036 ).eqv..false.," 942440 has_gamma")
3163  insist(sum(this%binned(:, 1036 ))== 0.0000000000000000 ," 942440 has zero counts if not has_gamma")
3164  insist(this%has_gamma( 1037 ).eqv..true. ," 942450 has_gamma")
3165  ref= 0.24108988684036203
3166  new=sum(this%binned(:, 1037 ))
3167  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.24108988684036203 , new=",new,")"
3168  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 942450 "//trim(msg))
3169  insist(this%has_gamma( 1038 ).eqv..false.," 942460 has_gamma")
3170  insist(sum(this%binned(:, 1038 ))== 0.0000000000000000 ," 942460 has zero counts if not has_gamma")
3171  insist(this%has_gamma( 1039 ).eqv..false.," 942470 has_gamma")
3172  insist(sum(this%binned(:, 1039 ))== 0.0000000000000000 ," 942470 has zero counts if not has_gamma")
3173  insist(this%has_gamma( 1040 ).eqv..false.," 952390 has_gamma")
3174  insist(sum(this%binned(:, 1040 ))== 0.0000000000000000 ," 952390 has zero counts if not has_gamma")
3175  insist(this%has_gamma( 1041 ).eqv..false.," 952400 has_gamma")
3176  insist(sum(this%binned(:, 1041 ))== 0.0000000000000000 ," 952400 has zero counts if not has_gamma")
3177  insist(this%has_gamma( 1042 ).eqv..false.," 952410 has_gamma")
3178  insist(sum(this%binned(:, 1042 ))== 0.0000000000000000 ," 952410 has zero counts if not has_gamma")
3179  insist(this%has_gamma( 1043 ).eqv..false.," 952421 has_gamma")
3180  insist(sum(this%binned(:, 1043 ))== 0.0000000000000000 ," 952421 has zero counts if not has_gamma")
3181  insist(this%has_gamma( 1044 ).eqv..true. ," 952420 has_gamma")
3182  ref= 0.12414116680770086
3183  new=sum(this%binned(:, 1044 ))
3184  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.12414116680770086 , new=",new,")"
3185  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 952420 "//trim(msg))
3186  insist(this%has_gamma( 1045 ).eqv..false.," 952430 has_gamma")
3187  insist(sum(this%binned(:, 1045 ))== 0.0000000000000000 ," 952430 has zero counts if not has_gamma")
3188  insist(this%has_gamma( 1046 ).eqv..true. ," 952441 has_gamma")
3189  ref= 0.55156508334189447
3190  new=sum(this%binned(:, 1046 ))
3191  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.55156508334189447 , new=",new,")"
3192  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 952441 "//trim(msg))
3193  insist(this%has_gamma( 1047 ).eqv..true. ," 952440 has_gamma")
3194  ref= 9.2915887708045389e-002
3195  new=sum(this%binned(:, 1047 ))
3196  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 9.2915887708045389E-002 , new=",new,")"
3197  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 952440 "//trim(msg))
3198  insist(this%has_gamma( 1048 ).eqv..true. ," 952450 has_gamma")
3199  ref= 0.25973814116876875
3200  new=sum(this%binned(:, 1048 ))
3201  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.25973814116876875 , new=",new,")"
3202  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 952450 "//trim(msg))
3203  insist(this%has_gamma( 1049 ).eqv..true. ," 952460 has_gamma")
3204  ref= 0.38123717104017280
3205  new=sum(this%binned(:, 1049 ))
3206  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.38123717104017280 , new=",new,")"
3207  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 952460 "//trim(msg))
3208  insist(this%has_gamma( 1050 ).eqv..false.," 952461 has_gamma")
3209  insist(sum(this%binned(:, 1050 ))== 0.0000000000000000 ," 952461 has zero counts if not has_gamma")
3210  insist(this%has_gamma( 1051 ).eqv..false.," 952470 has_gamma")
3211  insist(sum(this%binned(:, 1051 ))== 0.0000000000000000 ," 952470 has zero counts if not has_gamma")
3212  insist(this%has_gamma( 1052 ).eqv..false.," 962400 has_gamma")
3213  insist(sum(this%binned(:, 1052 ))== 0.0000000000000000 ," 962400 has zero counts if not has_gamma")
3214  insist(this%has_gamma( 1053 ).eqv..false.," 962410 has_gamma")
3215  insist(sum(this%binned(:, 1053 ))== 0.0000000000000000 ," 962410 has zero counts if not has_gamma")
3216  insist(this%has_gamma( 1054 ).eqv..false.," 962420 has_gamma")
3217  insist(sum(this%binned(:, 1054 ))== 0.0000000000000000 ," 962420 has zero counts if not has_gamma")
3218  insist(this%has_gamma( 1055 ).eqv..false.," 962430 has_gamma")
3219  insist(sum(this%binned(:, 1055 ))== 0.0000000000000000 ," 962430 has zero counts if not has_gamma")
3220  insist(this%has_gamma( 1056 ).eqv..false.," 962440 has_gamma")
3221  insist(sum(this%binned(:, 1056 ))== 0.0000000000000000 ," 962440 has zero counts if not has_gamma")
3222  insist(this%has_gamma( 1057 ).eqv..false.," 962450 has_gamma")
3223  insist(sum(this%binned(:, 1057 ))== 0.0000000000000000 ," 962450 has zero counts if not has_gamma")
3224  insist(this%has_gamma( 1058 ).eqv..false.," 962460 has_gamma")
3225  insist(sum(this%binned(:, 1058 ))== 0.0000000000000000 ," 962460 has zero counts if not has_gamma")
3226  insist(this%has_gamma( 1059 ).eqv..false.," 962470 has_gamma")
3227  insist(sum(this%binned(:, 1059 ))== 0.0000000000000000 ," 962470 has zero counts if not has_gamma")
3228  insist(this%has_gamma( 1060 ).eqv..false.," 962480 has_gamma")
3229  insist(sum(this%binned(:, 1060 ))== 0.0000000000000000 ," 962480 has zero counts if not has_gamma")
3230  insist(this%has_gamma( 1061 ).eqv..true. ," 962490 has_gamma")
3231  ref= 0.27444291763657253
3232  new=sum(this%binned(:, 1061 ))
3233  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.27444291763657253 , new=",new,")"
3234  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 962490 "//trim(msg))
3235  insist(this%has_gamma( 1062 ).eqv..false.," 962500 has_gamma")
3236  insist(sum(this%binned(:, 1062 ))== 0.0000000000000000 ," 962500 has zero counts if not has_gamma")
3237  insist(this%has_gamma( 1063 ).eqv..false.," 962510 has_gamma")
3238  insist(sum(this%binned(:, 1063 ))== 0.0000000000000000 ," 962510 has zero counts if not has_gamma")
3239  insist(this%has_gamma( 1064 ).eqv..false.," 972450 has_gamma")
3240  insist(sum(this%binned(:, 1064 ))== 0.0000000000000000 ," 972450 has zero counts if not has_gamma")
3241  insist(this%has_gamma( 1065 ).eqv..false.," 972460 has_gamma")
3242  insist(sum(this%binned(:, 1065 ))== 0.0000000000000000 ," 972460 has zero counts if not has_gamma")
3243  insist(this%has_gamma( 1066 ).eqv..false.," 972470 has_gamma")
3244  insist(sum(this%binned(:, 1066 ))== 0.0000000000000000 ," 972470 has zero counts if not has_gamma")
3245  insist(this%has_gamma( 1067 ).eqv..false.," 972480 has_gamma")
3246  insist(sum(this%binned(:, 1067 ))== 0.0000000000000000 ," 972480 has zero counts if not has_gamma")
3247  insist(this%has_gamma( 1068 ).eqv..false.," 972481 has_gamma")
3248  insist(sum(this%binned(:, 1068 ))== 0.0000000000000000 ," 972481 has zero counts if not has_gamma")
3249  insist(this%has_gamma( 1069 ).eqv..true. ," 972490 has_gamma")
3250  ref= 1.8516828562347602e-002
3251  new=sum(this%binned(:, 1069 ))
3252  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.8516828562347602E-002 , new=",new,")"
3253  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 972490 "//trim(msg))
3254  insist(this%has_gamma( 1070 ).eqv..true. ," 972500 has_gamma")
3255  ref= 0.26173507223435616
3256  new=sum(this%binned(:, 1070 ))
3257  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.26173507223435616 , new=",new,")"
3258  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 972500 "//trim(msg))
3259  insist(this%has_gamma( 1071 ).eqv..false.," 972510 has_gamma")
3260  insist(sum(this%binned(:, 1071 ))== 0.0000000000000000 ," 972510 has zero counts if not has_gamma")
3261  insist(this%has_gamma( 1072 ).eqv..false.," 982460 has_gamma")
3262  insist(sum(this%binned(:, 1072 ))== 0.0000000000000000 ," 982460 has zero counts if not has_gamma")
3263  insist(this%has_gamma( 1073 ).eqv..false.," 982480 has_gamma")
3264  insist(sum(this%binned(:, 1073 ))== 0.0000000000000000 ," 982480 has zero counts if not has_gamma")
3265  insist(this%has_gamma( 1074 ).eqv..false.," 982490 has_gamma")
3266  insist(sum(this%binned(:, 1074 ))== 0.0000000000000000 ," 982490 has zero counts if not has_gamma")
3267  insist(this%has_gamma( 1075 ).eqv..false.," 982500 has_gamma")
3268  insist(sum(this%binned(:, 1075 ))== 0.0000000000000000 ," 982500 has zero counts if not has_gamma")
3269  insist(this%has_gamma( 1076 ).eqv..false.," 982510 has_gamma")
3270  insist(sum(this%binned(:, 1076 ))== 0.0000000000000000 ," 982510 has zero counts if not has_gamma")
3271  insist(this%has_gamma( 1077 ).eqv..false.," 982520 has_gamma")
3272  insist(sum(this%binned(:, 1077 ))== 0.0000000000000000 ," 982520 has zero counts if not has_gamma")
3273  insist(this%has_gamma( 1078 ).eqv..true. ," 982530 has_gamma")
3274  ref= 6.1976144970685716e-002
3275  new=sum(this%binned(:, 1078 ))
3276  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.1976144970685716E-002 , new=",new,")"
3277  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 982530 "//trim(msg))
3278  insist(this%has_gamma( 1079 ).eqv..false.," 982540 has_gamma")
3279  insist(sum(this%binned(:, 1079 ))== 0.0000000000000000 ," 982540 has zero counts if not has_gamma")
3280  insist(this%has_gamma( 1080 ).eqv..false.," 982550 has_gamma")
3281  insist(sum(this%binned(:, 1080 ))== 0.0000000000000000 ," 982550 has zero counts if not has_gamma")
3282  insist(this%has_gamma( 1081 ).eqv..false.," 992510 has_gamma")
3283  insist(sum(this%binned(:, 1081 ))== 0.0000000000000000 ," 992510 has zero counts if not has_gamma")
3284  insist(this%has_gamma( 1082 ).eqv..false.," 992520 has_gamma")
3285  insist(sum(this%binned(:, 1082 ))== 0.0000000000000000 ," 992520 has zero counts if not has_gamma")
3286  insist(this%has_gamma( 1083 ).eqv..false.," 992530 has_gamma")
3287  insist(sum(this%binned(:, 1083 ))== 0.0000000000000000 ," 992530 has zero counts if not has_gamma")
3288  insist(this%has_gamma( 1084 ).eqv..true. ," 992541 has_gamma")
3289  ref= 0.19549448853091214
3290  new=sum(this%binned(:, 1084 ))
3291  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.19549448853091214 , new=",new,")"
3292  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 992541 "//trim(msg))
3293  insist(this%has_gamma( 1085 ).eqv..false.," 992540 has_gamma")
3294  insist(sum(this%binned(:, 1085 ))== 0.0000000000000000 ," 992540 has zero counts if not has_gamma")
3295  insist(this%has_gamma( 1086 ).eqv..false.," 992550 has_gamma")
3296  insist(sum(this%binned(:, 1086 ))== 0.0000000000000000 ," 992550 has zero counts if not has_gamma")
3297  insist(this%has_gamma( 1087 ).eqv..true. ," 10030 has_gamma")
3298  ref= 5.8041311241133610e-004
3299  new=sum(this%binned(:, 1087 ))
3300  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.8041311241133610E-004 , new=",new,")"
3301  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 10030 "//trim(msg))
3302  insist(this%has_gamma( 1088 ).eqv..false.," 20030 has_gamma")
3303  insist(sum(this%binned(:, 1088 ))== 0.0000000000000000 ," 20030 has zero counts if not has_gamma")
3304  insist(this%has_gamma( 1089 ).eqv..false.," 20040 has_gamma")
3305  insist(sum(this%binned(:, 1089 ))== 0.0000000000000000 ," 20040 has zero counts if not has_gamma")
3306  insist(this%has_gamma( 1090 ).eqv..false.," 260650 has_gamma")
3307  insist(sum(this%binned(:, 1090 ))== 0.0000000000000000 ," 260650 has zero counts if not has_gamma")
3308  insist(this%has_gamma( 1091 ).eqv..false.," 270650 has_gamma")
3309  insist(sum(this%binned(:, 1091 ))== 0.0000000000000000 ," 270650 has zero counts if not has_gamma")
3310  insist(this%has_gamma( 1092 ).eqv..true. ," 280650 has_gamma")
3311  ref= 0.71665109825983109
3312  new=sum(this%binned(:, 1092 ))
3313  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.71665109825983109 , new=",new,")"
3314  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 280650 "//trim(msg))
3315  insist(this%has_gamma( 1093 ).eqv..false.," 290650 has_gamma")
3316  insist(sum(this%binned(:, 1093 ))== 0.0000000000000000 ," 290650 has zero counts if not has_gamma")
3317  insist(this%has_gamma( 1094 ).eqv..false.," 240660 has_gamma")
3318  insist(sum(this%binned(:, 1094 ))== 0.0000000000000000 ," 240660 has zero counts if not has_gamma")
3319  insist(this%has_gamma( 1095 ).eqv..false.," 250660 has_gamma")
3320  insist(sum(this%binned(:, 1095 ))== 0.0000000000000000 ," 250660 has zero counts if not has_gamma")
3321  insist(this%has_gamma( 1096 ).eqv..false.," 260660 has_gamma")
3322  insist(sum(this%binned(:, 1096 ))== 0.0000000000000000 ," 260660 has zero counts if not has_gamma")
3323  insist(this%has_gamma( 1097 ).eqv..false.," 270660 has_gamma")
3324  insist(sum(this%binned(:, 1097 ))== 0.0000000000000000 ," 270660 has zero counts if not has_gamma")
3325  insist(this%has_gamma( 1098 ).eqv..true. ," 280660 has_gamma")
3326  ref= 4.9393710887042759e-002
3327  new=sum(this%binned(:, 1098 ))
3328  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.9393710887042759E-002 , new=",new,")"
3329  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 280660 "//trim(msg))
3330  insist(this%has_gamma( 1099 ).eqv..true. ," 290660 has_gamma")
3331  ref= 1.2811493807402461
3332  new=sum(this%binned(:, 1099 ))
3333  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2811493807402461 , new=",new,")"
3334  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 290660 "//trim(msg))
3335  insist(this%has_gamma( 1100 ).eqv..false.," 300660 has_gamma")
3336  insist(sum(this%binned(:, 1100 ))== 0.0000000000000000 ," 300660 has zero counts if not has_gamma")
3337  insist(this%has_gamma( 1101 ).eqv..false.," 310660 has_gamma")
3338  insist(sum(this%binned(:, 1101 ))== 0.0000000000000000 ," 310660 has zero counts if not has_gamma")
3339  insist(this%has_gamma( 1102 ).eqv..false.," 320660 has_gamma")
3340  insist(sum(this%binned(:, 1102 ))== 0.0000000000000000 ," 320660 has zero counts if not has_gamma")
3341  insist(this%has_gamma( 1103 ).eqv..false.," 240670 has_gamma")
3342  insist(sum(this%binned(:, 1103 ))== 0.0000000000000000 ," 240670 has zero counts if not has_gamma")
3343  insist(this%has_gamma( 1104 ).eqv..false.," 250670 has_gamma")
3344  insist(sum(this%binned(:, 1104 ))== 0.0000000000000000 ," 250670 has zero counts if not has_gamma")
3345  insist(this%has_gamma( 1105 ).eqv..false.," 260670 has_gamma")
3346  insist(sum(this%binned(:, 1105 ))== 0.0000000000000000 ," 260670 has zero counts if not has_gamma")
3347  insist(this%has_gamma( 1106 ).eqv..false.," 270670 has_gamma")
3348  insist(sum(this%binned(:, 1106 ))== 0.0000000000000000 ," 270670 has zero counts if not has_gamma")
3349  insist(this%has_gamma( 1107 ).eqv..false.," 280670 has_gamma")
3350  insist(sum(this%binned(:, 1107 ))== 0.0000000000000000 ," 280670 has zero counts if not has_gamma")
3351  insist(this%has_gamma( 1108 ).eqv..true. ," 290670 has_gamma")
3352  ref= 0.12419624399658105
3353  new=sum(this%binned(:, 1108 ))
3354  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.12419624399658105 , new=",new,")"
3355  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 290670 "//trim(msg))
3356  insist(this%has_gamma( 1109 ).eqv..false.," 300670 has_gamma")
3357  insist(sum(this%binned(:, 1109 ))== 0.0000000000000000 ," 300670 has zero counts if not has_gamma")
3358  insist(this%has_gamma( 1110 ).eqv..false.," 310670 has_gamma")
3359  insist(sum(this%binned(:, 1110 ))== 0.0000000000000000 ," 310670 has zero counts if not has_gamma")
3360  insist(this%has_gamma( 1111 ).eqv..false.," 320670 has_gamma")
3361  insist(sum(this%binned(:, 1111 ))== 0.0000000000000000 ," 320670 has zero counts if not has_gamma")
3362  insist(this%has_gamma( 1112 ).eqv..false.," 250680 has_gamma")
3363  insist(sum(this%binned(:, 1112 ))== 0.0000000000000000 ," 250680 has zero counts if not has_gamma")
3364  insist(this%has_gamma( 1113 ).eqv..false.," 260680 has_gamma")
3365  insist(sum(this%binned(:, 1113 ))== 0.0000000000000000 ," 260680 has zero counts if not has_gamma")
3366  insist(this%has_gamma( 1114 ).eqv..false.," 270680 has_gamma")
3367  insist(sum(this%binned(:, 1114 ))== 0.0000000000000000 ," 270680 has zero counts if not has_gamma")
3368  insist(this%has_gamma( 1115 ).eqv..false.," 280680 has_gamma")
3369  insist(sum(this%binned(:, 1115 ))== 0.0000000000000000 ," 280680 has zero counts if not has_gamma")
3370  insist(this%has_gamma( 1116 ).eqv..false.," 290680 has_gamma")
3371  insist(sum(this%binned(:, 1116 ))== 0.0000000000000000 ," 290680 has zero counts if not has_gamma")
3372  insist(this%has_gamma( 1117 ).eqv..false.," 290681 has_gamma")
3373  insist(sum(this%binned(:, 1117 ))== 0.0000000000000000 ," 290681 has zero counts if not has_gamma")
3374  insist(this%has_gamma( 1118 ).eqv..false.," 300680 has_gamma")
3375  insist(sum(this%binned(:, 1118 ))== 0.0000000000000000 ," 300680 has zero counts if not has_gamma")
3376  insist(this%has_gamma( 1119 ).eqv..false.," 310680 has_gamma")
3377  insist(sum(this%binned(:, 1119 ))== 0.0000000000000000 ," 310680 has zero counts if not has_gamma")
3378  insist(this%has_gamma( 1120 ).eqv..false.," 320680 has_gamma")
3379  insist(sum(this%binned(:, 1120 ))== 0.0000000000000000 ," 320680 has zero counts if not has_gamma")
3380  insist(this%has_gamma( 1121 ).eqv..false.," 250690 has_gamma")
3381  insist(sum(this%binned(:, 1121 ))== 0.0000000000000000 ," 250690 has zero counts if not has_gamma")
3382  insist(this%has_gamma( 1122 ).eqv..false.," 260690 has_gamma")
3383  insist(sum(this%binned(:, 1122 ))== 0.0000000000000000 ," 260690 has zero counts if not has_gamma")
3384  insist(this%has_gamma( 1123 ).eqv..false.," 270690 has_gamma")
3385  insist(sum(this%binned(:, 1123 ))== 0.0000000000000000 ," 270690 has zero counts if not has_gamma")
3386  insist(this%has_gamma( 1124 ).eqv..false.," 280690 has_gamma")
3387  insist(sum(this%binned(:, 1124 ))== 0.0000000000000000 ," 280690 has zero counts if not has_gamma")
3388  insist(this%has_gamma( 1125 ).eqv..false.," 290690 has_gamma")
3389  insist(sum(this%binned(:, 1125 ))== 0.0000000000000000 ," 290690 has zero counts if not has_gamma")
3390  insist(this%has_gamma( 1126 ).eqv..true. ," 300690 has_gamma")
3391  ref= 0.32448997333713686
3392  new=sum(this%binned(:, 1126 ))
3393  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.32448997333713686 , new=",new,")"
3394  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 300690 "//trim(msg))
3395  insist(this%has_gamma( 1127 ).eqv..true. ," 300691 has_gamma")
3396  ref= 3.1907135371456243e-008
3397  new=sum(this%binned(:, 1127 ))
3398  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.1907135371456243E-008 , new=",new,")"
3399  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 300691 "//trim(msg))
3400  insist(this%has_gamma( 1128 ).eqv..false.," 310690 has_gamma")
3401  insist(sum(this%binned(:, 1128 ))== 0.0000000000000000 ," 310690 has zero counts if not has_gamma")
3402  insist(this%has_gamma( 1129 ).eqv..false.," 320690 has_gamma")
3403  insist(sum(this%binned(:, 1129 ))== 0.0000000000000000 ," 320690 has zero counts if not has_gamma")
3404  insist(this%has_gamma( 1130 ).eqv..false.," 330690 has_gamma")
3405  insist(sum(this%binned(:, 1130 ))== 0.0000000000000000 ," 330690 has zero counts if not has_gamma")
3406  insist(this%has_gamma( 1131 ).eqv..false.," 260700 has_gamma")
3407  insist(sum(this%binned(:, 1131 ))== 0.0000000000000000 ," 260700 has zero counts if not has_gamma")
3408  insist(this%has_gamma( 1132 ).eqv..false.," 270700 has_gamma")
3409  insist(sum(this%binned(:, 1132 ))== 0.0000000000000000 ," 270700 has zero counts if not has_gamma")
3410  insist(this%has_gamma( 1133 ).eqv..false.," 280700 has_gamma")
3411  insist(sum(this%binned(:, 1133 ))== 0.0000000000000000 ," 280700 has zero counts if not has_gamma")
3412  insist(this%has_gamma( 1134 ).eqv..false.," 290700 has_gamma")
3413  insist(sum(this%binned(:, 1134 ))== 0.0000000000000000 ," 290700 has zero counts if not has_gamma")
3414  insist(this%has_gamma( 1135 ).eqv..false.," 290701 has_gamma")
3415  insist(sum(this%binned(:, 1135 ))== 0.0000000000000000 ," 290701 has zero counts if not has_gamma")
3416  insist(this%has_gamma( 1136 ).eqv..false.," 300700 has_gamma")
3417  insist(sum(this%binned(:, 1136 ))== 0.0000000000000000 ," 300700 has zero counts if not has_gamma")
3418  insist(this%has_gamma( 1137 ).eqv..true. ," 310700 has_gamma")
3419  ref= 0.72407405871151376
3420  new=sum(this%binned(:, 1137 ))
3421  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.72407405871151376 , new=",new,")"
3422  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 310700 "//trim(msg))
3423  insist(this%has_gamma( 1138 ).eqv..false.," 320700 has_gamma")
3424  insist(sum(this%binned(:, 1138 ))== 0.0000000000000000 ," 320700 has zero counts if not has_gamma")
3425  insist(this%has_gamma( 1139 ).eqv..false.," 260710 has_gamma")
3426  insist(sum(this%binned(:, 1139 ))== 0.0000000000000000 ," 260710 has zero counts if not has_gamma")
3427  insist(this%has_gamma( 1140 ).eqv..false.," 270710 has_gamma")
3428  insist(sum(this%binned(:, 1140 ))== 0.0000000000000000 ," 270710 has zero counts if not has_gamma")
3429  insist(this%has_gamma( 1141 ).eqv..false.," 280710 has_gamma")
3430  insist(sum(this%binned(:, 1141 ))== 0.0000000000000000 ," 280710 has zero counts if not has_gamma")
3431  insist(this%has_gamma( 1142 ).eqv..false.," 290710 has_gamma")
3432  insist(sum(this%binned(:, 1142 ))== 0.0000000000000000 ," 290710 has zero counts if not has_gamma")
3433  insist(this%has_gamma( 1143 ).eqv..true. ," 300710 has_gamma")
3434  ref= 1.2487497560868803
3435  new=sum(this%binned(:, 1143 ))
3436  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2487497560868803 , new=",new,")"
3437  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 300710 "//trim(msg))
3438  insist(this%has_gamma( 1144 ).eqv..true. ," 300711 has_gamma")
3439  ref= 0.61465169864222335
3440  new=sum(this%binned(:, 1144 ))
3441  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.61465169864222335 , new=",new,")"
3442  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 300711 "//trim(msg))
3443  insist(this%has_gamma( 1145 ).eqv..false.," 310710 has_gamma")
3444  insist(sum(this%binned(:, 1145 ))== 0.0000000000000000 ," 310710 has zero counts if not has_gamma")
3445  insist(this%has_gamma( 1146 ).eqv..false.," 320710 has_gamma")
3446  insist(sum(this%binned(:, 1146 ))== 0.0000000000000000 ," 320710 has zero counts if not has_gamma")
3447  insist(this%has_gamma( 1147 ).eqv..false.," 320711 has_gamma")
3448  insist(sum(this%binned(:, 1147 ))== 0.0000000000000000 ," 320711 has zero counts if not has_gamma")
3449  insist(this%has_gamma( 1148 ).eqv..false.," 330710 has_gamma")
3450  insist(sum(this%binned(:, 1148 ))== 0.0000000000000000 ," 330710 has zero counts if not has_gamma")
3451  insist(this%has_gamma( 1149 ).eqv..false.," 260720 has_gamma")
3452  insist(sum(this%binned(:, 1149 ))== 0.0000000000000000 ," 260720 has zero counts if not has_gamma")
3453  insist(this%has_gamma( 1150 ).eqv..false.," 270720 has_gamma")
3454  insist(sum(this%binned(:, 1150 ))== 0.0000000000000000 ," 270720 has zero counts if not has_gamma")
3455  insist(this%has_gamma( 1151 ).eqv..false.," 280720 has_gamma")
3456  insist(sum(this%binned(:, 1151 ))== 0.0000000000000000 ," 280720 has zero counts if not has_gamma")
3457  insist(this%has_gamma( 1152 ).eqv..false.," 290720 has_gamma")
3458  insist(sum(this%binned(:, 1152 ))== 0.0000000000000000 ," 290720 has zero counts if not has_gamma")
3459  insist(this%has_gamma( 1153 ).eqv..true. ," 300720 has_gamma")
3460  ref= 6.7099930788272200e-002
3461  new=sum(this%binned(:, 1153 ))
3462  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.7099930788272200E-002 , new=",new,")"
3463  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 300720 "//trim(msg))
3464  insist(this%has_gamma( 1154 ).eqv..true. ," 310720 has_gamma")
3465  ref= 0.54910348605116188
3466  new=sum(this%binned(:, 1154 ))
3467  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.54910348605116188 , new=",new,")"
3468  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 310720 "//trim(msg))
3469  insist(this%has_gamma( 1155 ).eqv..false.," 310721 has_gamma")
3470  insist(sum(this%binned(:, 1155 ))== 0.0000000000000000 ," 310721 has zero counts if not has_gamma")
3471  insist(this%has_gamma( 1156 ).eqv..false.," 320720 has_gamma")
3472  insist(sum(this%binned(:, 1156 ))== 0.0000000000000000 ," 320720 has zero counts if not has_gamma")
3473  insist(this%has_gamma( 1157 ).eqv..false.," 330720 has_gamma")
3474  insist(sum(this%binned(:, 1157 ))== 0.0000000000000000 ," 330720 has zero counts if not has_gamma")
3475  insist(this%has_gamma( 1158 ).eqv..false.," 340720 has_gamma")
3476  insist(sum(this%binned(:, 1158 ))== 0.0000000000000000 ," 340720 has zero counts if not has_gamma")
3477  insist(this%has_gamma( 1159 ).eqv..false.," 270730 has_gamma")
3478  insist(sum(this%binned(:, 1159 ))== 0.0000000000000000 ," 270730 has zero counts if not has_gamma")
3479  insist(this%has_gamma( 1160 ).eqv..false.," 280730 has_gamma")
3480  insist(sum(this%binned(:, 1160 ))== 0.0000000000000000 ," 280730 has zero counts if not has_gamma")
3481  insist(this%has_gamma( 1161 ).eqv..false.," 290730 has_gamma")
3482  insist(sum(this%binned(:, 1161 ))== 0.0000000000000000 ," 290730 has zero counts if not has_gamma")
3483  insist(this%has_gamma( 1162 ).eqv..false.," 300730 has_gamma")
3484  insist(sum(this%binned(:, 1162 ))== 0.0000000000000000 ," 300730 has zero counts if not has_gamma")
3485  insist(this%has_gamma( 1163 ).eqv..false.," 310730 has_gamma")
3486  insist(sum(this%binned(:, 1163 ))== 0.0000000000000000 ," 310730 has zero counts if not has_gamma")
3487  insist(this%has_gamma( 1164 ).eqv..false.," 320730 has_gamma")
3488  insist(sum(this%binned(:, 1164 ))== 0.0000000000000000 ," 320730 has zero counts if not has_gamma")
3489  insist(this%has_gamma( 1165 ).eqv..false.," 320731 has_gamma")
3490  insist(sum(this%binned(:, 1165 ))== 0.0000000000000000 ," 320731 has zero counts if not has_gamma")
3491  insist(this%has_gamma( 1166 ).eqv..false.," 330730 has_gamma")
3492  insist(sum(this%binned(:, 1166 ))== 0.0000000000000000 ," 330730 has zero counts if not has_gamma")
3493  insist(this%has_gamma( 1167 ).eqv..false.," 340730 has_gamma")
3494  insist(sum(this%binned(:, 1167 ))== 0.0000000000000000 ," 340730 has zero counts if not has_gamma")
3495  insist(this%has_gamma( 1168 ).eqv..false.," 340731 has_gamma")
3496  insist(sum(this%binned(:, 1168 ))== 0.0000000000000000 ," 340731 has zero counts if not has_gamma")
3497  insist(this%has_gamma( 1169 ).eqv..false.," 270740 has_gamma")
3498  insist(sum(this%binned(:, 1169 ))== 0.0000000000000000 ," 270740 has zero counts if not has_gamma")
3499  insist(this%has_gamma( 1170 ).eqv..false.," 280740 has_gamma")
3500  insist(sum(this%binned(:, 1170 ))== 0.0000000000000000 ," 280740 has zero counts if not has_gamma")
3501  insist(this%has_gamma( 1171 ).eqv..false.," 290740 has_gamma")
3502  insist(sum(this%binned(:, 1171 ))== 0.0000000000000000 ," 290740 has zero counts if not has_gamma")
3503  insist(this%has_gamma( 1172 ).eqv..true. ," 300740 has_gamma")
3504  ref= 1.0467891587610250
3505  new=sum(this%binned(:, 1172 ))
3506  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.0467891587610250 , new=",new,")"
3507  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 300740 "//trim(msg))
3508  insist(this%has_gamma( 1173 ).eqv..true. ," 310740 has_gamma")
3509  ref= 1.3838563969108930
3510  new=sum(this%binned(:, 1173 ))
3511  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.3838563969108930 , new=",new,")"
3512  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 310740 "//trim(msg))
3513  insist(this%has_gamma( 1174 ).eqv..false.," 310741 has_gamma")
3514  insist(sum(this%binned(:, 1174 ))== 0.0000000000000000 ," 310741 has zero counts if not has_gamma")
3515  insist(this%has_gamma( 1175 ).eqv..false.," 320740 has_gamma")
3516  insist(sum(this%binned(:, 1175 ))== 0.0000000000000000 ," 320740 has zero counts if not has_gamma")
3517  insist(this%has_gamma( 1176 ).eqv..false.," 330740 has_gamma")
3518  insist(sum(this%binned(:, 1176 ))== 0.0000000000000000 ," 330740 has zero counts if not has_gamma")
3519  insist(this%has_gamma( 1177 ).eqv..false.," 340740 has_gamma")
3520  insist(sum(this%binned(:, 1177 ))== 0.0000000000000000 ," 340740 has zero counts if not has_gamma")
3521  insist(this%has_gamma( 1178 ).eqv..false.," 270750 has_gamma")
3522  insist(sum(this%binned(:, 1178 ))== 0.0000000000000000 ," 270750 has zero counts if not has_gamma")
3523  insist(this%has_gamma( 1179 ).eqv..false.," 280750 has_gamma")
3524  insist(sum(this%binned(:, 1179 ))== 0.0000000000000000 ," 280750 has zero counts if not has_gamma")
3525  insist(this%has_gamma( 1180 ).eqv..false.," 290750 has_gamma")
3526  insist(sum(this%binned(:, 1180 ))== 0.0000000000000000 ," 290750 has zero counts if not has_gamma")
3527  insist(this%has_gamma( 1181 ).eqv..false.," 300750 has_gamma")
3528  insist(sum(this%binned(:, 1181 ))== 0.0000000000000000 ," 300750 has zero counts if not has_gamma")
3529  insist(this%has_gamma( 1182 ).eqv..false.," 310750 has_gamma")
3530  insist(sum(this%binned(:, 1182 ))== 0.0000000000000000 ," 310750 has zero counts if not has_gamma")
3531  insist(this%has_gamma( 1183 ).eqv..true. ," 320750 has_gamma")
3532  ref= 0.44207167789574253
3533  new=sum(this%binned(:, 1183 ))
3534  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.44207167789574253 , new=",new,")"
3535  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 320750 "//trim(msg))
3536  insist(this%has_gamma( 1184 ).eqv..false.," 320751 has_gamma")
3537  insist(sum(this%binned(:, 1184 ))== 0.0000000000000000 ," 320751 has zero counts if not has_gamma")
3538  insist(this%has_gamma( 1185 ).eqv..false.," 330750 has_gamma")
3539  insist(sum(this%binned(:, 1185 ))== 0.0000000000000000 ," 330750 has zero counts if not has_gamma")
3540  insist(this%has_gamma( 1186 ).eqv..false.," 330751 has_gamma")
3541  insist(sum(this%binned(:, 1186 ))== 0.0000000000000000 ," 330751 has zero counts if not has_gamma")
3542  insist(this%has_gamma( 1187 ).eqv..false.," 340750 has_gamma")
3543  insist(sum(this%binned(:, 1187 ))== 0.0000000000000000 ," 340750 has zero counts if not has_gamma")
3544  insist(this%has_gamma( 1188 ).eqv..false.," 350750 has_gamma")
3545  insist(sum(this%binned(:, 1188 ))== 0.0000000000000000 ," 350750 has zero counts if not has_gamma")
3546  insist(this%has_gamma( 1189 ).eqv..false.," 280760 has_gamma")
3547  insist(sum(this%binned(:, 1189 ))== 0.0000000000000000 ," 280760 has zero counts if not has_gamma")
3548  insist(this%has_gamma( 1190 ).eqv..false.," 290760 has_gamma")
3549  insist(sum(this%binned(:, 1190 ))== 0.0000000000000000 ," 290760 has zero counts if not has_gamma")
3550  insist(this%has_gamma( 1191 ).eqv..false.," 300760 has_gamma")
3551  insist(sum(this%binned(:, 1191 ))== 0.0000000000000000 ," 300760 has zero counts if not has_gamma")
3552  insist(this%has_gamma( 1192 ).eqv..true. ," 310760 has_gamma")
3553  ref= 2.6920613214616580
3554  new=sum(this%binned(:, 1192 ))
3555  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.6920613214616580 , new=",new,")"
3556  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 310760 "//trim(msg))
3557  insist(this%has_gamma( 1193 ).eqv..false.," 320760 has_gamma")
3558  insist(sum(this%binned(:, 1193 ))== 0.0000000000000000 ," 320760 has zero counts if not has_gamma")
3559  insist(this%has_gamma( 1194 ).eqv..true. ," 330760 has_gamma")
3560  ref= 1.2892092204483565
3561  new=sum(this%binned(:, 1194 ))
3562  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2892092204483565 , new=",new,")"
3563  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 330760 "//trim(msg))
3564  insist(this%has_gamma( 1195 ).eqv..false.," 340760 has_gamma")
3565  insist(sum(this%binned(:, 1195 ))== 0.0000000000000000 ," 340760 has zero counts if not has_gamma")
3566  insist(this%has_gamma( 1196 ).eqv..false.," 280770 has_gamma")
3567  insist(sum(this%binned(:, 1196 ))== 0.0000000000000000 ," 280770 has zero counts if not has_gamma")
3568  insist(this%has_gamma( 1197 ).eqv..false.," 290770 has_gamma")
3569  insist(sum(this%binned(:, 1197 ))== 0.0000000000000000 ," 290770 has zero counts if not has_gamma")
3570  insist(this%has_gamma( 1198 ).eqv..false.," 300770 has_gamma")
3571  insist(sum(this%binned(:, 1198 ))== 0.0000000000000000 ," 300770 has zero counts if not has_gamma")
3572  insist(this%has_gamma( 1199 ).eqv..false.," 310770 has_gamma")
3573  insist(sum(this%binned(:, 1199 ))== 0.0000000000000000 ," 310770 has zero counts if not has_gamma")
3574  insist(this%has_gamma( 1200 ).eqv..true. ," 320770 has_gamma")
3575  ref= 0.73257897902610103
3576  new=sum(this%binned(:, 1200 ))
3577  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.73257897902610103 , new=",new,")"
3578  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 320770 "//trim(msg))
3579  insist(this%has_gamma( 1201 ).eqv..true. ," 320771 has_gamma")
3580  ref= 1.1353219258722906
3581  new=sum(this%binned(:, 1201 ))
3582  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.1353219258722906 , new=",new,")"
3583  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 320771 "//trim(msg))
3584  insist(this%has_gamma( 1202 ).eqv..true. ," 330770 has_gamma")
3585  ref= 0.21992764589933780
3586  new=sum(this%binned(:, 1202 ))
3587  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.21992764589933780 , new=",new,")"
3588  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 330770 "//trim(msg))
3589  insist(this%has_gamma( 1203 ).eqv..false.," 340770 has_gamma")
3590  insist(sum(this%binned(:, 1203 ))== 0.0000000000000000 ," 340770 has zero counts if not has_gamma")
3591  insist(this%has_gamma( 1204 ).eqv..false.," 340771 has_gamma")
3592  insist(sum(this%binned(:, 1204 ))== 0.0000000000000000 ," 340771 has zero counts if not has_gamma")
3593  insist(this%has_gamma( 1205 ).eqv..false.," 350770 has_gamma")
3594  insist(sum(this%binned(:, 1205 ))== 0.0000000000000000 ," 350770 has zero counts if not has_gamma")
3595  insist(this%has_gamma( 1206 ).eqv..false.," 350771 has_gamma")
3596  insist(sum(this%binned(:, 1206 ))== 0.0000000000000000 ," 350771 has zero counts if not has_gamma")
3597  insist(this%has_gamma( 1207 ).eqv..false.," 360770 has_gamma")
3598  insist(sum(this%binned(:, 1207 ))== 0.0000000000000000 ," 360770 has zero counts if not has_gamma")
3599  insist(this%has_gamma( 1208 ).eqv..false.," 280780 has_gamma")
3600  insist(sum(this%binned(:, 1208 ))== 0.0000000000000000 ," 280780 has zero counts if not has_gamma")
3601  insist(this%has_gamma( 1209 ).eqv..false.," 290780 has_gamma")
3602  insist(sum(this%binned(:, 1209 ))== 0.0000000000000000 ," 290780 has zero counts if not has_gamma")
3603  insist(this%has_gamma( 1210 ).eqv..false.," 300780 has_gamma")
3604  insist(sum(this%binned(:, 1210 ))== 0.0000000000000000 ," 300780 has zero counts if not has_gamma")
3605  insist(this%has_gamma( 1211 ).eqv..false.," 310780 has_gamma")
3606  insist(sum(this%binned(:, 1211 ))== 0.0000000000000000 ," 310780 has zero counts if not has_gamma")
3607  insist(this%has_gamma( 1212 ).eqv..true. ," 320780 has_gamma")
3608  ref= 0.22897752262353060
3609  new=sum(this%binned(:, 1212 ))
3610  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.22897752262353060 , new=",new,")"
3611  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 320780 "//trim(msg))
3612  insist(this%has_gamma( 1213 ).eqv..true. ," 330780 has_gamma")
3613  ref= 1.6245150784916405
3614  new=sum(this%binned(:, 1213 ))
3615  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.6245150784916405 , new=",new,")"
3616  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 330780 "//trim(msg))
3617  insist(this%has_gamma( 1214 ).eqv..false.," 340780 has_gamma")
3618  insist(sum(this%binned(:, 1214 ))== 0.0000000000000000 ," 340780 has zero counts if not has_gamma")
3619  insist(this%has_gamma( 1215 ).eqv..false.," 350780 has_gamma")
3620  insist(sum(this%binned(:, 1215 ))== 0.0000000000000000 ," 350780 has zero counts if not has_gamma")
3621  insist(this%has_gamma( 1216 ).eqv..false.," 360780 has_gamma")
3622  insist(sum(this%binned(:, 1216 ))== 0.0000000000000000 ," 360780 has zero counts if not has_gamma")
3623  insist(this%has_gamma( 1217 ).eqv..false.," 290790 has_gamma")
3624  insist(sum(this%binned(:, 1217 ))== 0.0000000000000000 ," 290790 has zero counts if not has_gamma")
3625  insist(this%has_gamma( 1218 ).eqv..false.," 300790 has_gamma")
3626  insist(sum(this%binned(:, 1218 ))== 0.0000000000000000 ," 300790 has zero counts if not has_gamma")
3627  insist(this%has_gamma( 1219 ).eqv..false.," 310790 has_gamma")
3628  insist(sum(this%binned(:, 1219 ))== 0.0000000000000000 ," 310790 has zero counts if not has_gamma")
3629  insist(this%has_gamma( 1220 ).eqv..true. ," 320790 has_gamma")
3630  ref= 1.9500463599642888
3631  new=sum(this%binned(:, 1220 ))
3632  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.9500463599642888 , new=",new,")"
3633  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 320790 "//trim(msg))
3634  insist(this%has_gamma( 1221 ).eqv..false.," 320791 has_gamma")
3635  insist(sum(this%binned(:, 1221 ))== 0.0000000000000000 ," 320791 has zero counts if not has_gamma")
3636  insist(this%has_gamma( 1222 ).eqv..true. ," 330790 has_gamma")
3637  ref= 0.98792303115040181
3638  new=sum(this%binned(:, 1222 ))
3639  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.98792303115040181 , new=",new,")"
3640  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 330790 "//trim(msg))
3641  insist(this%has_gamma( 1223 ).eqv..true. ," 340790 has_gamma")
3642  ref= 3.6759974434876781e-002
3643  new=sum(this%binned(:, 1223 ))
3644  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.6759974434876781E-002 , new=",new,")"
3645  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 340790 "//trim(msg))
3646  insist(this%has_gamma( 1224 ).eqv..false.," 340791 has_gamma")
3647  insist(sum(this%binned(:, 1224 ))== 0.0000000000000000 ," 340791 has zero counts if not has_gamma")
3648  insist(this%has_gamma( 1225 ).eqv..false.," 350790 has_gamma")
3649  insist(sum(this%binned(:, 1225 ))== 0.0000000000000000 ," 350790 has zero counts if not has_gamma")
3650  insist(this%has_gamma( 1226 ).eqv..false.," 350791 has_gamma")
3651  insist(sum(this%binned(:, 1226 ))== 0.0000000000000000 ," 350791 has zero counts if not has_gamma")
3652  insist(this%has_gamma( 1227 ).eqv..true. ," 360790 has_gamma")
3653  ref= 5.5476567838820726e-002
3654  new=sum(this%binned(:, 1227 ))
3655  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.5476567838820726E-002 , new=",new,")"
3656  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 360790 "//trim(msg))
3657  insist(this%has_gamma( 1228 ).eqv..false.," 360791 has_gamma")
3658  insist(sum(this%binned(:, 1228 ))== 0.0000000000000000 ," 360791 has zero counts if not has_gamma")
3659  insist(this%has_gamma( 1229 ).eqv..false.," 370790 has_gamma")
3660  insist(sum(this%binned(:, 1229 ))== 0.0000000000000000 ," 370790 has zero counts if not has_gamma")
3661  insist(this%has_gamma( 1230 ).eqv..false.," 290800 has_gamma")
3662  insist(sum(this%binned(:, 1230 ))== 0.0000000000000000 ," 290800 has zero counts if not has_gamma")
3663  insist(this%has_gamma( 1231 ).eqv..false.," 300800 has_gamma")
3664  insist(sum(this%binned(:, 1231 ))== 0.0000000000000000 ," 300800 has zero counts if not has_gamma")
3665  insist(this%has_gamma( 1232 ).eqv..false.," 310800 has_gamma")
3666  insist(sum(this%binned(:, 1232 ))== 0.0000000000000000 ," 310800 has zero counts if not has_gamma")
3667  insist(this%has_gamma( 1233 ).eqv..false.," 320800 has_gamma")
3668  insist(sum(this%binned(:, 1233 ))== 0.0000000000000000 ," 320800 has zero counts if not has_gamma")
3669  insist(this%has_gamma( 1234 ).eqv..true. ," 330800 has_gamma")
3670  ref= 3.2268907000685081
3671  new=sum(this%binned(:, 1234 ))
3672  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.2268907000685081 , new=",new,")"
3673  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 330800 "//trim(msg))
3674  insist(this%has_gamma( 1235 ).eqv..false.," 340800 has_gamma")
3675  insist(sum(this%binned(:, 1235 ))== 0.0000000000000000 ," 340800 has zero counts if not has_gamma")
3676  insist(this%has_gamma( 1236 ).eqv..true. ," 350800 has_gamma")
3677  ref= 0.77559239318698625
3678  new=sum(this%binned(:, 1236 ))
3679  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.77559239318698625 , new=",new,")"
3680  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 350800 "//trim(msg))
3681  insist(this%has_gamma( 1237 ).eqv..false.," 350801 has_gamma")
3682  insist(sum(this%binned(:, 1237 ))== 0.0000000000000000 ," 350801 has zero counts if not has_gamma")
3683  insist(this%has_gamma( 1238 ).eqv..false.," 360800 has_gamma")
3684  insist(sum(this%binned(:, 1238 ))== 0.0000000000000000 ," 360800 has zero counts if not has_gamma")
3685  insist(this%has_gamma( 1239 ).eqv..false.," 300810 has_gamma")
3686  insist(sum(this%binned(:, 1239 ))== 0.0000000000000000 ," 300810 has zero counts if not has_gamma")
3687  insist(this%has_gamma( 1240 ).eqv..false.," 310810 has_gamma")
3688  insist(sum(this%binned(:, 1240 ))== 0.0000000000000000 ," 310810 has zero counts if not has_gamma")
3689  insist(this%has_gamma( 1241 ).eqv..false.," 320810 has_gamma")
3690  insist(sum(this%binned(:, 1241 ))== 0.0000000000000000 ," 320810 has zero counts if not has_gamma")
3691  insist(this%has_gamma( 1242 ).eqv..false.," 320811 has_gamma")
3692  insist(sum(this%binned(:, 1242 ))== 0.0000000000000000 ," 320811 has zero counts if not has_gamma")
3693  insist(this%has_gamma( 1243 ).eqv..false.," 330810 has_gamma")
3694  insist(sum(this%binned(:, 1243 ))== 0.0000000000000000 ," 330810 has zero counts if not has_gamma")
3695  insist(this%has_gamma( 1244 ).eqv..false.," 340810 has_gamma")
3696  insist(sum(this%binned(:, 1244 ))== 0.0000000000000000 ," 340810 has zero counts if not has_gamma")
3697  insist(this%has_gamma( 1245 ).eqv..false.," 340811 has_gamma")
3698  insist(sum(this%binned(:, 1245 ))== 0.0000000000000000 ," 340811 has zero counts if not has_gamma")
3699  insist(this%has_gamma( 1246 ).eqv..false.," 350810 has_gamma")
3700  insist(sum(this%binned(:, 1246 ))== 0.0000000000000000 ," 350810 has zero counts if not has_gamma")
3701  insist(this%has_gamma( 1247 ).eqv..false.," 360810 has_gamma")
3702  insist(sum(this%binned(:, 1247 ))== 0.0000000000000000 ," 360810 has zero counts if not has_gamma")
3703  insist(this%has_gamma( 1248 ).eqv..false.," 360811 has_gamma")
3704  insist(sum(this%binned(:, 1248 ))== 0.0000000000000000 ," 360811 has zero counts if not has_gamma")
3705  insist(this%has_gamma( 1249 ).eqv..false.," 370810 has_gamma")
3706  insist(sum(this%binned(:, 1249 ))== 0.0000000000000000 ," 370810 has zero counts if not has_gamma")
3707  insist(this%has_gamma( 1250 ).eqv..false.," 300820 has_gamma")
3708  insist(sum(this%binned(:, 1250 ))== 0.0000000000000000 ," 300820 has zero counts if not has_gamma")
3709  insist(this%has_gamma( 1251 ).eqv..false.," 310820 has_gamma")
3710  insist(sum(this%binned(:, 1251 ))== 0.0000000000000000 ," 310820 has zero counts if not has_gamma")
3711  insist(this%has_gamma( 1252 ).eqv..false.," 320820 has_gamma")
3712  insist(sum(this%binned(:, 1252 ))== 0.0000000000000000 ," 320820 has zero counts if not has_gamma")
3713  insist(this%has_gamma( 1253 ).eqv..true. ," 330820 has_gamma")
3714  ref= 4.1499150279917094
3715  new=sum(this%binned(:, 1253 ))
3716  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.1499150279917094 , new=",new,")"
3717  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 330820 "//trim(msg))
3718  insist(this%has_gamma( 1254 ).eqv..true. ," 330821 has_gamma")
3719  ref= 2.3132140441630327
3720  new=sum(this%binned(:, 1254 ))
3721  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.3132140441630327 , new=",new,")"
3722  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 330821 "//trim(msg))
3723  insist(this%has_gamma( 1255 ).eqv..false.," 340820 has_gamma")
3724  insist(sum(this%binned(:, 1255 ))== 0.0000000000000000 ," 340820 has zero counts if not has_gamma")
3725  insist(this%has_gamma( 1256 ).eqv..true. ," 350820 has_gamma")
3726  ref= 0.12020021954554848
3727  new=sum(this%binned(:, 1256 ))
3728  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.12020021954554848 , new=",new,")"
3729  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 350820 "//trim(msg))
3730  insist(this%has_gamma( 1257 ).eqv..true. ," 350821 has_gamma")
3731  ref= 9.4313711645749483e-004
3732  new=sum(this%binned(:, 1257 ))
3733  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 9.4313711645749483E-004 , new=",new,")"
3734  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 350821 "//trim(msg))
3735  insist(this%has_gamma( 1258 ).eqv..false.," 360820 has_gamma")
3736  insist(sum(this%binned(:, 1258 ))== 0.0000000000000000 ," 360820 has zero counts if not has_gamma")
3737  insist(this%has_gamma( 1259 ).eqv..false.," 300830 has_gamma")
3738  insist(sum(this%binned(:, 1259 ))== 0.0000000000000000 ," 300830 has zero counts if not has_gamma")
3739  insist(this%has_gamma( 1260 ).eqv..false.," 310830 has_gamma")
3740  insist(sum(this%binned(:, 1260 ))== 0.0000000000000000 ," 310830 has zero counts if not has_gamma")
3741  insist(this%has_gamma( 1261 ).eqv..false.," 320830 has_gamma")
3742  insist(sum(this%binned(:, 1261 ))== 0.0000000000000000 ," 320830 has zero counts if not has_gamma")
3743  insist(this%has_gamma( 1262 ).eqv..false.," 330830 has_gamma")
3744  insist(sum(this%binned(:, 1262 ))== 0.0000000000000000 ," 330830 has zero counts if not has_gamma")
3745  insist(this%has_gamma( 1263 ).eqv..true. ," 340830 has_gamma")
3746  ref= 0.60150839844070703
3747  new=sum(this%binned(:, 1263 ))
3748  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.60150839844070703 , new=",new,")"
3749  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 340830 "//trim(msg))
3750  insist(this%has_gamma( 1264 ).eqv..true. ," 340831 has_gamma")
3751  ref= 1.7093609387456612
3752  new=sum(this%binned(:, 1264 ))
3753  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.7093609387456612 , new=",new,")"
3754  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 340831 "//trim(msg))
3755  insist(this%has_gamma( 1265 ).eqv..true. ," 350830 has_gamma")
3756  ref= 0.32627888912931968
3757  new=sum(this%binned(:, 1265 ))
3758  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.32627888912931968 , new=",new,")"
3759  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 350830 "//trim(msg))
3760  insist(this%has_gamma( 1266 ).eqv..false.," 360830 has_gamma")
3761  insist(sum(this%binned(:, 1266 ))== 0.0000000000000000 ," 360830 has zero counts if not has_gamma")
3762  insist(this%has_gamma( 1267 ).eqv..false.," 360831 has_gamma")
3763  insist(sum(this%binned(:, 1267 ))== 0.0000000000000000 ," 360831 has zero counts if not has_gamma")
3764  insist(this%has_gamma( 1268 ).eqv..false.," 370830 has_gamma")
3765  insist(sum(this%binned(:, 1268 ))== 0.0000000000000000 ," 370830 has zero counts if not has_gamma")
3766  insist(this%has_gamma( 1269 ).eqv..false.," 380830 has_gamma")
3767  insist(sum(this%binned(:, 1269 ))== 0.0000000000000000 ," 380830 has zero counts if not has_gamma")
3768  insist(this%has_gamma( 1270 ).eqv..false.," 310840 has_gamma")
3769  insist(sum(this%binned(:, 1270 ))== 0.0000000000000000 ," 310840 has zero counts if not has_gamma")
3770  insist(this%has_gamma( 1271 ).eqv..false.," 320840 has_gamma")
3771  insist(sum(this%binned(:, 1271 ))== 0.0000000000000000 ," 320840 has zero counts if not has_gamma")
3772  insist(this%has_gamma( 1272 ).eqv..false.," 330840 has_gamma")
3773  insist(sum(this%binned(:, 1272 ))== 0.0000000000000000 ," 330840 has zero counts if not has_gamma")
3774  insist(this%has_gamma( 1273 ).eqv..false.," 340840 has_gamma")
3775  insist(sum(this%binned(:, 1273 ))== 0.0000000000000000 ," 340840 has zero counts if not has_gamma")
3776  insist(this%has_gamma( 1274 ).eqv..true. ," 350840 has_gamma")
3777  ref= 1.5590428622304187
3778  new=sum(this%binned(:, 1274 ))
3779  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.5590428622304187 , new=",new,")"
3780  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 350840 "//trim(msg))
3781  insist(this%has_gamma( 1275 ).eqv..false.," 350841 has_gamma")
3782  insist(sum(this%binned(:, 1275 ))== 0.0000000000000000 ," 350841 has zero counts if not has_gamma")
3783  insist(this%has_gamma( 1276 ).eqv..false.," 360840 has_gamma")
3784  insist(sum(this%binned(:, 1276 ))== 0.0000000000000000 ," 360840 has zero counts if not has_gamma")
3785  insist(this%has_gamma( 1277 ).eqv..false.," 370840 has_gamma")
3786  insist(sum(this%binned(:, 1277 ))== 0.0000000000000000 ," 370840 has zero counts if not has_gamma")
3787  insist(this%has_gamma( 1278 ).eqv..false.," 380840 has_gamma")
3788  insist(sum(this%binned(:, 1278 ))== 0.0000000000000000 ," 380840 has zero counts if not has_gamma")
3789  insist(this%has_gamma( 1279 ).eqv..false.," 310850 has_gamma")
3790  insist(sum(this%binned(:, 1279 ))== 0.0000000000000000 ," 310850 has zero counts if not has_gamma")
3791  insist(this%has_gamma( 1280 ).eqv..false.," 320850 has_gamma")
3792  insist(sum(this%binned(:, 1280 ))== 0.0000000000000000 ," 320850 has zero counts if not has_gamma")
3793  insist(this%has_gamma( 1281 ).eqv..false.," 330850 has_gamma")
3794  insist(sum(this%binned(:, 1281 ))== 0.0000000000000000 ," 330850 has zero counts if not has_gamma")
3795  insist(this%has_gamma( 1282 ).eqv..false.," 340850 has_gamma")
3796  insist(sum(this%binned(:, 1282 ))== 0.0000000000000000 ," 340850 has zero counts if not has_gamma")
3797  insist(this%has_gamma( 1283 ).eqv..true. ," 350850 has_gamma")
3798  ref= 1.2189009529399759
3799  new=sum(this%binned(:, 1283 ))
3800  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2189009529399759 , new=",new,")"
3801  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 350850 "//trim(msg))
3802  insist(this%has_gamma( 1284 ).eqv..true. ," 360850 has_gamma")
3803  ref= 0.24726424389526619
3804  new=sum(this%binned(:, 1284 ))
3805  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.24726424389526619 , new=",new,")"
3806  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 360850 "//trim(msg))
3807  insist(this%has_gamma( 1285 ).eqv..true. ," 360851 has_gamma")
3808  ref= 0.18059291069431535
3809  new=sum(this%binned(:, 1285 ))
3810  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.18059291069431535 , new=",new,")"
3811  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 360851 "//trim(msg))
3812  insist(this%has_gamma( 1286 ).eqv..false.," 370850 has_gamma")
3813  insist(sum(this%binned(:, 1286 ))== 0.0000000000000000 ," 370850 has zero counts if not has_gamma")
3814  insist(this%has_gamma( 1287 ).eqv..false.," 380850 has_gamma")
3815  insist(sum(this%binned(:, 1287 ))== 0.0000000000000000 ," 380850 has zero counts if not has_gamma")
3816  insist(this%has_gamma( 1288 ).eqv..false.," 380851 has_gamma")
3817  insist(sum(this%binned(:, 1288 ))== 0.0000000000000000 ," 380851 has zero counts if not has_gamma")
3818  insist(this%has_gamma( 1289 ).eqv..false.," 390850 has_gamma")
3819  insist(sum(this%binned(:, 1289 ))== 0.0000000000000000 ," 390850 has zero counts if not has_gamma")
3820  insist(this%has_gamma( 1290 ).eqv..false.," 310860 has_gamma")
3821  insist(sum(this%binned(:, 1290 ))== 0.0000000000000000 ," 310860 has zero counts if not has_gamma")
3822  insist(this%has_gamma( 1291 ).eqv..false.," 320860 has_gamma")
3823  insist(sum(this%binned(:, 1291 ))== 0.0000000000000000 ," 320860 has zero counts if not has_gamma")
3824  insist(this%has_gamma( 1292 ).eqv..false.," 330860 has_gamma")
3825  insist(sum(this%binned(:, 1292 ))== 0.0000000000000000 ," 330860 has zero counts if not has_gamma")
3826  insist(this%has_gamma( 1293 ).eqv..false.," 340860 has_gamma")
3827  insist(sum(this%binned(:, 1293 ))== 0.0000000000000000 ," 340860 has zero counts if not has_gamma")
3828  insist(this%has_gamma( 1294 ).eqv..false.," 350860 has_gamma")
3829  insist(sum(this%binned(:, 1294 ))== 0.0000000000000000 ," 350860 has zero counts if not has_gamma")
3830  insist(this%has_gamma( 1295 ).eqv..false.," 360860 has_gamma")
3831  insist(sum(this%binned(:, 1295 ))== 0.0000000000000000 ," 360860 has zero counts if not has_gamma")
3832  insist(this%has_gamma( 1296 ).eqv..true. ," 370860 has_gamma")
3833  ref= 0.76634182647394378
3834  new=sum(this%binned(:, 1296 ))
3835  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.76634182647394378 , new=",new,")"
3836  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 370860 "//trim(msg))
3837  insist(this%has_gamma( 1297 ).eqv..false.," 370861 has_gamma")
3838  insist(sum(this%binned(:, 1297 ))== 0.0000000000000000 ," 370861 has zero counts if not has_gamma")
3839  insist(this%has_gamma( 1298 ).eqv..false.," 380860 has_gamma")
3840  insist(sum(this%binned(:, 1298 ))== 0.0000000000000000 ," 380860 has zero counts if not has_gamma")
3841  insist(this%has_gamma( 1299 ).eqv..false.," 320870 has_gamma")
3842  insist(sum(this%binned(:, 1299 ))== 0.0000000000000000 ," 320870 has zero counts if not has_gamma")
3843  insist(this%has_gamma( 1300 ).eqv..false.," 330870 has_gamma")
3844  insist(sum(this%binned(:, 1300 ))== 0.0000000000000000 ," 330870 has zero counts if not has_gamma")
3845  insist(this%has_gamma( 1301 ).eqv..false.," 340870 has_gamma")
3846  insist(sum(this%binned(:, 1301 ))== 0.0000000000000000 ," 340870 has zero counts if not has_gamma")
3847  insist(this%has_gamma( 1302 ).eqv..false.," 350870 has_gamma")
3848  insist(sum(this%binned(:, 1302 ))== 0.0000000000000000 ," 350870 has zero counts if not has_gamma")
3849  insist(this%has_gamma( 1303 ).eqv..true. ," 360870 has_gamma")
3850  ref= 1.6466898847232692
3851  new=sum(this%binned(:, 1303 ))
3852  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.6466898847232692 , new=",new,")"
3853  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 360870 "//trim(msg))
3854  insist(this%has_gamma( 1304 ).eqv..true. ," 370870 has_gamma")
3855  ref= 6.0877798994170014e-002
3856  new=sum(this%binned(:, 1304 ))
3857  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.0877798994170014E-002 , new=",new,")"
3858  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 370870 "//trim(msg))
3859  insist(this%has_gamma( 1305 ).eqv..false.," 380870 has_gamma")
3860  insist(sum(this%binned(:, 1305 ))== 0.0000000000000000 ," 380870 has zero counts if not has_gamma")
3861  insist(this%has_gamma( 1306 ).eqv..false.," 380871 has_gamma")
3862  insist(sum(this%binned(:, 1306 ))== 0.0000000000000000 ," 380871 has zero counts if not has_gamma")
3863  insist(this%has_gamma( 1307 ).eqv..false.," 390870 has_gamma")
3864  insist(sum(this%binned(:, 1307 ))== 0.0000000000000000 ," 390870 has zero counts if not has_gamma")
3865  insist(this%has_gamma( 1308 ).eqv..false.," 390871 has_gamma")
3866  insist(sum(this%binned(:, 1308 ))== 0.0000000000000000 ," 390871 has zero counts if not has_gamma")
3867  insist(this%has_gamma( 1309 ).eqv..false.," 400870 has_gamma")
3868  insist(sum(this%binned(:, 1309 ))== 0.0000000000000000 ," 400870 has zero counts if not has_gamma")
3869  insist(this%has_gamma( 1310 ).eqv..false.," 320880 has_gamma")
3870  insist(sum(this%binned(:, 1310 ))== 0.0000000000000000 ," 320880 has zero counts if not has_gamma")
3871  insist(this%has_gamma( 1311 ).eqv..false.," 330880 has_gamma")
3872  insist(sum(this%binned(:, 1311 ))== 0.0000000000000000 ," 330880 has zero counts if not has_gamma")
3873  insist(this%has_gamma( 1312 ).eqv..false.," 340880 has_gamma")
3874  insist(sum(this%binned(:, 1312 ))== 0.0000000000000000 ," 340880 has zero counts if not has_gamma")
3875  insist(this%has_gamma( 1313 ).eqv..true. ," 350880 has_gamma")
3876  ref= 3.1934370054461776
3877  new=sum(this%binned(:, 1313 ))
3878  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.1934370054461776 , new=",new,")"
3879  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 350880 "//trim(msg))
3880  insist(this%has_gamma( 1314 ).eqv..true. ," 360880 has_gamma")
3881  ref= 0.39692490516986828
3882  new=sum(this%binned(:, 1314 ))
3883  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.39692490516986828 , new=",new,")"
3884  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 360880 "//trim(msg))
3885  insist(this%has_gamma( 1315 ).eqv..true. ," 370880 has_gamma")
3886  ref= 2.6814872124505200
3887  new=sum(this%binned(:, 1315 ))
3888  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.6814872124505200 , new=",new,")"
3889  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 370880 "//trim(msg))
3890  insist(this%has_gamma( 1316 ).eqv..false.," 380880 has_gamma")
3891  insist(sum(this%binned(:, 1316 ))== 0.0000000000000000 ," 380880 has zero counts if not has_gamma")
3892  insist(this%has_gamma( 1317 ).eqv..false.," 390880 has_gamma")
3893  insist(sum(this%binned(:, 1317 ))== 0.0000000000000000 ," 390880 has zero counts if not has_gamma")
3894  insist(this%has_gamma( 1318 ).eqv..false.," 400880 has_gamma")
3895  insist(sum(this%binned(:, 1318 ))== 0.0000000000000000 ," 400880 has zero counts if not has_gamma")
3896  insist(this%has_gamma( 1319 ).eqv..false.," 320890 has_gamma")
3897  insist(sum(this%binned(:, 1319 ))== 0.0000000000000000 ," 320890 has zero counts if not has_gamma")
3898  insist(this%has_gamma( 1320 ).eqv..false.," 330890 has_gamma")
3899  insist(sum(this%binned(:, 1320 ))== 0.0000000000000000 ," 330890 has zero counts if not has_gamma")
3900  insist(this%has_gamma( 1321 ).eqv..false.," 340890 has_gamma")
3901  insist(sum(this%binned(:, 1321 ))== 0.0000000000000000 ," 340890 has zero counts if not has_gamma")
3902  insist(this%has_gamma( 1322 ).eqv..false.," 350890 has_gamma")
3903  insist(sum(this%binned(:, 1322 ))== 0.0000000000000000 ," 350890 has zero counts if not has_gamma")
3904  insist(this%has_gamma( 1323 ).eqv..true. ," 360890 has_gamma")
3905  ref= 1.7115933390916780
3906  new=sum(this%binned(:, 1323 ))
3907  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.7115933390916780 , new=",new,")"
3908  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 360890 "//trim(msg))
3909  insist(this%has_gamma( 1324 ).eqv..true. ," 370890 has_gamma")
3910  ref= 1.2452066888549780
3911  new=sum(this%binned(:, 1324 ))
3912  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2452066888549780 , new=",new,")"
3913  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 370890 "//trim(msg))
3914  insist(this%has_gamma( 1325 ).eqv..true. ," 380890 has_gamma")
3915  ref= 0.65625788511815231
3916  new=sum(this%binned(:, 1325 ))
3917  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.65625788511815231 , new=",new,")"
3918  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 380890 "//trim(msg))
3919  insist(this%has_gamma( 1326 ).eqv..false.," 390890 has_gamma")
3920  insist(sum(this%binned(:, 1326 ))== 0.0000000000000000 ," 390890 has zero counts if not has_gamma")
3921  insist(this%has_gamma( 1327 ).eqv..false.," 390891 has_gamma")
3922  insist(sum(this%binned(:, 1327 ))== 0.0000000000000000 ," 390891 has zero counts if not has_gamma")
3923  insist(this%has_gamma( 1328 ).eqv..true. ," 400890 has_gamma")
3924  ref= 0.21884140142702282
3925  new=sum(this%binned(:, 1328 ))
3926  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.21884140142702282 , new=",new,")"
3927  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 400890 "//trim(msg))
3928  insist(this%has_gamma( 1329 ).eqv..false.," 400891 has_gamma")
3929  insist(sum(this%binned(:, 1329 ))== 0.0000000000000000 ," 400891 has zero counts if not has_gamma")
3930  insist(this%has_gamma( 1330 ).eqv..false.," 410890 has_gamma")
3931  insist(sum(this%binned(:, 1330 ))== 0.0000000000000000 ," 410890 has zero counts if not has_gamma")
3932  insist(this%has_gamma( 1331 ).eqv..false.," 330900 has_gamma")
3933  insist(sum(this%binned(:, 1331 ))== 0.0000000000000000 ," 330900 has zero counts if not has_gamma")
3934  insist(this%has_gamma( 1332 ).eqv..false.," 340900 has_gamma")
3935  insist(sum(this%binned(:, 1332 ))== 0.0000000000000000 ," 340900 has zero counts if not has_gamma")
3936  insist(this%has_gamma( 1333 ).eqv..false.," 350900 has_gamma")
3937  insist(sum(this%binned(:, 1333 ))== 0.0000000000000000 ," 350900 has zero counts if not has_gamma")
3938  insist(this%has_gamma( 1334 ).eqv..true. ," 360900 has_gamma")
3939  ref= 1.5891333741087694
3940  new=sum(this%binned(:, 1334 ))
3941  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.5891333741087694 , new=",new,")"
3942  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 360900 "//trim(msg))
3943  insist(this%has_gamma( 1335 ).eqv..true. ," 370900 has_gamma")
3944  ref= 2.4034708906640394
3945  new=sum(this%binned(:, 1335 ))
3946  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.4034708906640394 , new=",new,")"
3947  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 370900 "//trim(msg))
3948  insist(this%has_gamma( 1336 ).eqv..true. ," 370901 has_gamma")
3949  ref= 1.5050228474498824
3950  new=sum(this%binned(:, 1336 ))
3951  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.5050228474498824 , new=",new,")"
3952  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 370901 "//trim(msg))
3953  insist(this%has_gamma( 1337 ).eqv..true. ," 380900 has_gamma")
3954  ref= 0.18447088309130777
3955  new=sum(this%binned(:, 1337 ))
3956  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.18447088309130777 , new=",new,")"
3957  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 380900 "//trim(msg))
3958  insist(this%has_gamma( 1338 ).eqv..true. ," 390900 has_gamma")
3959  ref= 1.1175127279733594
3960  new=sum(this%binned(:, 1338 ))
3961  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.1175127279733594 , new=",new,")"
3962  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 390900 "//trim(msg))
3963  insist(this%has_gamma( 1339 ).eqv..true. ," 390901 has_gamma")
3964  ref= 1.4444724824302237e-009
3965  new=sum(this%binned(:, 1339 ))
3966  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4444724824302237E-009 , new=",new,")"
3967  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 390901 "//trim(msg))
3968  insist(this%has_gamma( 1340 ).eqv..false.," 400900 has_gamma")
3969  insist(sum(this%binned(:, 1340 ))== 0.0000000000000000 ," 400900 has zero counts if not has_gamma")
3970  insist(this%has_gamma( 1341 ).eqv..false.," 400901 has_gamma")
3971  insist(sum(this%binned(:, 1341 ))== 0.0000000000000000 ," 400901 has zero counts if not has_gamma")
3972  insist(this%has_gamma( 1342 ).eqv..false.," 410900 has_gamma")
3973  insist(sum(this%binned(:, 1342 ))== 0.0000000000000000 ," 410900 has zero counts if not has_gamma")
3974  insist(this%has_gamma( 1343 ).eqv..false.," 410901 has_gamma")
3975  insist(sum(this%binned(:, 1343 ))== 0.0000000000000000 ," 410901 has zero counts if not has_gamma")
3976  insist(this%has_gamma( 1344 ).eqv..false.," 420900 has_gamma")
3977  insist(sum(this%binned(:, 1344 ))== 0.0000000000000000 ," 420900 has zero counts if not has_gamma")
3978  insist(this%has_gamma( 1345 ).eqv..false.," 330910 has_gamma")
3979  insist(sum(this%binned(:, 1345 ))== 0.0000000000000000 ," 330910 has zero counts if not has_gamma")
3980  insist(this%has_gamma( 1346 ).eqv..false.," 340910 has_gamma")
3981  insist(sum(this%binned(:, 1346 ))== 0.0000000000000000 ," 340910 has zero counts if not has_gamma")
3982  insist(this%has_gamma( 1347 ).eqv..false.," 350910 has_gamma")
3983  insist(sum(this%binned(:, 1347 ))== 0.0000000000000000 ," 350910 has zero counts if not has_gamma")
3984  insist(this%has_gamma( 1348 ).eqv..false.," 360910 has_gamma")
3985  insist(sum(this%binned(:, 1348 ))== 0.0000000000000000 ," 360910 has zero counts if not has_gamma")
3986  insist(this%has_gamma( 1349 ).eqv..false.," 370910 has_gamma")
3987  insist(sum(this%binned(:, 1349 ))== 0.0000000000000000 ," 370910 has zero counts if not has_gamma")
3988  insist(this%has_gamma( 1350 ).eqv..true. ," 380910 has_gamma")
3989  ref= 0.75223841715706297
3990  new=sum(this%binned(:, 1350 ))
3991  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.75223841715706297 , new=",new,")"
3992  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 380910 "//trim(msg))
3993  insist(this%has_gamma( 1351 ).eqv..true. ," 390910 has_gamma")
3994  ref= 0.68106379883573032
3995  new=sum(this%binned(:, 1351 ))
3996  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.68106379883573032 , new=",new,")"
3997  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 390910 "//trim(msg))
3998  insist(this%has_gamma( 1352 ).eqv..false.," 390911 has_gamma")
3999  insist(sum(this%binned(:, 1352 ))== 0.0000000000000000 ," 390911 has zero counts if not has_gamma")
4000  insist(this%has_gamma( 1353 ).eqv..false.," 400910 has_gamma")
4001  insist(sum(this%binned(:, 1353 ))== 0.0000000000000000 ," 400910 has zero counts if not has_gamma")
4002  insist(this%has_gamma( 1354 ).eqv..false.," 410910 has_gamma")
4003  insist(sum(this%binned(:, 1354 ))== 0.0000000000000000 ," 410910 has zero counts if not has_gamma")
4004  insist(this%has_gamma( 1355 ).eqv..false.," 410911 has_gamma")
4005  insist(sum(this%binned(:, 1355 ))== 0.0000000000000000 ," 410911 has zero counts if not has_gamma")
4006  insist(this%has_gamma( 1356 ).eqv..false.," 420910 has_gamma")
4007  insist(sum(this%binned(:, 1356 ))== 0.0000000000000000 ," 420910 has zero counts if not has_gamma")
4008  insist(this%has_gamma( 1357 ).eqv..false.," 330920 has_gamma")
4009  insist(sum(this%binned(:, 1357 ))== 0.0000000000000000 ," 330920 has zero counts if not has_gamma")
4010  insist(this%has_gamma( 1358 ).eqv..false.," 340920 has_gamma")
4011  insist(sum(this%binned(:, 1358 ))== 0.0000000000000000 ," 340920 has zero counts if not has_gamma")
4012  insist(this%has_gamma( 1359 ).eqv..false.," 350920 has_gamma")
4013  insist(sum(this%binned(:, 1359 ))== 0.0000000000000000 ," 350920 has zero counts if not has_gamma")
4014  insist(this%has_gamma( 1360 ).eqv..true. ," 360920 has_gamma")
4015  ref= 3.1111405961378584
4016  new=sum(this%binned(:, 1360 ))
4017  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.1111405961378584 , new=",new,")"
4018  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 360920 "//trim(msg))
4019  insist(this%has_gamma( 1361 ).eqv..true. ," 370920 has_gamma")
4020  ref= 4.6393073578996429
4021  new=sum(this%binned(:, 1361 ))
4022  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.6393073578996429 , new=",new,")"
4023  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 370920 "//trim(msg))
4024  insist(this%has_gamma( 1362 ).eqv..true. ," 380920 has_gamma")
4025  ref= 0.18683929832809518
4026  new=sum(this%binned(:, 1362 ))
4027  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.18683929832809518 , new=",new,")"
4028  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 380920 "//trim(msg))
4029  insist(this%has_gamma( 1363 ).eqv..true. ," 390920 has_gamma")
4030  ref= 1.8217521303170661
4031  new=sum(this%binned(:, 1363 ))
4032  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.8217521303170661 , new=",new,")"
4033  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 390920 "//trim(msg))
4034  insist(this%has_gamma( 1364 ).eqv..false.," 400920 has_gamma")
4035  insist(sum(this%binned(:, 1364 ))== 0.0000000000000000 ," 400920 has zero counts if not has_gamma")
4036  insist(this%has_gamma( 1365 ).eqv..false.," 410920 has_gamma")
4037  insist(sum(this%binned(:, 1365 ))== 0.0000000000000000 ," 410920 has zero counts if not has_gamma")
4038  insist(this%has_gamma( 1366 ).eqv..false.," 410921 has_gamma")
4039  insist(sum(this%binned(:, 1366 ))== 0.0000000000000000 ," 410921 has zero counts if not has_gamma")
4040  insist(this%has_gamma( 1367 ).eqv..false.," 420920 has_gamma")
4041  insist(sum(this%binned(:, 1367 ))== 0.0000000000000000 ," 420920 has zero counts if not has_gamma")
4042  insist(this%has_gamma( 1368 ).eqv..false.," 340930 has_gamma")
4043  insist(sum(this%binned(:, 1368 ))== 0.0000000000000000 ," 340930 has zero counts if not has_gamma")
4044  insist(this%has_gamma( 1369 ).eqv..false.," 350930 has_gamma")
4045  insist(sum(this%binned(:, 1369 ))== 0.0000000000000000 ," 350930 has zero counts if not has_gamma")
4046  insist(this%has_gamma( 1370 ).eqv..false.," 360930 has_gamma")
4047  insist(sum(this%binned(:, 1370 ))== 0.0000000000000000 ," 360930 has zero counts if not has_gamma")
4048  insist(this%has_gamma( 1371 ).eqv..false.," 370930 has_gamma")
4049  insist(sum(this%binned(:, 1371 ))== 0.0000000000000000 ," 370930 has zero counts if not has_gamma")
4050  insist(this%has_gamma( 1372 ).eqv..false.," 380930 has_gamma")
4051  insist(sum(this%binned(:, 1372 ))== 0.0000000000000000 ," 380930 has zero counts if not has_gamma")
4052  insist(this%has_gamma( 1373 ).eqv..true. ," 390930 has_gamma")
4053  ref= 1.4417397394595355
4054  new=sum(this%binned(:, 1373 ))
4055  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4417397394595355 , new=",new,")"
4056  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 390930 "//trim(msg))
4057  insist(this%has_gamma( 1374 ).eqv..false.," 390931 has_gamma")
4058  insist(sum(this%binned(:, 1374 ))== 0.0000000000000000 ," 390931 has zero counts if not has_gamma")
4059  insist(this%has_gamma( 1375 ).eqv..true. ," 400930 has_gamma")
4060  ref= 8.0673408209577246e-003
4061  new=sum(this%binned(:, 1375 ))
4062  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.0673408209577246E-003 , new=",new,")"
4063  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 400930 "//trim(msg))
4064  insist(this%has_gamma( 1376 ).eqv..false.," 410930 has_gamma")
4065  insist(sum(this%binned(:, 1376 ))== 0.0000000000000000 ," 410930 has zero counts if not has_gamma")
4066  insist(this%has_gamma( 1377 ).eqv..false.," 410931 has_gamma")
4067  insist(sum(this%binned(:, 1377 ))== 0.0000000000000000 ," 410931 has zero counts if not has_gamma")
4068  insist(this%has_gamma( 1378 ).eqv..false.," 420930 has_gamma")
4069  insist(sum(this%binned(:, 1378 ))== 0.0000000000000000 ," 420930 has zero counts if not has_gamma")
4070  insist(this%has_gamma( 1379 ).eqv..false.," 420931 has_gamma")
4071  insist(sum(this%binned(:, 1379 ))== 0.0000000000000000 ," 420931 has zero counts if not has_gamma")
4072  insist(this%has_gamma( 1380 ).eqv..false.," 430930 has_gamma")
4073  insist(sum(this%binned(:, 1380 ))== 0.0000000000000000 ," 430930 has zero counts if not has_gamma")
4074  insist(this%has_gamma( 1381 ).eqv..false.," 340940 has_gamma")
4075  insist(sum(this%binned(:, 1381 ))== 0.0000000000000000 ," 340940 has zero counts if not has_gamma")
4076  insist(this%has_gamma( 1382 ).eqv..false.," 350940 has_gamma")
4077  insist(sum(this%binned(:, 1382 ))== 0.0000000000000000 ," 350940 has zero counts if not has_gamma")
4078  insist(this%has_gamma( 1383 ).eqv..false.," 360940 has_gamma")
4079  insist(sum(this%binned(:, 1383 ))== 0.0000000000000000 ," 360940 has zero counts if not has_gamma")
4080  insist(this%has_gamma( 1384 ).eqv..true. ," 370940 has_gamma")
4081  ref= 5.2733363222574781
4082  new=sum(this%binned(:, 1384 ))
4083  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.2733363222574781 , new=",new,")"
4084  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 370940 "//trim(msg))
4085  insist(this%has_gamma( 1385 ).eqv..false.," 380940 has_gamma")
4086  insist(sum(this%binned(:, 1385 ))== 0.0000000000000000 ," 380940 has zero counts if not has_gamma")
4087  insist(this%has_gamma( 1386 ).eqv..true. ," 390940 has_gamma")
4088  ref= 2.1602532596754713
4089  new=sum(this%binned(:, 1386 ))
4090  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.1602532596754713 , new=",new,")"
4091  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 390940 "//trim(msg))
4092  insist(this%has_gamma( 1387 ).eqv..false.," 400940 has_gamma")
4093  insist(sum(this%binned(:, 1387 ))== 0.0000000000000000 ," 400940 has zero counts if not has_gamma")
4094  insist(this%has_gamma( 1388 ).eqv..true. ," 410940 has_gamma")
4095  ref= 0.12969260956754219
4096  new=sum(this%binned(:, 1388 ))
4097  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.12969260956754219 , new=",new,")"
4098  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 410940 "//trim(msg))
4099  insist(this%has_gamma( 1389 ).eqv..true. ," 410941 has_gamma")
4100  ref= 1.0912115440728130e-005
4101  new=sum(this%binned(:, 1389 ))
4102  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.0912115440728130E-005 , new=",new,")"
4103  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 410941 "//trim(msg))
4104  insist(this%has_gamma( 1390 ).eqv..false.," 420940 has_gamma")
4105  insist(sum(this%binned(:, 1390 ))== 0.0000000000000000 ," 420940 has zero counts if not has_gamma")
4106  insist(this%has_gamma( 1391 ).eqv..false.," 350950 has_gamma")
4107  insist(sum(this%binned(:, 1391 ))== 0.0000000000000000 ," 350950 has zero counts if not has_gamma")
4108  insist(this%has_gamma( 1392 ).eqv..false.," 360950 has_gamma")
4109  insist(sum(this%binned(:, 1392 ))== 0.0000000000000000 ," 360950 has zero counts if not has_gamma")
4110  insist(this%has_gamma( 1393 ).eqv..false.," 370950 has_gamma")
4111  insist(sum(this%binned(:, 1393 ))== 0.0000000000000000 ," 370950 has zero counts if not has_gamma")
4112  insist(this%has_gamma( 1394 ).eqv..false.," 380950 has_gamma")
4113  insist(sum(this%binned(:, 1394 ))== 0.0000000000000000 ," 380950 has zero counts if not has_gamma")
4114  insist(this%has_gamma( 1395 ).eqv..false.," 390950 has_gamma")
4115  insist(sum(this%binned(:, 1395 ))== 0.0000000000000000 ," 390950 has zero counts if not has_gamma")
4116  insist(this%has_gamma( 1396 ).eqv..true. ," 400950 has_gamma")
4117  ref= 9.8333829532349815e-002
4118  new=sum(this%binned(:, 1396 ))
4119  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 9.8333829532349815E-002 , new=",new,")"
4120  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 400950 "//trim(msg))
4121  insist(this%has_gamma( 1397 ).eqv..true. ," 410950 has_gamma")
4122  ref= 2.7653486272365409e-002
4123  new=sum(this%binned(:, 1397 ))
4124  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.7653486272365409E-002 , new=",new,")"
4125  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 410950 "//trim(msg))
4126  insist(this%has_gamma( 1398 ).eqv..false.," 410951 has_gamma")
4127  insist(sum(this%binned(:, 1398 ))== 0.0000000000000000 ," 410951 has zero counts if not has_gamma")
4128  insist(this%has_gamma( 1399 ).eqv..false.," 420950 has_gamma")
4129  insist(sum(this%binned(:, 1399 ))== 0.0000000000000000 ," 420950 has zero counts if not has_gamma")
4130  insist(this%has_gamma( 1400 ).eqv..false.," 430950 has_gamma")
4131  insist(sum(this%binned(:, 1400 ))== 0.0000000000000000 ," 430950 has zero counts if not has_gamma")
4132  insist(this%has_gamma( 1401 ).eqv..false.," 430951 has_gamma")
4133  insist(sum(this%binned(:, 1401 ))== 0.0000000000000000 ," 430951 has zero counts if not has_gamma")
4134  insist(this%has_gamma( 1402 ).eqv..false.," 440950 has_gamma")
4135  insist(sum(this%binned(:, 1402 ))== 0.0000000000000000 ," 440950 has zero counts if not has_gamma")
4136  insist(this%has_gamma( 1403 ).eqv..false.," 350960 has_gamma")
4137  insist(sum(this%binned(:, 1403 ))== 0.0000000000000000 ," 350960 has zero counts if not has_gamma")
4138  insist(this%has_gamma( 1404 ).eqv..false.," 360960 has_gamma")
4139  insist(sum(this%binned(:, 1404 ))== 0.0000000000000000 ," 360960 has zero counts if not has_gamma")
4140  insist(this%has_gamma( 1405 ).eqv..false.," 370960 has_gamma")
4141  insist(sum(this%binned(:, 1405 ))== 0.0000000000000000 ," 370960 has zero counts if not has_gamma")
4142  insist(this%has_gamma( 1406 ).eqv..false.," 380960 has_gamma")
4143  insist(sum(this%binned(:, 1406 ))== 0.0000000000000000 ," 380960 has zero counts if not has_gamma")
4144  insist(this%has_gamma( 1407 ).eqv..true. ," 390960 has_gamma")
4145  ref= 3.6607642018429947
4146  new=sum(this%binned(:, 1407 ))
4147  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.6607642018429947 , new=",new,")"
4148  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 390960 "//trim(msg))
4149  insist(this%has_gamma( 1408 ).eqv..false.," 390961 has_gamma")
4150  insist(sum(this%binned(:, 1408 ))== 0.0000000000000000 ," 390961 has zero counts if not has_gamma")
4151  insist(this%has_gamma( 1409 ).eqv..false.," 400960 has_gamma")
4152  insist(sum(this%binned(:, 1409 ))== 0.0000000000000000 ," 400960 has zero counts if not has_gamma")
4153  insist(this%has_gamma( 1410 ).eqv..true. ," 410960 has_gamma")
4154  ref= 0.24353126187349969
4155  new=sum(this%binned(:, 1410 ))
4156  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.24353126187349969 , new=",new,")"
4157  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 410960 "//trim(msg))
4158  insist(this%has_gamma( 1411 ).eqv..false.," 420960 has_gamma")
4159  insist(sum(this%binned(:, 1411 ))== 0.0000000000000000 ," 420960 has zero counts if not has_gamma")
4160  insist(this%has_gamma( 1412 ).eqv..false.," 430960 has_gamma")
4161  insist(sum(this%binned(:, 1412 ))== 0.0000000000000000 ," 430960 has zero counts if not has_gamma")
4162  insist(this%has_gamma( 1413 ).eqv..false.," 440960 has_gamma")
4163  insist(sum(this%binned(:, 1413 ))== 0.0000000000000000 ," 440960 has zero counts if not has_gamma")
4164  insist(this%has_gamma( 1414 ).eqv..false.," 350970 has_gamma")
4165  insist(sum(this%binned(:, 1414 ))== 0.0000000000000000 ," 350970 has zero counts if not has_gamma")
4166  insist(this%has_gamma( 1415 ).eqv..false.," 360970 has_gamma")
4167  insist(sum(this%binned(:, 1415 ))== 0.0000000000000000 ," 360970 has zero counts if not has_gamma")
4168  insist(this%has_gamma( 1416 ).eqv..false.," 370970 has_gamma")
4169  insist(sum(this%binned(:, 1416 ))== 0.0000000000000000 ," 370970 has zero counts if not has_gamma")
4170  insist(this%has_gamma( 1417 ).eqv..false.," 380970 has_gamma")
4171  insist(sum(this%binned(:, 1417 ))== 0.0000000000000000 ," 380970 has zero counts if not has_gamma")
4172  insist(this%has_gamma( 1418 ).eqv..false.," 390970 has_gamma")
4173  insist(sum(this%binned(:, 1418 ))== 0.0000000000000000 ," 390970 has zero counts if not has_gamma")
4174  insist(this%has_gamma( 1419 ).eqv..false.," 390971 has_gamma")
4175  insist(sum(this%binned(:, 1419 ))== 0.0000000000000000 ," 390971 has zero counts if not has_gamma")
4176  insist(this%has_gamma( 1420 ).eqv..true. ," 400970 has_gamma")
4177  ref= 0.79223635100248524
4178  new=sum(this%binned(:, 1420 ))
4179  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.79223635100248524 , new=",new,")"
4180  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 400970 "//trim(msg))
4181  insist(this%has_gamma( 1421 ).eqv..true. ," 410970 has_gamma")
4182  ref= 0.50117733078528348
4183  new=sum(this%binned(:, 1421 ))
4184  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.50117733078528348 , new=",new,")"
4185  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 410970 "//trim(msg))
4186  insist(this%has_gamma( 1422 ).eqv..false.," 410971 has_gamma")
4187  insist(sum(this%binned(:, 1422 ))== 0.0000000000000000 ," 410971 has zero counts if not has_gamma")
4188  insist(this%has_gamma( 1423 ).eqv..false.," 420970 has_gamma")
4189  insist(sum(this%binned(:, 1423 ))== 0.0000000000000000 ," 420970 has zero counts if not has_gamma")
4190  insist(this%has_gamma( 1424 ).eqv..false.," 430970 has_gamma")
4191  insist(sum(this%binned(:, 1424 ))== 0.0000000000000000 ," 430970 has zero counts if not has_gamma")
4192  insist(this%has_gamma( 1425 ).eqv..false.," 430971 has_gamma")
4193  insist(sum(this%binned(:, 1425 ))== 0.0000000000000000 ," 430971 has zero counts if not has_gamma")
4194  insist(this%has_gamma( 1426 ).eqv..false.," 440970 has_gamma")
4195  insist(sum(this%binned(:, 1426 ))== 0.0000000000000000 ," 440970 has zero counts if not has_gamma")
4196  insist(this%has_gamma( 1427 ).eqv..false.," 360980 has_gamma")
4197  insist(sum(this%binned(:, 1427 ))== 0.0000000000000000 ," 360980 has zero counts if not has_gamma")
4198  insist(this%has_gamma( 1428 ).eqv..false.," 370980 has_gamma")
4199  insist(sum(this%binned(:, 1428 ))== 0.0000000000000000 ," 370980 has zero counts if not has_gamma")
4200  insist(this%has_gamma( 1429 ).eqv..false.," 380980 has_gamma")
4201  insist(sum(this%binned(:, 1429 ))== 0.0000000000000000 ," 380980 has zero counts if not has_gamma")
4202  insist(this%has_gamma( 1430 ).eqv..false.," 390980 has_gamma")
4203  insist(sum(this%binned(:, 1430 ))== 0.0000000000000000 ," 390980 has zero counts if not has_gamma")
4204  insist(this%has_gamma( 1431 ).eqv..false.," 390981 has_gamma")
4205  insist(sum(this%binned(:, 1431 ))== 0.0000000000000000 ," 390981 has zero counts if not has_gamma")
4206  insist(this%has_gamma( 1432 ).eqv..false.," 400980 has_gamma")
4207  insist(sum(this%binned(:, 1432 ))== 0.0000000000000000 ," 400980 has zero counts if not has_gamma")
4208  insist(this%has_gamma( 1433 ).eqv..true. ," 410980 has_gamma")
4209  ref= 2.5333818530890744
4210  new=sum(this%binned(:, 1433 ))
4211  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.5333818530890744 , new=",new,")"
4212  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 410980 "//trim(msg))
4213  insist(this%has_gamma( 1434 ).eqv..true. ," 410981 has_gamma")
4214  ref= 1.0599360396567987
4215  new=sum(this%binned(:, 1434 ))
4216  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.0599360396567987 , new=",new,")"
4217  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 410981 "//trim(msg))
4218  insist(this%has_gamma( 1435 ).eqv..false.," 420980 has_gamma")
4219  insist(sum(this%binned(:, 1435 ))== 0.0000000000000000 ," 420980 has zero counts if not has_gamma")
4220  insist(this%has_gamma( 1436 ).eqv..true. ," 430980 has_gamma")
4221  ref= 0.10194629045810190
4222  new=sum(this%binned(:, 1436 ))
4223  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.10194629045810190 , new=",new,")"
4224  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 430980 "//trim(msg))
4225  insist(this%has_gamma( 1437 ).eqv..false.," 440980 has_gamma")
4226  insist(sum(this%binned(:, 1437 ))== 0.0000000000000000 ," 440980 has zero counts if not has_gamma")
4227  insist(this%has_gamma( 1438 ).eqv..false.," 360990 has_gamma")
4228  insist(sum(this%binned(:, 1438 ))== 0.0000000000000000 ," 360990 has zero counts if not has_gamma")
4229  insist(this%has_gamma( 1439 ).eqv..false.," 370990 has_gamma")
4230  insist(sum(this%binned(:, 1439 ))== 0.0000000000000000 ," 370990 has zero counts if not has_gamma")
4231  insist(this%has_gamma( 1440 ).eqv..false.," 380990 has_gamma")
4232  insist(sum(this%binned(:, 1440 ))== 0.0000000000000000 ," 380990 has zero counts if not has_gamma")
4233  insist(this%has_gamma( 1441 ).eqv..false.," 390990 has_gamma")
4234  insist(sum(this%binned(:, 1441 ))== 0.0000000000000000 ," 390990 has zero counts if not has_gamma")
4235  insist(this%has_gamma( 1442 ).eqv..false.," 400990 has_gamma")
4236  insist(sum(this%binned(:, 1442 ))== 0.0000000000000000 ," 400990 has zero counts if not has_gamma")
4237  insist(this%has_gamma( 1443 ).eqv..true. ," 410990 has_gamma")
4238  ref= 1.9531124240474611
4239  new=sum(this%binned(:, 1443 ))
4240  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.9531124240474611 , new=",new,")"
4241  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 410990 "//trim(msg))
4242  insist(this%has_gamma( 1444 ).eqv..true. ," 410991 has_gamma")
4243  ref= 1.6122281805477949
4244  new=sum(this%binned(:, 1444 ))
4245  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.6122281805477949 , new=",new,")"
4246  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 410991 "//trim(msg))
4247  insist(this%has_gamma( 1445 ).eqv..true. ," 420990 has_gamma")
4248  ref= 0.40968073719541048
4249  new=sum(this%binned(:, 1445 ))
4250  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.40968073719541048 , new=",new,")"
4251  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 420990 "//trim(msg))
4252  insist(this%has_gamma( 1446 ).eqv..true. ," 430990 has_gamma")
4253  ref= 6.6673559170234667e-002
4254  new=sum(this%binned(:, 1446 ))
4255  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.6673559170234667E-002 , new=",new,")"
4256  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 430990 "//trim(msg))
4257  insist(this%has_gamma( 1447 ).eqv..false.," 430991 has_gamma")
4258  insist(sum(this%binned(:, 1447 ))== 0.0000000000000000 ," 430991 has zero counts if not has_gamma")
4259  insist(this%has_gamma( 1448 ).eqv..false.," 440990 has_gamma")
4260  insist(sum(this%binned(:, 1448 ))== 0.0000000000000000 ," 440990 has zero counts if not has_gamma")
4261  insist(this%has_gamma( 1449 ).eqv..false.," 450990 has_gamma")
4262  insist(sum(this%binned(:, 1449 ))== 0.0000000000000000 ," 450990 has zero counts if not has_gamma")
4263  insist(this%has_gamma( 1450 ).eqv..false.," 450991 has_gamma")
4264  insist(sum(this%binned(:, 1450 ))== 0.0000000000000000 ," 450991 has zero counts if not has_gamma")
4265  insist(this%has_gamma( 1451 ).eqv..false.," 460990 has_gamma")
4266  insist(sum(this%binned(:, 1451 ))== 0.0000000000000000 ," 460990 has zero counts if not has_gamma")
4267  insist(this%has_gamma( 1452 ).eqv..false.," 361000 has_gamma")
4268  insist(sum(this%binned(:, 1452 ))== 0.0000000000000000 ," 361000 has zero counts if not has_gamma")
4269  insist(this%has_gamma( 1453 ).eqv..false.," 371000 has_gamma")
4270  insist(sum(this%binned(:, 1453 ))== 0.0000000000000000 ," 371000 has zero counts if not has_gamma")
4271  insist(this%has_gamma( 1454 ).eqv..false.," 381000 has_gamma")
4272  insist(sum(this%binned(:, 1454 ))== 0.0000000000000000 ," 381000 has zero counts if not has_gamma")
4273  insist(this%has_gamma( 1455 ).eqv..false.," 391000 has_gamma")
4274  insist(sum(this%binned(:, 1455 ))== 0.0000000000000000 ," 391000 has zero counts if not has_gamma")
4275  insist(this%has_gamma( 1456 ).eqv..false.," 401000 has_gamma")
4276  insist(sum(this%binned(:, 1456 ))== 0.0000000000000000 ," 401000 has zero counts if not has_gamma")
4277  insist(this%has_gamma( 1457 ).eqv..false.," 411000 has_gamma")
4278  insist(sum(this%binned(:, 1457 ))== 0.0000000000000000 ," 411000 has zero counts if not has_gamma")
4279  insist(this%has_gamma( 1458 ).eqv..false.," 411001 has_gamma")
4280  insist(sum(this%binned(:, 1458 ))== 0.0000000000000000 ," 411001 has zero counts if not has_gamma")
4281  insist(this%has_gamma( 1459 ).eqv..false.," 421000 has_gamma")
4282  insist(sum(this%binned(:, 1459 ))== 0.0000000000000000 ," 421000 has zero counts if not has_gamma")
4283  insist(this%has_gamma( 1460 ).eqv..true. ," 431000 has_gamma")
4284  ref= 1.7344833414313137
4285  new=sum(this%binned(:, 1460 ))
4286  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.7344833414313137 , new=",new,")"
4287  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 431000 "//trim(msg))
4288  insist(this%has_gamma( 1461 ).eqv..false.," 441000 has_gamma")
4289  insist(sum(this%binned(:, 1461 ))== 0.0000000000000000 ," 441000 has zero counts if not has_gamma")
4290  insist(this%has_gamma( 1462 ).eqv..false.," 371010 has_gamma")
4291  insist(sum(this%binned(:, 1462 ))== 0.0000000000000000 ," 371010 has zero counts if not has_gamma")
4292  insist(this%has_gamma( 1463 ).eqv..false.," 381010 has_gamma")
4293  insist(sum(this%binned(:, 1463 ))== 0.0000000000000000 ," 381010 has zero counts if not has_gamma")
4294  insist(this%has_gamma( 1464 ).eqv..false.," 391010 has_gamma")
4295  insist(sum(this%binned(:, 1464 ))== 0.0000000000000000 ," 391010 has zero counts if not has_gamma")
4296  insist(this%has_gamma( 1465 ).eqv..true. ," 401010 has_gamma")
4297  ref= 3.6734757288932105
4298  new=sum(this%binned(:, 1465 ))
4299  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.6734757288932105 , new=",new,")"
4300  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 401010 "//trim(msg))
4301  insist(this%has_gamma( 1466 ).eqv..false.," 411010 has_gamma")
4302  insist(sum(this%binned(:, 1466 ))== 0.0000000000000000 ," 411010 has zero counts if not has_gamma")
4303  insist(this%has_gamma( 1467 ).eqv..true. ," 421010 has_gamma")
4304  ref= 0.63661447291623863
4305  new=sum(this%binned(:, 1467 ))
4306  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.63661447291623863 , new=",new,")"
4307  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 421010 "//trim(msg))
4308  insist(this%has_gamma( 1468 ).eqv..true. ," 431010 has_gamma")
4309  ref= 0.50693567226374714
4310  new=sum(this%binned(:, 1468 ))
4311  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.50693567226374714 , new=",new,")"
4312  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 431010 "//trim(msg))
4313  insist(this%has_gamma( 1469 ).eqv..false.," 441010 has_gamma")
4314  insist(sum(this%binned(:, 1469 ))== 0.0000000000000000 ," 441010 has zero counts if not has_gamma")
4315  insist(this%has_gamma( 1470 ).eqv..false.," 451010 has_gamma")
4316  insist(sum(this%binned(:, 1470 ))== 0.0000000000000000 ," 451010 has zero counts if not has_gamma")
4317  insist(this%has_gamma( 1471 ).eqv..false.," 451011 has_gamma")
4318  insist(sum(this%binned(:, 1471 ))== 0.0000000000000000 ," 451011 has zero counts if not has_gamma")
4319  insist(this%has_gamma( 1472 ).eqv..false.," 461010 has_gamma")
4320  insist(sum(this%binned(:, 1472 ))== 0.0000000000000000 ," 461010 has zero counts if not has_gamma")
4321  insist(this%has_gamma( 1473 ).eqv..false.," 371020 has_gamma")
4322  insist(sum(this%binned(:, 1473 ))== 0.0000000000000000 ," 371020 has zero counts if not has_gamma")
4323  insist(this%has_gamma( 1474 ).eqv..false.," 381020 has_gamma")
4324  insist(sum(this%binned(:, 1474 ))== 0.0000000000000000 ," 381020 has zero counts if not has_gamma")
4325  insist(this%has_gamma( 1475 ).eqv..false.," 391020 has_gamma")
4326  insist(sum(this%binned(:, 1475 ))== 0.0000000000000000 ," 391020 has zero counts if not has_gamma")
4327  insist(this%has_gamma( 1476 ).eqv..false.," 401020 has_gamma")
4328  insist(sum(this%binned(:, 1476 ))== 0.0000000000000000 ," 401020 has zero counts if not has_gamma")
4329  insist(this%has_gamma( 1477 ).eqv..false.," 411020 has_gamma")
4330  insist(sum(this%binned(:, 1477 ))== 0.0000000000000000 ," 411020 has zero counts if not has_gamma")
4331  insist(this%has_gamma( 1478 ).eqv..false.," 411021 has_gamma")
4332  insist(sum(this%binned(:, 1478 ))== 0.0000000000000000 ," 411021 has zero counts if not has_gamma")
4333  insist(this%has_gamma( 1479 ).eqv..false.," 421020 has_gamma")
4334  insist(sum(this%binned(:, 1479 ))== 0.0000000000000000 ," 421020 has zero counts if not has_gamma")
4335  insist(this%has_gamma( 1480 ).eqv..true. ," 431020 has_gamma")
4336  ref= 1.9733651578046356
4337  new=sum(this%binned(:, 1480 ))
4338  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.9733651578046356 , new=",new,")"
4339  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 431020 "//trim(msg))
4340  insist(this%has_gamma( 1481 ).eqv..true. ," 431021 has_gamma")
4341  ref= 1.0733477789937600
4342  new=sum(this%binned(:, 1481 ))
4343  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.0733477789937600 , new=",new,")"
4344  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 431021 "//trim(msg))
4345  insist(this%has_gamma( 1482 ).eqv..false.," 441020 has_gamma")
4346  insist(sum(this%binned(:, 1482 ))== 0.0000000000000000 ," 441020 has zero counts if not has_gamma")
4347  insist(this%has_gamma( 1483 ).eqv..false.," 451020 has_gamma")
4348  insist(sum(this%binned(:, 1483 ))== 0.0000000000000000 ," 451020 has zero counts if not has_gamma")
4349  insist(this%has_gamma( 1484 ).eqv..false.," 451021 has_gamma")
4350  insist(sum(this%binned(:, 1484 ))== 0.0000000000000000 ," 451021 has zero counts if not has_gamma")
4351  insist(this%has_gamma( 1485 ).eqv..false.," 461020 has_gamma")
4352  insist(sum(this%binned(:, 1485 ))== 0.0000000000000000 ," 461020 has zero counts if not has_gamma")
4353  insist(this%has_gamma( 1486 ).eqv..false.," 381030 has_gamma")
4354  insist(sum(this%binned(:, 1486 ))== 0.0000000000000000 ," 381030 has zero counts if not has_gamma")
4355  insist(this%has_gamma( 1487 ).eqv..false.," 391030 has_gamma")
4356  insist(sum(this%binned(:, 1487 ))== 0.0000000000000000 ," 391030 has zero counts if not has_gamma")
4357  insist(this%has_gamma( 1488 ).eqv..false.," 401030 has_gamma")
4358  insist(sum(this%binned(:, 1488 ))== 0.0000000000000000 ," 401030 has zero counts if not has_gamma")
4359  insist(this%has_gamma( 1489 ).eqv..false.," 411030 has_gamma")
4360  insist(sum(this%binned(:, 1489 ))== 0.0000000000000000 ," 411030 has zero counts if not has_gamma")
4361  insist(this%has_gamma( 1490 ).eqv..false.," 421030 has_gamma")
4362  insist(sum(this%binned(:, 1490 ))== 0.0000000000000000 ," 421030 has zero counts if not has_gamma")
4363  insist(this%has_gamma( 1491 ).eqv..false.," 431030 has_gamma")
4364  insist(sum(this%binned(:, 1491 ))== 0.0000000000000000 ," 431030 has zero counts if not has_gamma")
4365  insist(this%has_gamma( 1492 ).eqv..true. ," 441030 has_gamma")
4366  ref= 5.6067314364812035e-002
4367  new=sum(this%binned(:, 1492 ))
4368  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.6067314364812035E-002 , new=",new,")"
4369  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 441030 "//trim(msg))
4370  insist(this%has_gamma( 1493 ).eqv..false.," 451030 has_gamma")
4371  insist(sum(this%binned(:, 1493 ))== 0.0000000000000000 ," 451030 has zero counts if not has_gamma")
4372  insist(this%has_gamma( 1494 ).eqv..false.," 451031 has_gamma")
4373  insist(sum(this%binned(:, 1494 ))== 0.0000000000000000 ," 451031 has zero counts if not has_gamma")
4374  insist(this%has_gamma( 1495 ).eqv..false.," 461030 has_gamma")
4375  insist(sum(this%binned(:, 1495 ))== 0.0000000000000000 ," 461030 has zero counts if not has_gamma")
4376  insist(this%has_gamma( 1496 ).eqv..false.," 471030 has_gamma")
4377  insist(sum(this%binned(:, 1496 ))== 0.0000000000000000 ," 471030 has zero counts if not has_gamma")
4378  insist(this%has_gamma( 1497 ).eqv..false.," 381040 has_gamma")
4379  insist(sum(this%binned(:, 1497 ))== 0.0000000000000000 ," 381040 has zero counts if not has_gamma")
4380  insist(this%has_gamma( 1498 ).eqv..false.," 391040 has_gamma")
4381  insist(sum(this%binned(:, 1498 ))== 0.0000000000000000 ," 391040 has zero counts if not has_gamma")
4382  insist(this%has_gamma( 1499 ).eqv..false.," 401040 has_gamma")
4383  insist(sum(this%binned(:, 1499 ))== 0.0000000000000000 ," 401040 has zero counts if not has_gamma")
4384  insist(this%has_gamma( 1500 ).eqv..false.," 411040 has_gamma")
4385  insist(sum(this%binned(:, 1500 ))== 0.0000000000000000 ," 411040 has zero counts if not has_gamma")
4386  insist(this%has_gamma( 1501 ).eqv..false.," 411041 has_gamma")
4387  insist(sum(this%binned(:, 1501 ))== 0.0000000000000000 ," 411041 has zero counts if not has_gamma")
4388  insist(this%has_gamma( 1502 ).eqv..false.," 421040 has_gamma")
4389  insist(sum(this%binned(:, 1502 ))== 0.0000000000000000 ," 421040 has zero counts if not has_gamma")
4390  insist(this%has_gamma( 1503 ).eqv..true. ," 431040 has_gamma")
4391  ref= 2.1361267658098191
4392  new=sum(this%binned(:, 1503 ))
4393  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.1361267658098191 , new=",new,")"
4394  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 431040 "//trim(msg))
4395  insist(this%has_gamma( 1504 ).eqv..false.," 441040 has_gamma")
4396  insist(sum(this%binned(:, 1504 ))== 0.0000000000000000 ," 441040 has zero counts if not has_gamma")
4397  insist(this%has_gamma( 1505 ).eqv..true. ," 451040 has_gamma")
4398  ref= 1.1692380023296736
4399  new=sum(this%binned(:, 1505 ))
4400  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.1692380023296736 , new=",new,")"
4401  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 451040 "//trim(msg))
4402  insist(this%has_gamma( 1506 ).eqv..true. ," 451041 has_gamma")
4403  ref= 5.0072926284761812e-007
4404  new=sum(this%binned(:, 1506 ))
4405  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.0072926284761812E-007 , new=",new,")"
4406  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 451041 "//trim(msg))
4407  insist(this%has_gamma( 1507 ).eqv..false.," 461040 has_gamma")
4408  insist(sum(this%binned(:, 1507 ))== 0.0000000000000000 ," 461040 has zero counts if not has_gamma")
4409  insist(this%has_gamma( 1508 ).eqv..false.," 381050 has_gamma")
4410  insist(sum(this%binned(:, 1508 ))== 0.0000000000000000 ," 381050 has zero counts if not has_gamma")
4411  insist(this%has_gamma( 1509 ).eqv..false.," 391050 has_gamma")
4412  insist(sum(this%binned(:, 1509 ))== 0.0000000000000000 ," 391050 has zero counts if not has_gamma")
4413  insist(this%has_gamma( 1510 ).eqv..false.," 401050 has_gamma")
4414  insist(sum(this%binned(:, 1510 ))== 0.0000000000000000 ," 401050 has zero counts if not has_gamma")
4415  insist(this%has_gamma( 1511 ).eqv..false.," 411050 has_gamma")
4416  insist(sum(this%binned(:, 1511 ))== 0.0000000000000000 ," 411050 has zero counts if not has_gamma")
4417  insist(this%has_gamma( 1512 ).eqv..false.," 421050 has_gamma")
4418  insist(sum(this%binned(:, 1512 ))== 0.0000000000000000 ," 421050 has zero counts if not has_gamma")
4419  insist(this%has_gamma( 1513 ).eqv..false.," 431050 has_gamma")
4420  insist(sum(this%binned(:, 1513 ))== 0.0000000000000000 ," 431050 has zero counts if not has_gamma")
4421  insist(this%has_gamma( 1514 ).eqv..true. ," 441050 has_gamma")
4422  ref= 0.41997130747915101
4423  new=sum(this%binned(:, 1514 ))
4424  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.41997130747915101 , new=",new,")"
4425  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 441050 "//trim(msg))
4426  insist(this%has_gamma( 1515 ).eqv..true. ," 451050 has_gamma")
4427  ref= 0.13824386501530891
4428  new=sum(this%binned(:, 1515 ))
4429  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.13824386501530891 , new=",new,")"
4430  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 451050 "//trim(msg))
4431  insist(this%has_gamma( 1516 ).eqv..false.," 451051 has_gamma")
4432  insist(sum(this%binned(:, 1516 ))== 0.0000000000000000 ," 451051 has zero counts if not has_gamma")
4433  insist(this%has_gamma( 1517 ).eqv..false.," 461050 has_gamma")
4434  insist(sum(this%binned(:, 1517 ))== 0.0000000000000000 ," 461050 has zero counts if not has_gamma")
4435  insist(this%has_gamma( 1518 ).eqv..false.," 471050 has_gamma")
4436  insist(sum(this%binned(:, 1518 ))== 0.0000000000000000 ," 471050 has zero counts if not has_gamma")
4437  insist(this%has_gamma( 1519 ).eqv..false.," 471051 has_gamma")
4438  insist(sum(this%binned(:, 1519 ))== 0.0000000000000000 ," 471051 has zero counts if not has_gamma")
4439  insist(this%has_gamma( 1520 ).eqv..false.," 481050 has_gamma")
4440  insist(sum(this%binned(:, 1520 ))== 0.0000000000000000 ," 481050 has zero counts if not has_gamma")
4441  insist(this%has_gamma( 1521 ).eqv..false.," 391060 has_gamma")
4442  insist(sum(this%binned(:, 1521 ))== 0.0000000000000000 ," 391060 has zero counts if not has_gamma")
4443  insist(this%has_gamma( 1522 ).eqv..false.," 401060 has_gamma")
4444  insist(sum(this%binned(:, 1522 ))== 0.0000000000000000 ," 401060 has zero counts if not has_gamma")
4445  insist(this%has_gamma( 1523 ).eqv..false.," 411060 has_gamma")
4446  insist(sum(this%binned(:, 1523 ))== 0.0000000000000000 ," 411060 has zero counts if not has_gamma")
4447  insist(this%has_gamma( 1524 ).eqv..false.," 421060 has_gamma")
4448  insist(sum(this%binned(:, 1524 ))== 0.0000000000000000 ," 421060 has zero counts if not has_gamma")
4449  insist(this%has_gamma( 1525 ).eqv..false.," 431060 has_gamma")
4450  insist(sum(this%binned(:, 1525 ))== 0.0000000000000000 ," 431060 has zero counts if not has_gamma")
4451  insist(this%has_gamma( 1526 ).eqv..true. ," 441060 has_gamma")
4452  ref= 2.5935015206863810e-003
4453  new=sum(this%binned(:, 1526 ))
4454  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.5935015206863810E-003 , new=",new,")"
4455  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 441060 "//trim(msg))
4456  insist(this%has_gamma( 1527 ).eqv..true. ," 451060 has_gamma")
4457  ref= 1.7557060579002861
4458  new=sum(this%binned(:, 1527 ))
4459  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.7557060579002861 , new=",new,")"
4460  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 451060 "//trim(msg))
4461  insist(this%has_gamma( 1528 ).eqv..true. ," 451061 has_gamma")
4462  ref= 0.30463977297928585
4463  new=sum(this%binned(:, 1528 ))
4464  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.30463977297928585 , new=",new,")"
4465  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 451061 "//trim(msg))
4466  insist(this%has_gamma( 1529 ).eqv..false.," 461060 has_gamma")
4467  insist(sum(this%binned(:, 1529 ))== 0.0000000000000000 ," 461060 has zero counts if not has_gamma")
4468  insist(this%has_gamma( 1530 ).eqv..false.," 471060 has_gamma")
4469  insist(sum(this%binned(:, 1530 ))== 0.0000000000000000 ," 471060 has zero counts if not has_gamma")
4470  insist(this%has_gamma( 1531 ).eqv..false.," 471061 has_gamma")
4471  insist(sum(this%binned(:, 1531 ))== 0.0000000000000000 ," 471061 has zero counts if not has_gamma")
4472  insist(this%has_gamma( 1532 ).eqv..false.," 481060 has_gamma")
4473  insist(sum(this%binned(:, 1532 ))== 0.0000000000000000 ," 481060 has zero counts if not has_gamma")
4474  insist(this%has_gamma( 1533 ).eqv..false.," 391070 has_gamma")
4475  insist(sum(this%binned(:, 1533 ))== 0.0000000000000000 ," 391070 has zero counts if not has_gamma")
4476  insist(this%has_gamma( 1534 ).eqv..false.," 401070 has_gamma")
4477  insist(sum(this%binned(:, 1534 ))== 0.0000000000000000 ," 401070 has zero counts if not has_gamma")
4478  insist(this%has_gamma( 1535 ).eqv..false.," 411070 has_gamma")
4479  insist(sum(this%binned(:, 1535 ))== 0.0000000000000000 ," 411070 has zero counts if not has_gamma")
4480  insist(this%has_gamma( 1536 ).eqv..false.," 421070 has_gamma")
4481  insist(sum(this%binned(:, 1536 ))== 0.0000000000000000 ," 421070 has zero counts if not has_gamma")
4482  insist(this%has_gamma( 1537 ).eqv..false.," 431070 has_gamma")
4483  insist(sum(this%binned(:, 1537 ))== 0.0000000000000000 ," 431070 has zero counts if not has_gamma")
4484  insist(this%has_gamma( 1538 ).eqv..true. ," 441070 has_gamma")
4485  ref= 1.4737666172630914
4486  new=sum(this%binned(:, 1538 ))
4487  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4737666172630914 , new=",new,")"
4488  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 441070 "//trim(msg))
4489  insist(this%has_gamma( 1539 ).eqv..true. ," 451070 has_gamma")
4490  ref= 0.49020845414431330
4491  new=sum(this%binned(:, 1539 ))
4492  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.49020845414431330 , new=",new,")"
4493  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 451070 "//trim(msg))
4494  insist(this%has_gamma( 1540 ).eqv..true. ," 461070 has_gamma")
4495  ref= 2.1676466463853572e-003
4496  new=sum(this%binned(:, 1540 ))
4497  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.1676466463853572E-003 , new=",new,")"
4498  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 461070 "//trim(msg))
4499  insist(this%has_gamma( 1541 ).eqv..false.," 461071 has_gamma")
4500  insist(sum(this%binned(:, 1541 ))== 0.0000000000000000 ," 461071 has zero counts if not has_gamma")
4501  insist(this%has_gamma( 1542 ).eqv..false.," 471070 has_gamma")
4502  insist(sum(this%binned(:, 1542 ))== 0.0000000000000000 ," 471070 has zero counts if not has_gamma")
4503  insist(this%has_gamma( 1543 ).eqv..false.," 471071 has_gamma")
4504  insist(sum(this%binned(:, 1543 ))== 0.0000000000000000 ," 471071 has zero counts if not has_gamma")
4505  insist(this%has_gamma( 1544 ).eqv..true. ," 481070 has_gamma")
4506  ref= 1.3637423944359017e-003
4507  new=sum(this%binned(:, 1544 ))
4508  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.3637423944359017E-003 , new=",new,")"
4509  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 481070 "//trim(msg))
4510  insist(this%has_gamma( 1545 ).eqv..false.," 491070 has_gamma")
4511  insist(sum(this%binned(:, 1545 ))== 0.0000000000000000 ," 491070 has zero counts if not has_gamma")
4512  insist(this%has_gamma( 1546 ).eqv..false.," 391080 has_gamma")
4513  insist(sum(this%binned(:, 1546 ))== 0.0000000000000000 ," 391080 has zero counts if not has_gamma")
4514  insist(this%has_gamma( 1547 ).eqv..false.," 401080 has_gamma")
4515  insist(sum(this%binned(:, 1547 ))== 0.0000000000000000 ," 401080 has zero counts if not has_gamma")
4516  insist(this%has_gamma( 1548 ).eqv..false.," 411080 has_gamma")
4517  insist(sum(this%binned(:, 1548 ))== 0.0000000000000000 ," 411080 has zero counts if not has_gamma")
4518  insist(this%has_gamma( 1549 ).eqv..false.," 421080 has_gamma")
4519  insist(sum(this%binned(:, 1549 ))== 0.0000000000000000 ," 421080 has zero counts if not has_gamma")
4520  insist(this%has_gamma( 1550 ).eqv..false.," 431080 has_gamma")
4521  insist(sum(this%binned(:, 1550 ))== 0.0000000000000000 ," 431080 has zero counts if not has_gamma")
4522  insist(this%has_gamma( 1551 ).eqv..false.," 441080 has_gamma")
4523  insist(sum(this%binned(:, 1551 ))== 0.0000000000000000 ," 441080 has zero counts if not has_gamma")
4524  insist(this%has_gamma( 1552 ).eqv..true. ," 451080 has_gamma")
4525  ref= 2.3001198891506642
4526  new=sum(this%binned(:, 1552 ))
4527  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.3001198891506642 , new=",new,")"
4528  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 451080 "//trim(msg))
4529  insist(this%has_gamma( 1553 ).eqv..true. ," 451081 has_gamma")
4530  ref= 1.0859952230307781
4531  new=sum(this%binned(:, 1553 ))
4532  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.0859952230307781 , new=",new,")"
4533  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 451081 "//trim(msg))
4534  insist(this%has_gamma( 1554 ).eqv..false.," 461080 has_gamma")
4535  insist(sum(this%binned(:, 1554 ))== 0.0000000000000000 ," 461080 has zero counts if not has_gamma")
4536  insist(this%has_gamma( 1555 ).eqv..true. ," 471080 has_gamma")
4537  ref= 0.66592332489877126
4538  new=sum(this%binned(:, 1555 ))
4539  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.66592332489877126 , new=",new,")"
4540  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 471080 "//trim(msg))
4541  insist(this%has_gamma( 1556 ).eqv..false.," 471081 has_gamma")
4542  insist(sum(this%binned(:, 1556 ))== 0.0000000000000000 ," 471081 has zero counts if not has_gamma")
4543  insist(this%has_gamma( 1557 ).eqv..false.," 481080 has_gamma")
4544  insist(sum(this%binned(:, 1557 ))== 0.0000000000000000 ," 481080 has zero counts if not has_gamma")
4545  insist(this%has_gamma( 1558 ).eqv..false.," 401090 has_gamma")
4546  insist(sum(this%binned(:, 1558 ))== 0.0000000000000000 ," 401090 has zero counts if not has_gamma")
4547  insist(this%has_gamma( 1559 ).eqv..false.," 411090 has_gamma")
4548  insist(sum(this%binned(:, 1559 ))== 0.0000000000000000 ," 411090 has zero counts if not has_gamma")
4549  insist(this%has_gamma( 1560 ).eqv..false.," 421090 has_gamma")
4550  insist(sum(this%binned(:, 1560 ))== 0.0000000000000000 ," 421090 has zero counts if not has_gamma")
4551  insist(this%has_gamma( 1561 ).eqv..false.," 431090 has_gamma")
4552  insist(sum(this%binned(:, 1561 ))== 0.0000000000000000 ," 431090 has zero counts if not has_gamma")
4553  insist(this%has_gamma( 1562 ).eqv..false.," 441090 has_gamma")
4554  insist(sum(this%binned(:, 1562 ))== 0.0000000000000000 ," 441090 has zero counts if not has_gamma")
4555  insist(this%has_gamma( 1563 ).eqv..false.," 451090 has_gamma")
4556  insist(sum(this%binned(:, 1563 ))== 0.0000000000000000 ," 451090 has zero counts if not has_gamma")
4557  insist(this%has_gamma( 1564 ).eqv..true. ," 461090 has_gamma")
4558  ref= 0.37413798787321895
4559  new=sum(this%binned(:, 1564 ))
4560  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.37413798787321895 , new=",new,")"
4561  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 461090 "//trim(msg))
4562  insist(this%has_gamma( 1565 ).eqv..false.," 461091 has_gamma")
4563  insist(sum(this%binned(:, 1565 ))== 0.0000000000000000 ," 461091 has zero counts if not has_gamma")
4564  insist(this%has_gamma( 1566 ).eqv..false.," 471090 has_gamma")
4565  insist(sum(this%binned(:, 1566 ))== 0.0000000000000000 ," 471090 has zero counts if not has_gamma")
4566  insist(this%has_gamma( 1567 ).eqv..false.," 471091 has_gamma")
4567  insist(sum(this%binned(:, 1567 ))== 0.0000000000000000 ," 471091 has zero counts if not has_gamma")
4568  insist(this%has_gamma( 1568 ).eqv..false.," 481090 has_gamma")
4569  insist(sum(this%binned(:, 1568 ))== 0.0000000000000000 ," 481090 has zero counts if not has_gamma")
4570  insist(this%has_gamma( 1569 ).eqv..false.," 491090 has_gamma")
4571  insist(sum(this%binned(:, 1569 ))== 0.0000000000000000 ," 491090 has zero counts if not has_gamma")
4572  insist(this%has_gamma( 1570 ).eqv..false.," 401100 has_gamma")
4573  insist(sum(this%binned(:, 1570 ))== 0.0000000000000000 ," 401100 has zero counts if not has_gamma")
4574  insist(this%has_gamma( 1571 ).eqv..false.," 411100 has_gamma")
4575  insist(sum(this%binned(:, 1571 ))== 0.0000000000000000 ," 411100 has zero counts if not has_gamma")
4576  insist(this%has_gamma( 1572 ).eqv..false.," 421100 has_gamma")
4577  insist(sum(this%binned(:, 1572 ))== 0.0000000000000000 ," 421100 has zero counts if not has_gamma")
4578  insist(this%has_gamma( 1573 ).eqv..false.," 431100 has_gamma")
4579  insist(sum(this%binned(:, 1573 ))== 0.0000000000000000 ," 431100 has zero counts if not has_gamma")
4580  insist(this%has_gamma( 1574 ).eqv..false.," 441100 has_gamma")
4581  insist(sum(this%binned(:, 1574 ))== 0.0000000000000000 ," 441100 has zero counts if not has_gamma")
4582  insist(this%has_gamma( 1575 ).eqv..true. ," 451100 has_gamma")
4583  ref= 1.2363092561556641
4584  new=sum(this%binned(:, 1575 ))
4585  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2363092561556641 , new=",new,")"
4586  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 451100 "//trim(msg))
4587  insist(this%has_gamma( 1576 ).eqv..true. ," 451101 has_gamma")
4588  ref= 3.1663732605302357
4589  new=sum(this%binned(:, 1576 ))
4590  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.1663732605302357 , new=",new,")"
4591  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 451101 "//trim(msg))
4592  insist(this%has_gamma( 1577 ).eqv..false.," 461100 has_gamma")
4593  insist(sum(this%binned(:, 1577 ))== 0.0000000000000000 ," 461100 has zero counts if not has_gamma")
4594  insist(this%has_gamma( 1578 ).eqv..true. ," 471100 has_gamma")
4595  ref= 1.4313205274231682
4596  new=sum(this%binned(:, 1578 ))
4597  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4313205274231682 , new=",new,")"
4598  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 471100 "//trim(msg))
4599  insist(this%has_gamma( 1579 ).eqv..true. ," 471101 has_gamma")
4600  ref= 5.2684700660961419e-002
4601  new=sum(this%binned(:, 1579 ))
4602  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.2684700660961419E-002 , new=",new,")"
4603  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 471101 "//trim(msg))
4604  insist(this%has_gamma( 1580 ).eqv..false.," 481100 has_gamma")
4605  insist(sum(this%binned(:, 1580 ))== 0.0000000000000000 ," 481100 has zero counts if not has_gamma")
4606  insist(this%has_gamma( 1581 ).eqv..false.," 411110 has_gamma")
4607  insist(sum(this%binned(:, 1581 ))== 0.0000000000000000 ," 411110 has zero counts if not has_gamma")
4608  insist(this%has_gamma( 1582 ).eqv..false.," 421110 has_gamma")
4609  insist(sum(this%binned(:, 1582 ))== 0.0000000000000000 ," 421110 has zero counts if not has_gamma")
4610  insist(this%has_gamma( 1583 ).eqv..false.," 431110 has_gamma")
4611  insist(sum(this%binned(:, 1583 ))== 0.0000000000000000 ," 431110 has zero counts if not has_gamma")
4612  insist(this%has_gamma( 1584 ).eqv..false.," 441110 has_gamma")
4613  insist(sum(this%binned(:, 1584 ))== 0.0000000000000000 ," 441110 has zero counts if not has_gamma")
4614  insist(this%has_gamma( 1585 ).eqv..false.," 451110 has_gamma")
4615  insist(sum(this%binned(:, 1585 ))== 0.0000000000000000 ," 451110 has zero counts if not has_gamma")
4616  insist(this%has_gamma( 1586 ).eqv..false.," 461110 has_gamma")
4617  insist(sum(this%binned(:, 1586 ))== 0.0000000000000000 ," 461110 has zero counts if not has_gamma")
4618  insist(this%has_gamma( 1587 ).eqv..false.," 461111 has_gamma")
4619  insist(sum(this%binned(:, 1587 ))== 0.0000000000000000 ," 461111 has zero counts if not has_gamma")
4620  insist(this%has_gamma( 1588 ).eqv..true. ," 471110 has_gamma")
4621  ref= 0.36628860078762671
4622  new=sum(this%binned(:, 1588 ))
4623  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.36628860078762671 , new=",new,")"
4624  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 471110 "//trim(msg))
4625  insist(this%has_gamma( 1589 ).eqv..false.," 471111 has_gamma")
4626  insist(sum(this%binned(:, 1589 ))== 0.0000000000000000 ," 471111 has zero counts if not has_gamma")
4627  insist(this%has_gamma( 1590 ).eqv..false.," 481110 has_gamma")
4628  insist(sum(this%binned(:, 1590 ))== 0.0000000000000000 ," 481110 has zero counts if not has_gamma")
4629  insist(this%has_gamma( 1591 ).eqv..false.," 481111 has_gamma")
4630  insist(sum(this%binned(:, 1591 ))== 0.0000000000000000 ," 481111 has zero counts if not has_gamma")
4631  insist(this%has_gamma( 1592 ).eqv..false.," 491110 has_gamma")
4632  insist(sum(this%binned(:, 1592 ))== 0.0000000000000000 ," 491110 has zero counts if not has_gamma")
4633  insist(this%has_gamma( 1593 ).eqv..false.," 491111 has_gamma")
4634  insist(sum(this%binned(:, 1593 ))== 0.0000000000000000 ," 491111 has zero counts if not has_gamma")
4635  insist(this%has_gamma( 1594 ).eqv..false.," 501110 has_gamma")
4636  insist(sum(this%binned(:, 1594 ))== 0.0000000000000000 ," 501110 has zero counts if not has_gamma")
4637  insist(this%has_gamma( 1595 ).eqv..false.," 411120 has_gamma")
4638  insist(sum(this%binned(:, 1595 ))== 0.0000000000000000 ," 411120 has zero counts if not has_gamma")
4639  insist(this%has_gamma( 1596 ).eqv..false.," 421120 has_gamma")
4640  insist(sum(this%binned(:, 1596 ))== 0.0000000000000000 ," 421120 has zero counts if not has_gamma")
4641  insist(this%has_gamma( 1597 ).eqv..false.," 431120 has_gamma")
4642  insist(sum(this%binned(:, 1597 ))== 0.0000000000000000 ," 431120 has zero counts if not has_gamma")
4643  insist(this%has_gamma( 1598 ).eqv..false.," 441120 has_gamma")
4644  insist(sum(this%binned(:, 1598 ))== 0.0000000000000000 ," 441120 has zero counts if not has_gamma")
4645  insist(this%has_gamma( 1599 ).eqv..false.," 451120 has_gamma")
4646  insist(sum(this%binned(:, 1599 ))== 0.0000000000000000 ," 451120 has zero counts if not has_gamma")
4647  insist(this%has_gamma( 1600 ).eqv..false.," 461120 has_gamma")
4648  insist(sum(this%binned(:, 1600 ))== 0.0000000000000000 ," 461120 has zero counts if not has_gamma")
4649  insist(this%has_gamma( 1601 ).eqv..false.," 471120 has_gamma")
4650  insist(sum(this%binned(:, 1601 ))== 0.0000000000000000 ," 471120 has zero counts if not has_gamma")
4651  insist(this%has_gamma( 1602 ).eqv..false.," 481120 has_gamma")
4652  insist(sum(this%binned(:, 1602 ))== 0.0000000000000000 ," 481120 has zero counts if not has_gamma")
4653  insist(this%has_gamma( 1603 ).eqv..false.," 491120 has_gamma")
4654  insist(sum(this%binned(:, 1603 ))== 0.0000000000000000 ," 491120 has zero counts if not has_gamma")
4655  insist(this%has_gamma( 1604 ).eqv..false.," 491121 has_gamma")
4656  insist(sum(this%binned(:, 1604 ))== 0.0000000000000000 ," 491121 has zero counts if not has_gamma")
4657  insist(this%has_gamma( 1605 ).eqv..false.," 501120 has_gamma")
4658  insist(sum(this%binned(:, 1605 ))== 0.0000000000000000 ," 501120 has zero counts if not has_gamma")
4659  insist(this%has_gamma( 1606 ).eqv..false.," 411130 has_gamma")
4660  insist(sum(this%binned(:, 1606 ))== 0.0000000000000000 ," 411130 has zero counts if not has_gamma")
4661  insist(this%has_gamma( 1607 ).eqv..false.," 421130 has_gamma")
4662  insist(sum(this%binned(:, 1607 ))== 0.0000000000000000 ," 421130 has zero counts if not has_gamma")
4663  insist(this%has_gamma( 1608 ).eqv..false.," 431130 has_gamma")
4664  insist(sum(this%binned(:, 1608 ))== 0.0000000000000000 ," 431130 has zero counts if not has_gamma")
4665  insist(this%has_gamma( 1609 ).eqv..false.," 441130 has_gamma")
4666  insist(sum(this%binned(:, 1609 ))== 0.0000000000000000 ," 441130 has zero counts if not has_gamma")
4667  insist(this%has_gamma( 1610 ).eqv..false.," 451130 has_gamma")
4668  insist(sum(this%binned(:, 1610 ))== 0.0000000000000000 ," 451130 has zero counts if not has_gamma")
4669  insist(this%has_gamma( 1611 ).eqv..false.," 461130 has_gamma")
4670  insist(sum(this%binned(:, 1611 ))== 0.0000000000000000 ," 461130 has zero counts if not has_gamma")
4671  insist(this%has_gamma( 1612 ).eqv..false.," 471130 has_gamma")
4672  insist(sum(this%binned(:, 1612 ))== 0.0000000000000000 ," 471130 has zero counts if not has_gamma")
4673  insist(this%has_gamma( 1613 ).eqv..false.," 471131 has_gamma")
4674  insist(sum(this%binned(:, 1613 ))== 0.0000000000000000 ," 471131 has zero counts if not has_gamma")
4675  insist(this%has_gamma( 1614 ).eqv..true. ," 481130 has_gamma")
4676  ref= 7.5475555081041520e-002
4677  new=sum(this%binned(:, 1614 ))
4678  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 7.5475555081041520E-002 , new=",new,")"
4679  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 481130 "//trim(msg))
4680  insist(this%has_gamma( 1615 ).eqv..true. ," 481131 has_gamma")
4681  ref= 0.17320447776984155
4682  new=sum(this%binned(:, 1615 ))
4683  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.17320447776984155 , new=",new,")"
4684  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 481131 "//trim(msg))
4685  insist(this%has_gamma( 1616 ).eqv..false.," 491130 has_gamma")
4686  insist(sum(this%binned(:, 1616 ))== 0.0000000000000000 ," 491130 has zero counts if not has_gamma")
4687  insist(this%has_gamma( 1617 ).eqv..false.," 491131 has_gamma")
4688  insist(sum(this%binned(:, 1617 ))== 0.0000000000000000 ," 491131 has zero counts if not has_gamma")
4689  insist(this%has_gamma( 1618 ).eqv..false.," 501130 has_gamma")
4690  insist(sum(this%binned(:, 1618 ))== 0.0000000000000000 ," 501130 has zero counts if not has_gamma")
4691  insist(this%has_gamma( 1619 ).eqv..false.," 501131 has_gamma")
4692  insist(sum(this%binned(:, 1619 ))== 0.0000000000000000 ," 501131 has zero counts if not has_gamma")
4693  insist(this%has_gamma( 1620 ).eqv..false.," 511130 has_gamma")
4694  insist(sum(this%binned(:, 1620 ))== 0.0000000000000000 ," 511130 has zero counts if not has_gamma")
4695  insist(this%has_gamma( 1621 ).eqv..false.," 421140 has_gamma")
4696  insist(sum(this%binned(:, 1621 ))== 0.0000000000000000 ," 421140 has zero counts if not has_gamma")
4697  insist(this%has_gamma( 1622 ).eqv..false.," 431140 has_gamma")
4698  insist(sum(this%binned(:, 1622 ))== 0.0000000000000000 ," 431140 has zero counts if not has_gamma")
4699  insist(this%has_gamma( 1623 ).eqv..false.," 441140 has_gamma")
4700  insist(sum(this%binned(:, 1623 ))== 0.0000000000000000 ," 441140 has zero counts if not has_gamma")
4701  insist(this%has_gamma( 1624 ).eqv..false.," 451140 has_gamma")
4702  insist(sum(this%binned(:, 1624 ))== 0.0000000000000000 ," 451140 has zero counts if not has_gamma")
4703  insist(this%has_gamma( 1625 ).eqv..false.," 461140 has_gamma")
4704  insist(sum(this%binned(:, 1625 ))== 0.0000000000000000 ," 461140 has zero counts if not has_gamma")
4705  insist(this%has_gamma( 1626 ).eqv..true. ," 471140 has_gamma")
4706  ref= 2.4824636413965773
4707  new=sum(this%binned(:, 1626 ))
4708  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.4824636413965773 , new=",new,")"
4709  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 471140 "//trim(msg))
4710  insist(this%has_gamma( 1627 ).eqv..false.," 481140 has_gamma")
4711  insist(sum(this%binned(:, 1627 ))== 0.0000000000000000 ," 481140 has zero counts if not has_gamma")
4712  insist(this%has_gamma( 1628 ).eqv..true. ," 491140 has_gamma")
4713  ref= 0.88342222361784639
4714  new=sum(this%binned(:, 1628 ))
4715  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.88342222361784639 , new=",new,")"
4716  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491140 "//trim(msg))
4717  insist(this%has_gamma( 1629 ).eqv..false.," 491141 has_gamma")
4718  insist(sum(this%binned(:, 1629 ))== 0.0000000000000000 ," 491141 has zero counts if not has_gamma")
4719  insist(this%has_gamma( 1630 ).eqv..false.," 501140 has_gamma")
4720  insist(sum(this%binned(:, 1630 ))== 0.0000000000000000 ," 501140 has zero counts if not has_gamma")
4721  insist(this%has_gamma( 1631 ).eqv..false.," 421150 has_gamma")
4722  insist(sum(this%binned(:, 1631 ))== 0.0000000000000000 ," 421150 has zero counts if not has_gamma")
4723  insist(this%has_gamma( 1632 ).eqv..false.," 431150 has_gamma")
4724  insist(sum(this%binned(:, 1632 ))== 0.0000000000000000 ," 431150 has zero counts if not has_gamma")
4725  insist(this%has_gamma( 1633 ).eqv..false.," 441150 has_gamma")
4726  insist(sum(this%binned(:, 1633 ))== 0.0000000000000000 ," 441150 has zero counts if not has_gamma")
4727  insist(this%has_gamma( 1634 ).eqv..false.," 451150 has_gamma")
4728  insist(sum(this%binned(:, 1634 ))== 0.0000000000000000 ," 451150 has zero counts if not has_gamma")
4729  insist(this%has_gamma( 1635 ).eqv..false.," 461150 has_gamma")
4730  insist(sum(this%binned(:, 1635 ))== 0.0000000000000000 ," 461150 has zero counts if not has_gamma")
4731  insist(this%has_gamma( 1636 ).eqv..true. ," 471150 has_gamma")
4732  ref= 1.2444187532827469
4733  new=sum(this%binned(:, 1636 ))
4734  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2444187532827469 , new=",new,")"
4735  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 471150 "//trim(msg))
4736  insist(this%has_gamma( 1637 ).eqv..false.," 471151 has_gamma")
4737  insist(sum(this%binned(:, 1637 ))== 0.0000000000000000 ," 471151 has zero counts if not has_gamma")
4738  insist(this%has_gamma( 1638 ).eqv..true. ," 481150 has_gamma")
4739  ref= 0.30763816677283629
4740  new=sum(this%binned(:, 1638 ))
4741  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.30763816677283629 , new=",new,")"
4742  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 481150 "//trim(msg))
4743  insist(this%has_gamma( 1639 ).eqv..true. ," 481151 has_gamma")
4744  ref= 0.67684358372750064
4745  new=sum(this%binned(:, 1639 ))
4746  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.67684358372750064 , new=",new,")"
4747  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 481151 "//trim(msg))
4748  insist(this%has_gamma( 1640 ).eqv..true. ," 491150 has_gamma")
4749  ref= 0.13679583884205912
4750  new=sum(this%binned(:, 1640 ))
4751  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.13679583884205912 , new=",new,")"
4752  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491150 "//trim(msg))
4753  insist(this%has_gamma( 1641 ).eqv..true. ," 491151 has_gamma")
4754  ref= 4.0115862475793927e-004
4755  new=sum(this%binned(:, 1641 ))
4756  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.0115862475793927E-004 , new=",new,")"
4757  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491151 "//trim(msg))
4758  insist(this%has_gamma( 1642 ).eqv..false.," 501150 has_gamma")
4759  insist(sum(this%binned(:, 1642 ))== 0.0000000000000000 ," 501150 has zero counts if not has_gamma")
4760  insist(this%has_gamma( 1643 ).eqv..false.," 511150 has_gamma")
4761  insist(sum(this%binned(:, 1643 ))== 0.0000000000000000 ," 511150 has zero counts if not has_gamma")
4762  insist(this%has_gamma( 1644 ).eqv..false.," 521150 has_gamma")
4763  insist(sum(this%binned(:, 1644 ))== 0.0000000000000000 ," 521150 has zero counts if not has_gamma")
4764  insist(this%has_gamma( 1645 ).eqv..false.," 431160 has_gamma")
4765  insist(sum(this%binned(:, 1645 ))== 0.0000000000000000 ," 431160 has zero counts if not has_gamma")
4766  insist(this%has_gamma( 1646 ).eqv..false.," 441160 has_gamma")
4767  insist(sum(this%binned(:, 1646 ))== 0.0000000000000000 ," 441160 has zero counts if not has_gamma")
4768  insist(this%has_gamma( 1647 ).eqv..false.," 451160 has_gamma")
4769  insist(sum(this%binned(:, 1647 ))== 0.0000000000000000 ," 451160 has zero counts if not has_gamma")
4770  insist(this%has_gamma( 1648 ).eqv..false.," 461160 has_gamma")
4771  insist(sum(this%binned(:, 1648 ))== 0.0000000000000000 ," 461160 has zero counts if not has_gamma")
4772  insist(this%has_gamma( 1649 ).eqv..true. ," 471160 has_gamma")
4773  ref= 3.2633503201471985
4774  new=sum(this%binned(:, 1649 ))
4775  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.2633503201471985 , new=",new,")"
4776  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 471160 "//trim(msg))
4777  insist(this%has_gamma( 1650 ).eqv..true. ," 471161 has_gamma")
4778  ref= 2.8162644241519961
4779  new=sum(this%binned(:, 1650 ))
4780  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.8162644241519961 , new=",new,")"
4781  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 471161 "//trim(msg))
4782  insist(this%has_gamma( 1651 ).eqv..false.," 481160 has_gamma")
4783  insist(sum(this%binned(:, 1651 ))== 0.0000000000000000 ," 481160 has zero counts if not has_gamma")
4784  insist(this%has_gamma( 1652 ).eqv..true. ," 491160 has_gamma")
4785  ref= 1.6867689489913009
4786  new=sum(this%binned(:, 1652 ))
4787  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.6867689489913009 , new=",new,")"
4788  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491160 "//trim(msg))
4789  insist(this%has_gamma( 1653 ).eqv..true. ," 491161 has_gamma")
4790  ref= 0.30791418396150139
4791  new=sum(this%binned(:, 1653 ))
4792  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.30791418396150139 , new=",new,")"
4793  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491161 "//trim(msg))
4794  insist(this%has_gamma( 1654 ).eqv..false.," 501160 has_gamma")
4795  insist(sum(this%binned(:, 1654 ))== 0.0000000000000000 ," 501160 has zero counts if not has_gamma")
4796  insist(this%has_gamma( 1655 ).eqv..false.," 431170 has_gamma")
4797  insist(sum(this%binned(:, 1655 ))== 0.0000000000000000 ," 431170 has zero counts if not has_gamma")
4798  insist(this%has_gamma( 1656 ).eqv..false.," 441170 has_gamma")
4799  insist(sum(this%binned(:, 1656 ))== 0.0000000000000000 ," 441170 has zero counts if not has_gamma")
4800  insist(this%has_gamma( 1657 ).eqv..false.," 451170 has_gamma")
4801  insist(sum(this%binned(:, 1657 ))== 0.0000000000000000 ," 451170 has zero counts if not has_gamma")
4802  insist(this%has_gamma( 1658 ).eqv..false.," 461170 has_gamma")
4803  insist(sum(this%binned(:, 1658 ))== 0.0000000000000000 ," 461170 has zero counts if not has_gamma")
4804  insist(this%has_gamma( 1659 ).eqv..false.," 471170 has_gamma")
4805  insist(sum(this%binned(:, 1659 ))== 0.0000000000000000 ," 471170 has zero counts if not has_gamma")
4806  insist(this%has_gamma( 1660 ).eqv..false.," 471171 has_gamma")
4807  insist(sum(this%binned(:, 1660 ))== 0.0000000000000000 ," 471171 has zero counts if not has_gamma")
4808  insist(this%has_gamma( 1661 ).eqv..false.," 481170 has_gamma")
4809  insist(sum(this%binned(:, 1661 ))== 0.0000000000000000 ," 481170 has zero counts if not has_gamma")
4810  insist(this%has_gamma( 1662 ).eqv..false.," 481171 has_gamma")
4811  insist(sum(this%binned(:, 1662 ))== 0.0000000000000000 ," 481171 has zero counts if not has_gamma")
4812  insist(this%has_gamma( 1663 ).eqv..false.," 491170 has_gamma")
4813  insist(sum(this%binned(:, 1663 ))== 0.0000000000000000 ," 491170 has zero counts if not has_gamma")
4814  insist(this%has_gamma( 1664 ).eqv..false.," 491171 has_gamma")
4815  insist(sum(this%binned(:, 1664 ))== 0.0000000000000000 ," 491171 has zero counts if not has_gamma")
4816  insist(this%has_gamma( 1665 ).eqv..false.," 501170 has_gamma")
4817  insist(sum(this%binned(:, 1665 ))== 0.0000000000000000 ," 501170 has zero counts if not has_gamma")
4818  insist(this%has_gamma( 1666 ).eqv..false.," 501171 has_gamma")
4819  insist(sum(this%binned(:, 1666 ))== 0.0000000000000000 ," 501171 has zero counts if not has_gamma")
4820  insist(this%has_gamma( 1667 ).eqv..false.," 511170 has_gamma")
4821  insist(sum(this%binned(:, 1667 ))== 0.0000000000000000 ," 511170 has zero counts if not has_gamma")
4822  insist(this%has_gamma( 1668 ).eqv..false.," 521170 has_gamma")
4823  insist(sum(this%binned(:, 1668 ))== 0.0000000000000000 ," 521170 has zero counts if not has_gamma")
4824  insist(this%has_gamma( 1669 ).eqv..false.," 431180 has_gamma")
4825  insist(sum(this%binned(:, 1669 ))== 0.0000000000000000 ," 431180 has zero counts if not has_gamma")
4826  insist(this%has_gamma( 1670 ).eqv..false.," 441180 has_gamma")
4827  insist(sum(this%binned(:, 1670 ))== 0.0000000000000000 ," 441180 has zero counts if not has_gamma")
4828  insist(this%has_gamma( 1671 ).eqv..false.," 451180 has_gamma")
4829  insist(sum(this%binned(:, 1671 ))== 0.0000000000000000 ," 451180 has zero counts if not has_gamma")
4830  insist(this%has_gamma( 1672 ).eqv..false.," 461180 has_gamma")
4831  insist(sum(this%binned(:, 1672 ))== 0.0000000000000000 ," 461180 has zero counts if not has_gamma")
4832  insist(this%has_gamma( 1673 ).eqv..true. ," 471180 has_gamma")
4833  ref= 3.3240902636030119
4834  new=sum(this%binned(:, 1673 ))
4835  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.3240902636030119 , new=",new,")"
4836  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 471180 "//trim(msg))
4837  insist(this%has_gamma( 1674 ).eqv..true. ," 471181 has_gamma")
4838  ref= 0.86840080777885975
4839  new=sum(this%binned(:, 1674 ))
4840  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.86840080777885975 , new=",new,")"
4841  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 471181 "//trim(msg))
4842  insist(this%has_gamma( 1675 ).eqv..false.," 481180 has_gamma")
4843  insist(sum(this%binned(:, 1675 ))== 0.0000000000000000 ," 481180 has zero counts if not has_gamma")
4844  insist(this%has_gamma( 1676 ).eqv..true. ," 491180 has_gamma")
4845  ref= 2.1664227433685710
4846  new=sum(this%binned(:, 1676 ))
4847  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.1664227433685710 , new=",new,")"
4848  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491180 "//trim(msg))
4849  insist(this%has_gamma( 1677 ).eqv..true. ," 491181 has_gamma")
4850  ref= 0.63419669953075919
4851  new=sum(this%binned(:, 1677 ))
4852  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.63419669953075919 , new=",new,")"
4853  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491181 "//trim(msg))
4854  insist(this%has_gamma( 1678 ).eqv..false.," 501180 has_gamma")
4855  insist(sum(this%binned(:, 1678 ))== 0.0000000000000000 ," 501180 has zero counts if not has_gamma")
4856  insist(this%has_gamma( 1679 ).eqv..false.," 511180 has_gamma")
4857  insist(sum(this%binned(:, 1679 ))== 0.0000000000000000 ," 511180 has zero counts if not has_gamma")
4858  insist(this%has_gamma( 1680 ).eqv..false.," 511181 has_gamma")
4859  insist(sum(this%binned(:, 1680 ))== 0.0000000000000000 ," 511181 has zero counts if not has_gamma")
4860  insist(this%has_gamma( 1681 ).eqv..false.," 521180 has_gamma")
4861  insist(sum(this%binned(:, 1681 ))== 0.0000000000000000 ," 521180 has zero counts if not has_gamma")
4862  insist(this%has_gamma( 1682 ).eqv..false.," 441190 has_gamma")
4863  insist(sum(this%binned(:, 1682 ))== 0.0000000000000000 ," 441190 has zero counts if not has_gamma")
4864  insist(this%has_gamma( 1683 ).eqv..false.," 451190 has_gamma")
4865  insist(sum(this%binned(:, 1683 ))== 0.0000000000000000 ," 451190 has zero counts if not has_gamma")
4866  insist(this%has_gamma( 1684 ).eqv..false.," 461190 has_gamma")
4867  insist(sum(this%binned(:, 1684 ))== 0.0000000000000000 ," 461190 has zero counts if not has_gamma")
4868  insist(this%has_gamma( 1685 ).eqv..false.," 471190 has_gamma")
4869  insist(sum(this%binned(:, 1685 ))== 0.0000000000000000 ," 471190 has zero counts if not has_gamma")
4870  insist(this%has_gamma( 1686 ).eqv..false.," 481190 has_gamma")
4871  insist(sum(this%binned(:, 1686 ))== 0.0000000000000000 ," 481190 has zero counts if not has_gamma")
4872  insist(this%has_gamma( 1687 ).eqv..false.," 481191 has_gamma")
4873  insist(sum(this%binned(:, 1687 ))== 0.0000000000000000 ," 481191 has zero counts if not has_gamma")
4874  insist(this%has_gamma( 1688 ).eqv..false.," 491190 has_gamma")
4875  insist(sum(this%binned(:, 1688 ))== 0.0000000000000000 ," 491190 has zero counts if not has_gamma")
4876  insist(this%has_gamma( 1689 ).eqv..false.," 491191 has_gamma")
4877  insist(sum(this%binned(:, 1689 ))== 0.0000000000000000 ," 491191 has zero counts if not has_gamma")
4878  insist(this%has_gamma( 1690 ).eqv..false.," 501190 has_gamma")
4879  insist(sum(this%binned(:, 1690 ))== 0.0000000000000000 ," 501190 has zero counts if not has_gamma")
4880  insist(this%has_gamma( 1691 ).eqv..false.," 501191 has_gamma")
4881  insist(sum(this%binned(:, 1691 ))== 0.0000000000000000 ," 501191 has zero counts if not has_gamma")
4882  insist(this%has_gamma( 1692 ).eqv..false.," 511190 has_gamma")
4883  insist(sum(this%binned(:, 1692 ))== 0.0000000000000000 ," 511190 has zero counts if not has_gamma")
4884  insist(this%has_gamma( 1693 ).eqv..false.," 521190 has_gamma")
4885  insist(sum(this%binned(:, 1693 ))== 0.0000000000000000 ," 521190 has zero counts if not has_gamma")
4886  insist(this%has_gamma( 1694 ).eqv..false.," 441200 has_gamma")
4887  insist(sum(this%binned(:, 1694 ))== 0.0000000000000000 ," 441200 has zero counts if not has_gamma")
4888  insist(this%has_gamma( 1695 ).eqv..false.," 451200 has_gamma")
4889  insist(sum(this%binned(:, 1695 ))== 0.0000000000000000 ," 451200 has zero counts if not has_gamma")
4890  insist(this%has_gamma( 1696 ).eqv..false.," 461200 has_gamma")
4891  insist(sum(this%binned(:, 1696 ))== 0.0000000000000000 ," 461200 has zero counts if not has_gamma")
4892  insist(this%has_gamma( 1697 ).eqv..true. ," 471200 has_gamma")
4893  ref= 3.3587437184752118
4894  new=sum(this%binned(:, 1697 ))
4895  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.3587437184752118 , new=",new,")"
4896  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 471200 "//trim(msg))
4897  insist(this%has_gamma( 1698 ).eqv..false.," 471201 has_gamma")
4898  insist(sum(this%binned(:, 1698 ))== 0.0000000000000000 ," 471201 has zero counts if not has_gamma")
4899  insist(this%has_gamma( 1699 ).eqv..true. ," 481200 has_gamma")
4900  ref= 0.61944403806587356
4901  new=sum(this%binned(:, 1699 ))
4902  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.61944403806587356 , new=",new,")"
4903  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 481200 "//trim(msg))
4904  insist(this%has_gamma( 1700 ).eqv..true. ," 491200 has_gamma")
4905  ref= 3.0781108253240705
4906  new=sum(this%binned(:, 1700 ))
4907  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.0781108253240705 , new=",new,")"
4908  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491200 "//trim(msg))
4909  insist(this%has_gamma( 1701 ).eqv..true. ," 491201 has_gamma")
4910  ref= 1.1038837285464551
4911  new=sum(this%binned(:, 1701 ))
4912  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.1038837285464551 , new=",new,")"
4913  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491201 "//trim(msg))
4914  insist(this%has_gamma( 1702 ).eqv..false.," 501200 has_gamma")
4915  insist(sum(this%binned(:, 1702 ))== 0.0000000000000000 ," 501200 has zero counts if not has_gamma")
4916  insist(this%has_gamma( 1703 ).eqv..false.," 511200 has_gamma")
4917  insist(sum(this%binned(:, 1703 ))== 0.0000000000000000 ," 511200 has zero counts if not has_gamma")
4918  insist(this%has_gamma( 1704 ).eqv..false.," 511201 has_gamma")
4919  insist(sum(this%binned(:, 1704 ))== 0.0000000000000000 ," 511201 has zero counts if not has_gamma")
4920  insist(this%has_gamma( 1705 ).eqv..false.," 521200 has_gamma")
4921  insist(sum(this%binned(:, 1705 ))== 0.0000000000000000 ," 521200 has zero counts if not has_gamma")
4922  insist(this%has_gamma( 1706 ).eqv..false.," 451210 has_gamma")
4923  insist(sum(this%binned(:, 1706 ))== 0.0000000000000000 ," 451210 has zero counts if not has_gamma")
4924  insist(this%has_gamma( 1707 ).eqv..false.," 461210 has_gamma")
4925  insist(sum(this%binned(:, 1707 ))== 0.0000000000000000 ," 461210 has zero counts if not has_gamma")
4926  insist(this%has_gamma( 1708 ).eqv..false.," 471210 has_gamma")
4927  insist(sum(this%binned(:, 1708 ))== 0.0000000000000000 ," 471210 has zero counts if not has_gamma")
4928  insist(this%has_gamma( 1709 ).eqv..false.," 481210 has_gamma")
4929  insist(sum(this%binned(:, 1709 ))== 0.0000000000000000 ," 481210 has zero counts if not has_gamma")
4930  insist(this%has_gamma( 1710 ).eqv..false.," 481211 has_gamma")
4931  insist(sum(this%binned(:, 1710 ))== 0.0000000000000000 ," 481211 has zero counts if not has_gamma")
4932  insist(this%has_gamma( 1711 ).eqv..false.," 491210 has_gamma")
4933  insist(sum(this%binned(:, 1711 ))== 0.0000000000000000 ," 491210 has zero counts if not has_gamma")
4934  insist(this%has_gamma( 1712 ).eqv..false.," 491211 has_gamma")
4935  insist(sum(this%binned(:, 1712 ))== 0.0000000000000000 ," 491211 has zero counts if not has_gamma")
4936  insist(this%has_gamma( 1713 ).eqv..false.," 501210 has_gamma")
4937  insist(sum(this%binned(:, 1713 ))== 0.0000000000000000 ," 501210 has zero counts if not has_gamma")
4938  insist(this%has_gamma( 1714 ).eqv..false.," 501211 has_gamma")
4939  insist(sum(this%binned(:, 1714 ))== 0.0000000000000000 ," 501211 has zero counts if not has_gamma")
4940  insist(this%has_gamma( 1715 ).eqv..false.," 511210 has_gamma")
4941  insist(sum(this%binned(:, 1715 ))== 0.0000000000000000 ," 511210 has zero counts if not has_gamma")
4942  insist(this%has_gamma( 1716 ).eqv..false.," 521210 has_gamma")
4943  insist(sum(this%binned(:, 1716 ))== 0.0000000000000000 ," 521210 has zero counts if not has_gamma")
4944  insist(this%has_gamma( 1717 ).eqv..false.," 521211 has_gamma")
4945  insist(sum(this%binned(:, 1717 ))== 0.0000000000000000 ," 521211 has zero counts if not has_gamma")
4946  insist(this%has_gamma( 1718 ).eqv..false.," 531210 has_gamma")
4947  insist(sum(this%binned(:, 1718 ))== 0.0000000000000000 ," 531210 has zero counts if not has_gamma")
4948  insist(this%has_gamma( 1719 ).eqv..false.," 451220 has_gamma")
4949  insist(sum(this%binned(:, 1719 ))== 0.0000000000000000 ," 451220 has zero counts if not has_gamma")
4950  insist(this%has_gamma( 1720 ).eqv..false.," 461220 has_gamma")
4951  insist(sum(this%binned(:, 1720 ))== 0.0000000000000000 ," 461220 has zero counts if not has_gamma")
4952  insist(this%has_gamma( 1721 ).eqv..false.," 471220 has_gamma")
4953  insist(sum(this%binned(:, 1721 ))== 0.0000000000000000 ," 471220 has zero counts if not has_gamma")
4954  insist(this%has_gamma( 1722 ).eqv..false.," 471221 has_gamma")
4955  insist(sum(this%binned(:, 1722 ))== 0.0000000000000000 ," 471221 has zero counts if not has_gamma")
4956  insist(this%has_gamma( 1723 ).eqv..false.," 481220 has_gamma")
4957  insist(sum(this%binned(:, 1723 ))== 0.0000000000000000 ," 481220 has zero counts if not has_gamma")
4958  insist(this%has_gamma( 1724 ).eqv..true. ," 491220 has_gamma")
4959  ref= 1.9982638149097056
4960  new=sum(this%binned(:, 1724 ))
4961  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.9982638149097056 , new=",new,")"
4962  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491220 "//trim(msg))
4963  insist(this%has_gamma( 1725 ).eqv..true. ," 491221 has_gamma")
4964  ref= 3.5324113305387077
4965  new=sum(this%binned(:, 1725 ))
4966  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.5324113305387077 , new=",new,")"
4967  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491221 "//trim(msg))
4968  insist(this%has_gamma( 1726 ).eqv..false.," 501220 has_gamma")
4969  insist(sum(this%binned(:, 1726 ))== 0.0000000000000000 ," 501220 has zero counts if not has_gamma")
4970  insist(this%has_gamma( 1727 ).eqv..true. ," 511220 has_gamma")
4971  ref= 0.61206787508708693
4972  new=sum(this%binned(:, 1727 ))
4973  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.61206787508708693 , new=",new,")"
4974  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511220 "//trim(msg))
4975  insist(this%has_gamma( 1728 ).eqv..false.," 511221 has_gamma")
4976  insist(sum(this%binned(:, 1728 ))== 0.0000000000000000 ," 511221 has zero counts if not has_gamma")
4977  insist(this%has_gamma( 1729 ).eqv..false.," 521220 has_gamma")
4978  insist(sum(this%binned(:, 1729 ))== 0.0000000000000000 ," 521220 has zero counts if not has_gamma")
4979  insist(this%has_gamma( 1730 ).eqv..false.," 461230 has_gamma")
4980  insist(sum(this%binned(:, 1730 ))== 0.0000000000000000 ," 461230 has zero counts if not has_gamma")
4981  insist(this%has_gamma( 1731 ).eqv..false.," 471230 has_gamma")
4982  insist(sum(this%binned(:, 1731 ))== 0.0000000000000000 ," 471230 has zero counts if not has_gamma")
4983  insist(this%has_gamma( 1732 ).eqv..false.," 481230 has_gamma")
4984  insist(sum(this%binned(:, 1732 ))== 0.0000000000000000 ," 481230 has zero counts if not has_gamma")
4985  insist(this%has_gamma( 1733 ).eqv..false.," 481231 has_gamma")
4986  insist(sum(this%binned(:, 1733 ))== 0.0000000000000000 ," 481231 has zero counts if not has_gamma")
4987  insist(this%has_gamma( 1734 ).eqv..true. ," 491230 has_gamma")
4988  ref= 1.5216385844682718
4989  new=sum(this%binned(:, 1734 ))
4990  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.5216385844682718 , new=",new,")"
4991  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491230 "//trim(msg))
4992  insist(this%has_gamma( 1735 ).eqv..false.," 491231 has_gamma")
4993  insist(sum(this%binned(:, 1735 ))== 0.0000000000000000 ," 491231 has zero counts if not has_gamma")
4994  insist(this%has_gamma( 1736 ).eqv..true. ," 501230 has_gamma")
4995  ref= 0.57978316783614969
4996  new=sum(this%binned(:, 1736 ))
4997  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.57978316783614969 , new=",new,")"
4998  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 501230 "//trim(msg))
4999  insist(this%has_gamma( 1737 ).eqv..true. ," 501231 has_gamma")
5000  ref= 0.48882191691704341
5001  new=sum(this%binned(:, 1737 ))
5002  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.48882191691704341 , new=",new,")"
5003  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 501231 "//trim(msg))
5004  insist(this%has_gamma( 1738 ).eqv..false.," 511230 has_gamma")
5005  insist(sum(this%binned(:, 1738 ))== 0.0000000000000000 ," 511230 has zero counts if not has_gamma")
5006  insist(this%has_gamma( 1739 ).eqv..false.," 521230 has_gamma")
5007  insist(sum(this%binned(:, 1739 ))== 0.0000000000000000 ," 521230 has zero counts if not has_gamma")
5008  insist(this%has_gamma( 1740 ).eqv..false.," 521231 has_gamma")
5009  insist(sum(this%binned(:, 1740 ))== 0.0000000000000000 ," 521231 has zero counts if not has_gamma")
5010  insist(this%has_gamma( 1741 ).eqv..false.," 531230 has_gamma")
5011  insist(sum(this%binned(:, 1741 ))== 0.0000000000000000 ," 531230 has zero counts if not has_gamma")
5012  insist(this%has_gamma( 1742 ).eqv..false.," 461240 has_gamma")
5013  insist(sum(this%binned(:, 1742 ))== 0.0000000000000000 ," 461240 has zero counts if not has_gamma")
5014  insist(this%has_gamma( 1743 ).eqv..false.," 471240 has_gamma")
5015  insist(sum(this%binned(:, 1743 ))== 0.0000000000000000 ," 471240 has zero counts if not has_gamma")
5016  insist(this%has_gamma( 1744 ).eqv..false.," 481240 has_gamma")
5017  insist(sum(this%binned(:, 1744 ))== 0.0000000000000000 ," 481240 has zero counts if not has_gamma")
5018  insist(this%has_gamma( 1745 ).eqv..false.," 491240 has_gamma")
5019  insist(sum(this%binned(:, 1745 ))== 0.0000000000000000 ," 491240 has zero counts if not has_gamma")
5020  insist(this%has_gamma( 1746 ).eqv..false.," 491241 has_gamma")
5021  insist(sum(this%binned(:, 1746 ))== 0.0000000000000000 ," 491241 has zero counts if not has_gamma")
5022  insist(this%has_gamma( 1747 ).eqv..false.," 501240 has_gamma")
5023  insist(sum(this%binned(:, 1747 ))== 0.0000000000000000 ," 501240 has zero counts if not has_gamma")
5024  insist(this%has_gamma( 1748 ).eqv..true. ," 511240 has_gamma")
5025  ref= 0.41775164849608570
5026  new=sum(this%binned(:, 1748 ))
5027  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.41775164849608570 , new=",new,")"
5028  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511240 "//trim(msg))
5029  insist(this%has_gamma( 1749 ).eqv..true. ," 511241 has_gamma")
5030  ref= 1.7386910510827434e-002
5031  new=sum(this%binned(:, 1749 ))
5032  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.7386910510827434E-002 , new=",new,")"
5033  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511241 "//trim(msg))
5034  insist(this%has_gamma( 1750 ).eqv..false.," 521240 has_gamma")
5035  insist(sum(this%binned(:, 1750 ))== 0.0000000000000000 ," 521240 has zero counts if not has_gamma")
5036  insist(this%has_gamma( 1751 ).eqv..false.," 531240 has_gamma")
5037  insist(sum(this%binned(:, 1751 ))== 0.0000000000000000 ," 531240 has zero counts if not has_gamma")
5038  insist(this%has_gamma( 1752 ).eqv..false.," 541240 has_gamma")
5039  insist(sum(this%binned(:, 1752 ))== 0.0000000000000000 ," 541240 has zero counts if not has_gamma")
5040  insist(this%has_gamma( 1753 ).eqv..false.," 471250 has_gamma")
5041  insist(sum(this%binned(:, 1753 ))== 0.0000000000000000 ," 471250 has zero counts if not has_gamma")
5042  insist(this%has_gamma( 1754 ).eqv..false.," 481250 has_gamma")
5043  insist(sum(this%binned(:, 1754 ))== 0.0000000000000000 ," 481250 has zero counts if not has_gamma")
5044  insist(this%has_gamma( 1755 ).eqv..false.," 491250 has_gamma")
5045  insist(sum(this%binned(:, 1755 ))== 0.0000000000000000 ," 491250 has zero counts if not has_gamma")
5046  insist(this%has_gamma( 1756 ).eqv..false.," 491251 has_gamma")
5047  insist(sum(this%binned(:, 1756 ))== 0.0000000000000000 ," 491251 has zero counts if not has_gamma")
5048  insist(this%has_gamma( 1757 ).eqv..true. ," 501250 has_gamma")
5049  ref= 0.95998007878166880
5050  new=sum(this%binned(:, 1757 ))
5051  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.95998007878166880 , new=",new,")"
5052  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 501250 "//trim(msg))
5053  insist(this%has_gamma( 1758 ).eqv..true. ," 501251 has_gamma")
5054  ref= 0.90123469909512754
5055  new=sum(this%binned(:, 1758 ))
5056  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.90123469909512754 , new=",new,")"
5057  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 501251 "//trim(msg))
5058  insist(this%has_gamma( 1759 ).eqv..true. ," 511250 has_gamma")
5059  ref= 7.1726213357862861e-002
5060  new=sum(this%binned(:, 1759 ))
5061  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 7.1726213357862861E-002 , new=",new,")"
5062  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511250 "//trim(msg))
5063  insist(this%has_gamma( 1760 ).eqv..false.," 521250 has_gamma")
5064  insist(sum(this%binned(:, 1760 ))== 0.0000000000000000 ," 521250 has zero counts if not has_gamma")
5065  insist(this%has_gamma( 1761 ).eqv..false.," 521251 has_gamma")
5066  insist(sum(this%binned(:, 1761 ))== 0.0000000000000000 ," 521251 has zero counts if not has_gamma")
5067  insist(this%has_gamma( 1762 ).eqv..false.," 531250 has_gamma")
5068  insist(sum(this%binned(:, 1762 ))== 0.0000000000000000 ," 531250 has zero counts if not has_gamma")
5069  insist(this%has_gamma( 1763 ).eqv..true. ," 541250 has_gamma")
5070  ref= 5.0064228739966918e-003
5071  new=sum(this%binned(:, 1763 ))
5072  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 5.0064228739966918E-003 , new=",new,")"
5073  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 541250 "//trim(msg))
5074  insist(this%has_gamma( 1764 ).eqv..false.," 541251 has_gamma")
5075  insist(sum(this%binned(:, 1764 ))== 0.0000000000000000 ," 541251 has zero counts if not has_gamma")
5076  insist(this%has_gamma( 1765 ).eqv..false.," 471260 has_gamma")
5077  insist(sum(this%binned(:, 1765 ))== 0.0000000000000000 ," 471260 has zero counts if not has_gamma")
5078  insist(this%has_gamma( 1766 ).eqv..false.," 481260 has_gamma")
5079  insist(sum(this%binned(:, 1766 ))== 0.0000000000000000 ," 481260 has zero counts if not has_gamma")
5080  insist(this%has_gamma( 1767 ).eqv..false.," 491260 has_gamma")
5081  insist(sum(this%binned(:, 1767 ))== 0.0000000000000000 ," 491260 has zero counts if not has_gamma")
5082  insist(this%has_gamma( 1768 ).eqv..false.," 491261 has_gamma")
5083  insist(sum(this%binned(:, 1768 ))== 0.0000000000000000 ," 491261 has zero counts if not has_gamma")
5084  insist(this%has_gamma( 1769 ).eqv..true. ," 501260 has_gamma")
5085  ref= 8.4624188393718172e-002
5086  new=sum(this%binned(:, 1769 ))
5087  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.4624188393718172E-002 , new=",new,")"
5088  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 501260 "//trim(msg))
5089  insist(this%has_gamma( 1770 ).eqv..true. ," 511260 has_gamma")
5090  ref= 0.28249918769960813
5091  new=sum(this%binned(:, 1770 ))
5092  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.28249918769960813 , new=",new,")"
5093  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511260 "//trim(msg))
5094  insist(this%has_gamma( 1771 ).eqv..true. ," 511261 has_gamma")
5095  ref= 0.57419892530658634
5096  new=sum(this%binned(:, 1771 ))
5097  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.57419892530658634 , new=",new,")"
5098  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511261 "//trim(msg))
5099  insist(this%has_gamma( 1772 ).eqv..false.," 521260 has_gamma")
5100  insist(sum(this%binned(:, 1772 ))== 0.0000000000000000 ," 521260 has zero counts if not has_gamma")
5101  insist(this%has_gamma( 1773 ).eqv..true. ," 531260 has_gamma")
5102  ref= 6.9957713445655045e-002
5103  new=sum(this%binned(:, 1773 ))
5104  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.9957713445655045E-002 , new=",new,")"
5105  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531260 "//trim(msg))
5106  insist(this%has_gamma( 1774 ).eqv..false.," 541260 has_gamma")
5107  insist(sum(this%binned(:, 1774 ))== 0.0000000000000000 ," 541260 has zero counts if not has_gamma")
5108  insist(this%has_gamma( 1775 ).eqv..false.," 471270 has_gamma")
5109  insist(sum(this%binned(:, 1775 ))== 0.0000000000000000 ," 471270 has zero counts if not has_gamma")
5110  insist(this%has_gamma( 1776 ).eqv..false.," 481270 has_gamma")
5111  insist(sum(this%binned(:, 1776 ))== 0.0000000000000000 ," 481270 has zero counts if not has_gamma")
5112  insist(this%has_gamma( 1777 ).eqv..false.," 491270 has_gamma")
5113  insist(sum(this%binned(:, 1777 ))== 0.0000000000000000 ," 491270 has zero counts if not has_gamma")
5114  insist(this%has_gamma( 1778 ).eqv..false.," 491271 has_gamma")
5115  insist(sum(this%binned(:, 1778 ))== 0.0000000000000000 ," 491271 has zero counts if not has_gamma")
5116  insist(this%has_gamma( 1779 ).eqv..true. ," 501270 has_gamma")
5117  ref= 0.61070897067947871
5118  new=sum(this%binned(:, 1779 ))
5119  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.61070897067947871 , new=",new,")"
5120  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 501270 "//trim(msg))
5121  insist(this%has_gamma( 1780 ).eqv..false.," 501271 has_gamma")
5122  insist(sum(this%binned(:, 1780 ))== 0.0000000000000000 ," 501271 has zero counts if not has_gamma")
5123  insist(this%has_gamma( 1781 ).eqv..true. ," 511270 has_gamma")
5124  ref= 0.31553111973075260
5125  new=sum(this%binned(:, 1781 ))
5126  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.31553111973075260 , new=",new,")"
5127  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511270 "//trim(msg))
5128  insist(this%has_gamma( 1782 ).eqv..true. ," 521270 has_gamma")
5129  ref= 0.21533089173324707
5130  new=sum(this%binned(:, 1782 ))
5131  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.21533089173324707 , new=",new,")"
5132  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521270 "//trim(msg))
5133  insist(this%has_gamma( 1783 ).eqv..true. ," 521271 has_gamma")
5134  ref= 1.4553212944834476e-004
5135  new=sum(this%binned(:, 1783 ))
5136  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4553212944834476E-004 , new=",new,")"
5137  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521271 "//trim(msg))
5138  insist(this%has_gamma( 1784 ).eqv..false.," 531270 has_gamma")
5139  insist(sum(this%binned(:, 1784 ))== 0.0000000000000000 ," 531270 has zero counts if not has_gamma")
5140  insist(this%has_gamma( 1785 ).eqv..false.," 541270 has_gamma")
5141  insist(sum(this%binned(:, 1785 ))== 0.0000000000000000 ," 541270 has zero counts if not has_gamma")
5142  insist(this%has_gamma( 1786 ).eqv..false.," 541271 has_gamma")
5143  insist(sum(this%binned(:, 1786 ))== 0.0000000000000000 ," 541271 has zero counts if not has_gamma")
5144  insist(this%has_gamma( 1787 ).eqv..false.," 551270 has_gamma")
5145  insist(sum(this%binned(:, 1787 ))== 0.0000000000000000 ," 551270 has zero counts if not has_gamma")
5146  insist(this%has_gamma( 1788 ).eqv..false.," 471280 has_gamma")
5147  insist(sum(this%binned(:, 1788 ))== 0.0000000000000000 ," 471280 has zero counts if not has_gamma")
5148  insist(this%has_gamma( 1789 ).eqv..false.," 481280 has_gamma")
5149  insist(sum(this%binned(:, 1789 ))== 0.0000000000000000 ," 481280 has zero counts if not has_gamma")
5150  insist(this%has_gamma( 1790 ).eqv..false.," 491280 has_gamma")
5151  insist(sum(this%binned(:, 1790 ))== 0.0000000000000000 ," 491280 has zero counts if not has_gamma")
5152  insist(this%has_gamma( 1791 ).eqv..false.," 491281 has_gamma")
5153  insist(sum(this%binned(:, 1791 ))== 0.0000000000000000 ," 491281 has zero counts if not has_gamma")
5154  insist(this%has_gamma( 1792 ).eqv..false.," 501280 has_gamma")
5155  insist(sum(this%binned(:, 1792 ))== 0.0000000000000000 ," 501280 has zero counts if not has_gamma")
5156  insist(this%has_gamma( 1793 ).eqv..false.," 501281 has_gamma")
5157  insist(sum(this%binned(:, 1793 ))== 0.0000000000000000 ," 501281 has zero counts if not has_gamma")
5158  insist(this%has_gamma( 1794 ).eqv..true. ," 511280 has_gamma")
5159  ref= 0.41964379699613336
5160  new=sum(this%binned(:, 1794 ))
5161  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.41964379699613336 , new=",new,")"
5162  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511280 "//trim(msg))
5163  insist(this%has_gamma( 1795 ).eqv..true. ," 511281 has_gamma")
5164  ref= 1.1334510944990936
5165  new=sum(this%binned(:, 1795 ))
5166  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.1334510944990936 , new=",new,")"
5167  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511281 "//trim(msg))
5168  insist(this%has_gamma( 1796 ).eqv..false.," 521280 has_gamma")
5169  insist(sum(this%binned(:, 1796 ))== 0.0000000000000000 ," 521280 has zero counts if not has_gamma")
5170  insist(this%has_gamma( 1797 ).eqv..true. ," 531280 has_gamma")
5171  ref= 0.81150481878300196
5172  new=sum(this%binned(:, 1797 ))
5173  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.81150481878300196 , new=",new,")"
5174  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531280 "//trim(msg))
5175  insist(this%has_gamma( 1798 ).eqv..false.," 541280 has_gamma")
5176  insist(sum(this%binned(:, 1798 ))== 0.0000000000000000 ," 541280 has zero counts if not has_gamma")
5177  insist(this%has_gamma( 1799 ).eqv..false.," 471290 has_gamma")
5178  insist(sum(this%binned(:, 1799 ))== 0.0000000000000000 ," 471290 has zero counts if not has_gamma")
5179  insist(this%has_gamma( 1800 ).eqv..false.," 481290 has_gamma")
5180  insist(sum(this%binned(:, 1800 ))== 0.0000000000000000 ," 481290 has zero counts if not has_gamma")
5181  insist(this%has_gamma( 1801 ).eqv..false.," 491290 has_gamma")
5182  insist(sum(this%binned(:, 1801 ))== 0.0000000000000000 ," 491290 has zero counts if not has_gamma")
5183  insist(this%has_gamma( 1802 ).eqv..false.," 491291 has_gamma")
5184  insist(sum(this%binned(:, 1802 ))== 0.0000000000000000 ," 491291 has zero counts if not has_gamma")
5185  insist(this%has_gamma( 1803 ).eqv..false.," 501290 has_gamma")
5186  insist(sum(this%binned(:, 1803 ))== 0.0000000000000000 ," 501290 has zero counts if not has_gamma")
5187  insist(this%has_gamma( 1804 ).eqv..false.," 501291 has_gamma")
5188  insist(sum(this%binned(:, 1804 ))== 0.0000000000000000 ," 501291 has zero counts if not has_gamma")
5189  insist(this%has_gamma( 1805 ).eqv..true. ," 511290 has_gamma")
5190  ref= 0.44350162218044037
5191  new=sum(this%binned(:, 1805 ))
5192  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.44350162218044037 , new=",new,")"
5193  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511290 "//trim(msg))
5194  insist(this%has_gamma( 1806 ).eqv..false.," 511291 has_gamma")
5195  insist(sum(this%binned(:, 1806 ))== 0.0000000000000000 ," 511291 has zero counts if not has_gamma")
5196  insist(this%has_gamma( 1807 ).eqv..true. ," 521290 has_gamma")
5197  ref= 0.57148233870467513
5198  new=sum(this%binned(:, 1807 ))
5199  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.57148233870467513 , new=",new,")"
5200  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521290 "//trim(msg))
5201  insist(this%has_gamma( 1808 ).eqv..true. ," 521291 has_gamma")
5202  ref= 7.7115786881851278e-002
5203  new=sum(this%binned(:, 1808 ))
5204  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 7.7115786881851278E-002 , new=",new,")"
5205  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521291 "//trim(msg))
5206  insist(this%has_gamma( 1809 ).eqv..true. ," 531290 has_gamma")
5207  ref= 2.5070131073676859e-002
5208  new=sum(this%binned(:, 1809 ))
5209  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.5070131073676859E-002 , new=",new,")"
5210  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531290 "//trim(msg))
5211  insist(this%has_gamma( 1810 ).eqv..false.," 541290 has_gamma")
5212  insist(sum(this%binned(:, 1810 ))== 0.0000000000000000 ," 541290 has zero counts if not has_gamma")
5213  insist(this%has_gamma( 1811 ).eqv..false.," 541291 has_gamma")
5214  insist(sum(this%binned(:, 1811 ))== 0.0000000000000000 ," 541291 has zero counts if not has_gamma")
5215  insist(this%has_gamma( 1812 ).eqv..false.," 551290 has_gamma")
5216  insist(sum(this%binned(:, 1812 ))== 0.0000000000000000 ," 551290 has zero counts if not has_gamma")
5217  insist(this%has_gamma( 1813 ).eqv..false.," 561290 has_gamma")
5218  insist(sum(this%binned(:, 1813 ))== 0.0000000000000000 ," 561290 has zero counts if not has_gamma")
5219  insist(this%has_gamma( 1814 ).eqv..false.," 471300 has_gamma")
5220  insist(sum(this%binned(:, 1814 ))== 0.0000000000000000 ," 471300 has zero counts if not has_gamma")
5221  insist(this%has_gamma( 1815 ).eqv..false.," 481300 has_gamma")
5222  insist(sum(this%binned(:, 1815 ))== 0.0000000000000000 ," 481300 has zero counts if not has_gamma")
5223  insist(this%has_gamma( 1816 ).eqv..true. ," 491300 has_gamma")
5224  ref= 4.3794045450658849
5225  new=sum(this%binned(:, 1816 ))
5226  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.3794045450658849 , new=",new,")"
5227  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 491300 "//trim(msg))
5228  insist(this%has_gamma( 1817 ).eqv..false.," 491301 has_gamma")
5229  insist(sum(this%binned(:, 1817 ))== 0.0000000000000000 ," 491301 has zero counts if not has_gamma")
5230  insist(this%has_gamma( 1818 ).eqv..true. ," 501300 has_gamma")
5231  ref= 0.36380849496143708
5232  new=sum(this%binned(:, 1818 ))
5233  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.36380849496143708 , new=",new,")"
5234  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 501300 "//trim(msg))
5235  insist(this%has_gamma( 1819 ).eqv..false.," 501301 has_gamma")
5236  insist(sum(this%binned(:, 1819 ))== 0.0000000000000000 ," 501301 has zero counts if not has_gamma")
5237  insist(this%has_gamma( 1820 ).eqv..true. ," 511300 has_gamma")
5238  ref= 0.76425034656235624
5239  new=sum(this%binned(:, 1820 ))
5240  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.76425034656235624 , new=",new,")"
5241  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511300 "//trim(msg))
5242  insist(this%has_gamma( 1821 ).eqv..true. ," 511301 has_gamma")
5243  ref= 1.2122752775382750
5244  new=sum(this%binned(:, 1821 ))
5245  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2122752775382750 , new=",new,")"
5246  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511301 "//trim(msg))
5247  insist(this%has_gamma( 1822 ).eqv..false.," 521300 has_gamma")
5248  insist(sum(this%binned(:, 1822 ))== 0.0000000000000000 ," 521300 has zero counts if not has_gamma")
5249  insist(this%has_gamma( 1823 ).eqv..true. ," 531300 has_gamma")
5250  ref= 0.29084157692338020
5251  new=sum(this%binned(:, 1823 ))
5252  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.29084157692338020 , new=",new,")"
5253  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531300 "//trim(msg))
5254  insist(this%has_gamma( 1824 ).eqv..true. ," 531301 has_gamma")
5255  ref= 3.1578917906401223e-002
5256  new=sum(this%binned(:, 1824 ))
5257  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.1578917906401223E-002 , new=",new,")"
5258  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531301 "//trim(msg))
5259  insist(this%has_gamma( 1825 ).eqv..false.," 541300 has_gamma")
5260  insist(sum(this%binned(:, 1825 ))== 0.0000000000000000 ," 541300 has zero counts if not has_gamma")
5261  insist(this%has_gamma( 1826 ).eqv..false.," 481310 has_gamma")
5262  insist(sum(this%binned(:, 1826 ))== 0.0000000000000000 ," 481310 has zero counts if not has_gamma")
5263  insist(this%has_gamma( 1827 ).eqv..false.," 491310 has_gamma")
5264  insist(sum(this%binned(:, 1827 ))== 0.0000000000000000 ," 491310 has zero counts if not has_gamma")
5265  insist(this%has_gamma( 1828 ).eqv..false.," 491311 has_gamma")
5266  insist(sum(this%binned(:, 1828 ))== 0.0000000000000000 ," 491311 has zero counts if not has_gamma")
5267  insist(this%has_gamma( 1829 ).eqv..false.," 501310 has_gamma")
5268  insist(sum(this%binned(:, 1829 ))== 0.0000000000000000 ," 501310 has zero counts if not has_gamma")
5269  insist(this%has_gamma( 1830 ).eqv..false.," 501311 has_gamma")
5270  insist(sum(this%binned(:, 1830 ))== 0.0000000000000000 ," 501311 has zero counts if not has_gamma")
5271  insist(this%has_gamma( 1831 ).eqv..true. ," 511310 has_gamma")
5272  ref= 0.61258087053982990
5273  new=sum(this%binned(:, 1831 ))
5274  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.61258087053982990 , new=",new,")"
5275  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511310 "//trim(msg))
5276  insist(this%has_gamma( 1832 ).eqv..true. ," 521310 has_gamma")
5277  ref= 0.79543965914349735
5278  new=sum(this%binned(:, 1832 ))
5279  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.79543965914349735 , new=",new,")"
5280  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521310 "//trim(msg))
5281  insist(this%has_gamma( 1833 ).eqv..true. ," 521311 has_gamma")
5282  ref= 0.11407246174684361
5283  new=sum(this%binned(:, 1833 ))
5284  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.11407246174684361 , new=",new,")"
5285  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521311 "//trim(msg))
5286  insist(this%has_gamma( 1834 ).eqv..true. ," 531310 has_gamma")
5287  ref= 0.16979873602472145
5288  new=sum(this%binned(:, 1834 ))
5289  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.16979873602472145 , new=",new,")"
5290  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531310 "//trim(msg))
5291  insist(this%has_gamma( 1835 ).eqv..false.," 541310 has_gamma")
5292  insist(sum(this%binned(:, 1835 ))== 0.0000000000000000 ," 541310 has zero counts if not has_gamma")
5293  insist(this%has_gamma( 1836 ).eqv..false.," 541311 has_gamma")
5294  insist(sum(this%binned(:, 1836 ))== 0.0000000000000000 ," 541311 has zero counts if not has_gamma")
5295  insist(this%has_gamma( 1837 ).eqv..false.," 551310 has_gamma")
5296  insist(sum(this%binned(:, 1837 ))== 0.0000000000000000 ," 551310 has zero counts if not has_gamma")
5297  insist(this%has_gamma( 1838 ).eqv..true. ," 561310 has_gamma")
5298  ref= 4.0519245755252231e-006
5299  new=sum(this%binned(:, 1838 ))
5300  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.0519245755252231E-006 , new=",new,")"
5301  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 561310 "//trim(msg))
5302  insist(this%has_gamma( 1839 ).eqv..false.," 481320 has_gamma")
5303  insist(sum(this%binned(:, 1839 ))== 0.0000000000000000 ," 481320 has zero counts if not has_gamma")
5304  insist(this%has_gamma( 1840 ).eqv..false.," 491320 has_gamma")
5305  insist(sum(this%binned(:, 1840 ))== 0.0000000000000000 ," 491320 has zero counts if not has_gamma")
5306  insist(this%has_gamma( 1841 ).eqv..true. ," 501320 has_gamma")
5307  ref= 0.84123627697318115
5308  new=sum(this%binned(:, 1841 ))
5309  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.84123627697318115 , new=",new,")"
5310  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 501320 "//trim(msg))
5311  insist(this%has_gamma( 1842 ).eqv..true. ," 511320 has_gamma")
5312  ref= 1.5790654937945514
5313  new=sum(this%binned(:, 1842 ))
5314  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.5790654937945514 , new=",new,")"
5315  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511320 "//trim(msg))
5316  insist(this%has_gamma( 1843 ).eqv..true. ," 511321 has_gamma")
5317  ref= 1.5989080802043292
5318  new=sum(this%binned(:, 1843 ))
5319  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.5989080802043292 , new=",new,")"
5320  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511321 "//trim(msg))
5321  insist(this%has_gamma( 1844 ).eqv..true. ," 521320 has_gamma")
5322  ref= 4.2364425689839891e-002
5323  new=sum(this%binned(:, 1844 ))
5324  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.2364425689839891E-002 , new=",new,")"
5325  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521320 "//trim(msg))
5326  insist(this%has_gamma( 1845 ).eqv..true. ," 531320 has_gamma")
5327  ref= 0.53271029128831782
5328  new=sum(this%binned(:, 1845 ))
5329  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.53271029128831782 , new=",new,")"
5330  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531320 "//trim(msg))
5331  insist(this%has_gamma( 1846 ).eqv..false.," 531321 has_gamma")
5332  insist(sum(this%binned(:, 1846 ))== 0.0000000000000000 ," 531321 has zero counts if not has_gamma")
5333  insist(this%has_gamma( 1847 ).eqv..false.," 541320 has_gamma")
5334  insist(sum(this%binned(:, 1847 ))== 0.0000000000000000 ," 541320 has zero counts if not has_gamma")
5335  insist(this%has_gamma( 1848 ).eqv..true. ," 551320 has_gamma")
5336  ref= 2.1000282732913530e-003
5337  new=sum(this%binned(:, 1848 ))
5338  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.1000282732913530E-003 , new=",new,")"
5339  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 551320 "//trim(msg))
5340  insist(this%has_gamma( 1849 ).eqv..false.," 561320 has_gamma")
5341  insist(sum(this%binned(:, 1849 ))== 0.0000000000000000 ," 561320 has zero counts if not has_gamma")
5342  insist(this%has_gamma( 1850 ).eqv..false.," 491330 has_gamma")
5343  insist(sum(this%binned(:, 1850 ))== 0.0000000000000000 ," 491330 has zero counts if not has_gamma")
5344  insist(this%has_gamma( 1851 ).eqv..false.," 501330 has_gamma")
5345  insist(sum(this%binned(:, 1851 ))== 0.0000000000000000 ," 501330 has zero counts if not has_gamma")
5346  insist(this%has_gamma( 1852 ).eqv..false.," 511330 has_gamma")
5347  insist(sum(this%binned(:, 1852 ))== 0.0000000000000000 ," 511330 has zero counts if not has_gamma")
5348  insist(this%has_gamma( 1853 ).eqv..true. ," 521330 has_gamma")
5349  ref= 0.94294755443960732
5350  new=sum(this%binned(:, 1853 ))
5351  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.94294755443960732 , new=",new,")"
5352  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521330 "//trim(msg))
5353  insist(this%has_gamma( 1854 ).eqv..true. ," 521331 has_gamma")
5354  ref= 0.64882945766150601
5355  new=sum(this%binned(:, 1854 ))
5356  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.64882945766150601 , new=",new,")"
5357  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521331 "//trim(msg))
5358  insist(this%has_gamma( 1855 ).eqv..true. ," 531330 has_gamma")
5359  ref= 0.43136643703652339
5360  new=sum(this%binned(:, 1855 ))
5361  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.43136643703652339 , new=",new,")"
5362  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531330 "//trim(msg))
5363  insist(this%has_gamma( 1856 ).eqv..false.," 531331 has_gamma")
5364  insist(sum(this%binned(:, 1856 ))== 0.0000000000000000 ," 531331 has zero counts if not has_gamma")
5365  insist(this%has_gamma( 1857 ).eqv..true. ," 541330 has_gamma")
5366  ref= 8.2721398470994259e-002
5367  new=sum(this%binned(:, 1857 ))
5368  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.2721398470994259E-002 , new=",new,")"
5369  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 541330 "//trim(msg))
5370  insist(this%has_gamma( 1858 ).eqv..false.," 541331 has_gamma")
5371  insist(sum(this%binned(:, 1858 ))== 0.0000000000000000 ," 541331 has zero counts if not has_gamma")
5372  insist(this%has_gamma( 1859 ).eqv..false.," 551330 has_gamma")
5373  insist(sum(this%binned(:, 1859 ))== 0.0000000000000000 ," 551330 has zero counts if not has_gamma")
5374  insist(this%has_gamma( 1860 ).eqv..false.," 561330 has_gamma")
5375  insist(sum(this%binned(:, 1860 ))== 0.0000000000000000 ," 561330 has zero counts if not has_gamma")
5376  insist(this%has_gamma( 1861 ).eqv..false.," 571330 has_gamma")
5377  insist(sum(this%binned(:, 1861 ))== 0.0000000000000000 ," 571330 has zero counts if not has_gamma")
5378  insist(this%has_gamma( 1862 ).eqv..false.," 491340 has_gamma")
5379  insist(sum(this%binned(:, 1862 ))== 0.0000000000000000 ," 491340 has zero counts if not has_gamma")
5380  insist(this%has_gamma( 1863 ).eqv..false.," 501340 has_gamma")
5381  insist(sum(this%binned(:, 1863 ))== 0.0000000000000000 ," 501340 has zero counts if not has_gamma")
5382  insist(this%has_gamma( 1864 ).eqv..true. ," 511340 has_gamma")
5383  ref= 3.7776612858479939
5384  new=sum(this%binned(:, 1864 ))
5385  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.7776612858479939 , new=",new,")"
5386  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 511340 "//trim(msg))
5387  insist(this%has_gamma( 1865 ).eqv..false.," 511341 has_gamma")
5388  insist(sum(this%binned(:, 1865 ))== 0.0000000000000000 ," 511341 has zero counts if not has_gamma")
5389  insist(this%has_gamma( 1866 ).eqv..true. ," 521340 has_gamma")
5390  ref= 0.25847059190726424
5391  new=sum(this%binned(:, 1866 ))
5392  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.25847059190726424 , new=",new,")"
5393  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521340 "//trim(msg))
5394  insist(this%has_gamma( 1867 ).eqv..true. ," 531340 has_gamma")
5395  ref= 0.69768931544394530
5396  new=sum(this%binned(:, 1867 ))
5397  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.69768931544394530 , new=",new,")"
5398  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531340 "//trim(msg))
5399  insist(this%has_gamma( 1868 ).eqv..true. ," 531341 has_gamma")
5400  ref= 4.7926361991801342e-004
5401  new=sum(this%binned(:, 1868 ))
5402  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.7926361991801342E-004 , new=",new,")"
5403  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531341 "//trim(msg))
5404  insist(this%has_gamma( 1869 ).eqv..false.," 541340 has_gamma")
5405  insist(sum(this%binned(:, 1869 ))== 0.0000000000000000 ," 541340 has zero counts if not has_gamma")
5406  insist(this%has_gamma( 1870 ).eqv..false.," 541341 has_gamma")
5407  insist(sum(this%binned(:, 1870 ))== 0.0000000000000000 ," 541341 has zero counts if not has_gamma")
5408  insist(this%has_gamma( 1871 ).eqv..true. ," 551340 has_gamma")
5409  ref= 0.14673576315679460
5410  new=sum(this%binned(:, 1871 ))
5411  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.14673576315679460 , new=",new,")"
5412  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 551340 "//trim(msg))
5413  insist(this%has_gamma( 1872 ).eqv..false.," 551341 has_gamma")
5414  insist(sum(this%binned(:, 1872 ))== 0.0000000000000000 ," 551341 has zero counts if not has_gamma")
5415  insist(this%has_gamma( 1873 ).eqv..false.," 561340 has_gamma")
5416  insist(sum(this%binned(:, 1873 ))== 0.0000000000000000 ," 561340 has zero counts if not has_gamma")
5417  insist(this%has_gamma( 1874 ).eqv..false.," 491350 has_gamma")
5418  insist(sum(this%binned(:, 1874 ))== 0.0000000000000000 ," 491350 has zero counts if not has_gamma")
5419  insist(this%has_gamma( 1875 ).eqv..false.," 501350 has_gamma")
5420  insist(sum(this%binned(:, 1875 ))== 0.0000000000000000 ," 501350 has zero counts if not has_gamma")
5421  insist(this%has_gamma( 1876 ).eqv..false.," 511350 has_gamma")
5422  insist(sum(this%binned(:, 1876 ))== 0.0000000000000000 ," 511350 has zero counts if not has_gamma")
5423  insist(this%has_gamma( 1877 ).eqv..true. ," 521350 has_gamma")
5424  ref= 3.1726813098261828
5425  new=sum(this%binned(:, 1877 ))
5426  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.1726813098261828 , new=",new,")"
5427  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 521350 "//trim(msg))
5428  insist(this%has_gamma( 1878 ).eqv..true. ," 531350 has_gamma")
5429  ref= 0.37838574961282295
5430  new=sum(this%binned(:, 1878 ))
5431  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.37838574961282295 , new=",new,")"
5432  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531350 "//trim(msg))
5433  insist(this%has_gamma( 1879 ).eqv..true. ," 541350 has_gamma")
5434  ref= 0.30621217934464795
5435  new=sum(this%binned(:, 1879 ))
5436  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.30621217934464795 , new=",new,")"
5437  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 541350 "//trim(msg))
5438  insist(this%has_gamma( 1880 ).eqv..true. ," 541351 has_gamma")
5439  ref= 1.2799521752700906e-005
5440  new=sum(this%binned(:, 1880 ))
5441  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2799521752700906E-005 , new=",new,")"
5442  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 541351 "//trim(msg))
5443  insist(this%has_gamma( 1881 ).eqv..true. ," 551350 has_gamma")
5444  ref= 3.9443880041662993e-002
5445  new=sum(this%binned(:, 1881 ))
5446  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.9443880041662993E-002 , new=",new,")"
5447  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 551350 "//trim(msg))
5448  insist(this%has_gamma( 1882 ).eqv..false.," 551351 has_gamma")
5449  insist(sum(this%binned(:, 1882 ))== 0.0000000000000000 ," 551351 has zero counts if not has_gamma")
5450  insist(this%has_gamma( 1883 ).eqv..false.," 561350 has_gamma")
5451  insist(sum(this%binned(:, 1883 ))== 0.0000000000000000 ," 561350 has zero counts if not has_gamma")
5452  insist(this%has_gamma( 1884 ).eqv..false.," 561351 has_gamma")
5453  insist(sum(this%binned(:, 1884 ))== 0.0000000000000000 ," 561351 has zero counts if not has_gamma")
5454  insist(this%has_gamma( 1885 ).eqv..false.," 571350 has_gamma")
5455  insist(sum(this%binned(:, 1885 ))== 0.0000000000000000 ," 571350 has zero counts if not has_gamma")
5456  insist(this%has_gamma( 1886 ).eqv..false.," 581350 has_gamma")
5457  insist(sum(this%binned(:, 1886 ))== 0.0000000000000000 ," 581350 has zero counts if not has_gamma")
5458  insist(this%has_gamma( 1887 ).eqv..false.," 501360 has_gamma")
5459  insist(sum(this%binned(:, 1887 ))== 0.0000000000000000 ," 501360 has zero counts if not has_gamma")
5460  insist(this%has_gamma( 1888 ).eqv..false.," 511360 has_gamma")
5461  insist(sum(this%binned(:, 1888 ))== 0.0000000000000000 ," 511360 has zero counts if not has_gamma")
5462  insist(this%has_gamma( 1889 ).eqv..false.," 521360 has_gamma")
5463  insist(sum(this%binned(:, 1889 ))== 0.0000000000000000 ," 521360 has zero counts if not has_gamma")
5464  insist(this%has_gamma( 1890 ).eqv..true. ," 531360 has_gamma")
5465  ref= 2.6961411580376153
5466  new=sum(this%binned(:, 1890 ))
5467  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.6961411580376153 , new=",new,")"
5468  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531360 "//trim(msg))
5469  insist(this%has_gamma( 1891 ).eqv..true. ," 531361 has_gamma")
5470  ref= 2.8656738982672318
5471  new=sum(this%binned(:, 1891 ))
5472  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.8656738982672318 , new=",new,")"
5473  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531361 "//trim(msg))
5474  insist(this%has_gamma( 1892 ).eqv..false.," 541360 has_gamma")
5475  insist(sum(this%binned(:, 1892 ))== 0.0000000000000000 ," 541360 has zero counts if not has_gamma")
5476  insist(this%has_gamma( 1893 ).eqv..true. ," 551360 has_gamma")
5477  ref= 8.5233914775956710e-002
5478  new=sum(this%binned(:, 1893 ))
5479  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.5233914775956710E-002 , new=",new,")"
5480  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 551360 "//trim(msg))
5481  insist(this%has_gamma( 1894 ).eqv..false.," 551361 has_gamma")
5482  insist(sum(this%binned(:, 1894 ))== 0.0000000000000000 ," 551361 has zero counts if not has_gamma")
5483  insist(this%has_gamma( 1895 ).eqv..false.," 561360 has_gamma")
5484  insist(sum(this%binned(:, 1895 ))== 0.0000000000000000 ," 561360 has zero counts if not has_gamma")
5485  insist(this%has_gamma( 1896 ).eqv..false.," 561361 has_gamma")
5486  insist(sum(this%binned(:, 1896 ))== 0.0000000000000000 ," 561361 has zero counts if not has_gamma")
5487  insist(this%has_gamma( 1897 ).eqv..false.," 501370 has_gamma")
5488  insist(sum(this%binned(:, 1897 ))== 0.0000000000000000 ," 501370 has zero counts if not has_gamma")
5489  insist(this%has_gamma( 1898 ).eqv..false.," 511370 has_gamma")
5490  insist(sum(this%binned(:, 1898 ))== 0.0000000000000000 ," 511370 has zero counts if not has_gamma")
5491  insist(this%has_gamma( 1899 ).eqv..false.," 521370 has_gamma")
5492  insist(sum(this%binned(:, 1899 ))== 0.0000000000000000 ," 521370 has zero counts if not has_gamma")
5493  insist(this%has_gamma( 1900 ).eqv..false.," 531370 has_gamma")
5494  insist(sum(this%binned(:, 1900 ))== 0.0000000000000000 ," 531370 has zero counts if not has_gamma")
5495  insist(this%has_gamma( 1901 ).eqv..true. ," 541370 has_gamma")
5496  ref= 2.2649732556560593
5497  new=sum(this%binned(:, 1901 ))
5498  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.2649732556560593 , new=",new,")"
5499  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 541370 "//trim(msg))
5500  insist(this%has_gamma( 1902 ).eqv..true. ," 551370 has_gamma")
5501  ref= 0.15841674472337336
5502  new=sum(this%binned(:, 1902 ))
5503  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.15841674472337336 , new=",new,")"
5504  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 551370 "//trim(msg))
5505  insist(this%has_gamma( 1903 ).eqv..false.," 561370 has_gamma")
5506  insist(sum(this%binned(:, 1903 ))== 0.0000000000000000 ," 561370 has zero counts if not has_gamma")
5507  insist(this%has_gamma( 1904 ).eqv..false.," 561371 has_gamma")
5508  insist(sum(this%binned(:, 1904 ))== 0.0000000000000000 ," 561371 has zero counts if not has_gamma")
5509  insist(this%has_gamma( 1905 ).eqv..false.," 571370 has_gamma")
5510  insist(sum(this%binned(:, 1905 ))== 0.0000000000000000 ," 571370 has zero counts if not has_gamma")
5511  insist(this%has_gamma( 1906 ).eqv..false.," 581370 has_gamma")
5512  insist(sum(this%binned(:, 1906 ))== 0.0000000000000000 ," 581370 has zero counts if not has_gamma")
5513  insist(this%has_gamma( 1907 ).eqv..false.," 511380 has_gamma")
5514  insist(sum(this%binned(:, 1907 ))== 0.0000000000000000 ," 511380 has zero counts if not has_gamma")
5515  insist(this%has_gamma( 1908 ).eqv..false.," 521380 has_gamma")
5516  insist(sum(this%binned(:, 1908 ))== 0.0000000000000000 ," 521380 has zero counts if not has_gamma")
5517  insist(this%has_gamma( 1909 ).eqv..true. ," 531380 has_gamma")
5518  ref= 4.3032422814208067
5519  new=sum(this%binned(:, 1909 ))
5520  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.3032422814208067 , new=",new,")"
5521  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 531380 "//trim(msg))
5522  insist(this%has_gamma( 1910 ).eqv..true. ," 541380 has_gamma")
5523  ref= 0.75874852860065167
5524  new=sum(this%binned(:, 1910 ))
5525  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.75874852860065167 , new=",new,")"
5526  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 541380 "//trim(msg))
5527  insist(this%has_gamma( 1911 ).eqv..true. ," 551380 has_gamma")
5528  ref= 1.4612133820677384
5529  new=sum(this%binned(:, 1911 ))
5530  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4612133820677384 , new=",new,")"
5531  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 551380 "//trim(msg))
5532  insist(this%has_gamma( 1912 ).eqv..true. ," 551381 has_gamma")
5533  ref= 0.10407849520040637
5534  new=sum(this%binned(:, 1912 ))
5535  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.10407849520040637 , new=",new,")"
5536  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 551381 "//trim(msg))
5537  insist(this%has_gamma( 1913 ).eqv..false.," 561380 has_gamma")
5538  insist(sum(this%binned(:, 1913 ))== 0.0000000000000000 ," 561380 has zero counts if not has_gamma")
5539  insist(this%has_gamma( 1914 ).eqv..true. ," 571380 has_gamma")
5540  ref= 8.0724458313241581e-003
5541  new=sum(this%binned(:, 1914 ))
5542  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.0724458313241581E-003 , new=",new,")"
5543  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 571380 "//trim(msg))
5544  insist(this%has_gamma( 1915 ).eqv..false.," 581380 has_gamma")
5545  insist(sum(this%binned(:, 1915 ))== 0.0000000000000000 ," 581380 has zero counts if not has_gamma")
5546  insist(this%has_gamma( 1916 ).eqv..false.," 511390 has_gamma")
5547  insist(sum(this%binned(:, 1916 ))== 0.0000000000000000 ," 511390 has zero counts if not has_gamma")
5548  insist(this%has_gamma( 1917 ).eqv..false.," 521390 has_gamma")
5549  insist(sum(this%binned(:, 1917 ))== 0.0000000000000000 ," 521390 has zero counts if not has_gamma")
5550  insist(this%has_gamma( 1918 ).eqv..false.," 531390 has_gamma")
5551  insist(sum(this%binned(:, 1918 ))== 0.0000000000000000 ," 531390 has zero counts if not has_gamma")
5552  insist(this%has_gamma( 1919 ).eqv..true. ," 541390 has_gamma")
5553  ref= 2.2300898783649075
5554  new=sum(this%binned(:, 1919 ))
5555  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.2300898783649075 , new=",new,")"
5556  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 541390 "//trim(msg))
5557  insist(this%has_gamma( 1920 ).eqv..true. ," 551390 has_gamma")
5558  ref= 2.1495362087441663
5559  new=sum(this%binned(:, 1920 ))
5560  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.1495362087441663 , new=",new,")"
5561  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 551390 "//trim(msg))
5562  insist(this%has_gamma( 1921 ).eqv..true. ," 561390 has_gamma")
5563  ref= 1.0437788856665779
5564  new=sum(this%binned(:, 1921 ))
5565  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.0437788856665779 , new=",new,")"
5566  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 561390 "//trim(msg))
5567  insist(this%has_gamma( 1922 ).eqv..false.," 571390 has_gamma")
5568  insist(sum(this%binned(:, 1922 ))== 0.0000000000000000 ," 571390 has zero counts if not has_gamma")
5569  insist(this%has_gamma( 1923 ).eqv..false.," 581390 has_gamma")
5570  insist(sum(this%binned(:, 1923 ))== 0.0000000000000000 ," 581390 has zero counts if not has_gamma")
5571  insist(this%has_gamma( 1924 ).eqv..false.," 581391 has_gamma")
5572  insist(sum(this%binned(:, 1924 ))== 0.0000000000000000 ," 581391 has zero counts if not has_gamma")
5573  insist(this%has_gamma( 1925 ).eqv..false.," 591390 has_gamma")
5574  insist(sum(this%binned(:, 1925 ))== 0.0000000000000000 ," 591390 has zero counts if not has_gamma")
5575  insist(this%has_gamma( 1926 ).eqv..false.," 521400 has_gamma")
5576  insist(sum(this%binned(:, 1926 ))== 0.0000000000000000 ," 521400 has zero counts if not has_gamma")
5577  insist(this%has_gamma( 1927 ).eqv..false.," 531400 has_gamma")
5578  insist(sum(this%binned(:, 1927 ))== 0.0000000000000000 ," 531400 has zero counts if not has_gamma")
5579  insist(this%has_gamma( 1928 ).eqv..false.," 541400 has_gamma")
5580  insist(sum(this%binned(:, 1928 ))== 0.0000000000000000 ," 541400 has zero counts if not has_gamma")
5581  insist(this%has_gamma( 1929 ).eqv..false.," 551400 has_gamma")
5582  insist(sum(this%binned(:, 1929 ))== 0.0000000000000000 ," 551400 has zero counts if not has_gamma")
5583  insist(this%has_gamma( 1930 ).eqv..true. ," 561400 has_gamma")
5584  ref= 0.29417625363541500
5585  new=sum(this%binned(:, 1930 ))
5586  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.29417625363541500 , new=",new,")"
5587  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 561400 "//trim(msg))
5588  insist(this%has_gamma( 1931 ).eqv..true. ," 571400 has_gamma")
5589  ref= 0.60218382412752902
5590  new=sum(this%binned(:, 1931 ))
5591  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.60218382412752902 , new=",new,")"
5592  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 571400 "//trim(msg))
5593  insist(this%has_gamma( 1932 ).eqv..false.," 581400 has_gamma")
5594  insist(sum(this%binned(:, 1932 ))== 0.0000000000000000 ," 581400 has zero counts if not has_gamma")
5595  insist(this%has_gamma( 1933 ).eqv..false.," 591400 has_gamma")
5596  insist(sum(this%binned(:, 1933 ))== 0.0000000000000000 ," 591400 has zero counts if not has_gamma")
5597  insist(this%has_gamma( 1934 ).eqv..false.," 601400 has_gamma")
5598  insist(sum(this%binned(:, 1934 ))== 0.0000000000000000 ," 601400 has zero counts if not has_gamma")
5599  insist(this%has_gamma( 1935 ).eqv..false.," 521410 has_gamma")
5600  insist(sum(this%binned(:, 1935 ))== 0.0000000000000000 ," 521410 has zero counts if not has_gamma")
5601  insist(this%has_gamma( 1936 ).eqv..false.," 531410 has_gamma")
5602  insist(sum(this%binned(:, 1936 ))== 0.0000000000000000 ," 531410 has zero counts if not has_gamma")
5603  insist(this%has_gamma( 1937 ).eqv..false.," 541410 has_gamma")
5604  insist(sum(this%binned(:, 1937 ))== 0.0000000000000000 ," 541410 has zero counts if not has_gamma")
5605  insist(this%has_gamma( 1938 ).eqv..false.," 551410 has_gamma")
5606  insist(sum(this%binned(:, 1938 ))== 0.0000000000000000 ," 551410 has zero counts if not has_gamma")
5607  insist(this%has_gamma( 1939 ).eqv..true. ," 561410 has_gamma")
5608  ref= 1.0303107587092697
5609  new=sum(this%binned(:, 1939 ))
5610  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.0303107587092697 , new=",new,")"
5611  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 561410 "//trim(msg))
5612  insist(this%has_gamma( 1940 ).eqv..true. ," 571410 has_gamma")
5613  ref= 1.1226592142810996
5614  new=sum(this%binned(:, 1940 ))
5615  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.1226592142810996 , new=",new,")"
5616  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 571410 "//trim(msg))
5617  insist(this%has_gamma( 1941 ).eqv..true. ," 581410 has_gamma")
5618  ref= 0.13008160678741820
5619  new=sum(this%binned(:, 1941 ))
5620  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.13008160678741820 , new=",new,")"
5621  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 581410 "//trim(msg))
5622  insist(this%has_gamma( 1942 ).eqv..false.," 591410 has_gamma")
5623  insist(sum(this%binned(:, 1942 ))== 0.0000000000000000 ," 591410 has zero counts if not has_gamma")
5624  insist(this%has_gamma( 1943 ).eqv..false.," 601410 has_gamma")
5625  insist(sum(this%binned(:, 1943 ))== 0.0000000000000000 ," 601410 has zero counts if not has_gamma")
5626  insist(this%has_gamma( 1944 ).eqv..false.," 601411 has_gamma")
5627  insist(sum(this%binned(:, 1944 ))== 0.0000000000000000 ," 601411 has zero counts if not has_gamma")
5628  insist(this%has_gamma( 1945 ).eqv..false.," 611410 has_gamma")
5629  insist(sum(this%binned(:, 1945 ))== 0.0000000000000000 ," 611410 has zero counts if not has_gamma")
5630  insist(this%has_gamma( 1946 ).eqv..false.," 521420 has_gamma")
5631  insist(sum(this%binned(:, 1946 ))== 0.0000000000000000 ," 521420 has zero counts if not has_gamma")
5632  insist(this%has_gamma( 1947 ).eqv..false.," 531420 has_gamma")
5633  insist(sum(this%binned(:, 1947 ))== 0.0000000000000000 ," 531420 has zero counts if not has_gamma")
5634  insist(this%has_gamma( 1948 ).eqv..false.," 541420 has_gamma")
5635  insist(sum(this%binned(:, 1948 ))== 0.0000000000000000 ," 541420 has zero counts if not has_gamma")
5636  insist(this%has_gamma( 1949 ).eqv..false.," 551420 has_gamma")
5637  insist(sum(this%binned(:, 1949 ))== 0.0000000000000000 ," 551420 has zero counts if not has_gamma")
5638  insist(this%has_gamma( 1950 ).eqv..true. ," 561420 has_gamma")
5639  ref= 0.44279565642674240
5640  new=sum(this%binned(:, 1950 ))
5641  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.44279565642674240 , new=",new,")"
5642  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 561420 "//trim(msg))
5643  insist(this%has_gamma( 1951 ).eqv..true. ," 571420 has_gamma")
5644  ref= 1.0032538210637514
5645  new=sum(this%binned(:, 1951 ))
5646  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.0032538210637514 , new=",new,")"
5647  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 571420 "//trim(msg))
5648  insist(this%has_gamma( 1952 ).eqv..false.," 581420 has_gamma")
5649  insist(sum(this%binned(:, 1952 ))== 0.0000000000000000 ," 581420 has zero counts if not has_gamma")
5650  insist(this%has_gamma( 1953 ).eqv..true. ," 591420 has_gamma")
5651  ref= 0.95774008341515993
5652  new=sum(this%binned(:, 1953 ))
5653  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.95774008341515993 , new=",new,")"
5654  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 591420 "//trim(msg))
5655  insist(this%has_gamma( 1954 ).eqv..false.," 591421 has_gamma")
5656  insist(sum(this%binned(:, 1954 ))== 0.0000000000000000 ," 591421 has zero counts if not has_gamma")
5657  insist(this%has_gamma( 1955 ).eqv..false.," 601420 has_gamma")
5658  insist(sum(this%binned(:, 1955 ))== 0.0000000000000000 ," 601420 has zero counts if not has_gamma")
5659  insist(this%has_gamma( 1956 ).eqv..false.," 531430 has_gamma")
5660  insist(sum(this%binned(:, 1956 ))== 0.0000000000000000 ," 531430 has zero counts if not has_gamma")
5661  insist(this%has_gamma( 1957 ).eqv..false.," 541430 has_gamma")
5662  insist(sum(this%binned(:, 1957 ))== 0.0000000000000000 ," 541430 has zero counts if not has_gamma")
5663  insist(this%has_gamma( 1958 ).eqv..false.," 551430 has_gamma")
5664  insist(sum(this%binned(:, 1958 ))== 0.0000000000000000 ," 551430 has zero counts if not has_gamma")
5665  insist(this%has_gamma( 1959 ).eqv..false.," 561430 has_gamma")
5666  insist(sum(this%binned(:, 1959 ))== 0.0000000000000000 ," 561430 has zero counts if not has_gamma")
5667  insist(this%has_gamma( 1960 ).eqv..false.," 571430 has_gamma")
5668  insist(sum(this%binned(:, 1960 ))== 0.0000000000000000 ," 571430 has zero counts if not has_gamma")
5669  insist(this%has_gamma( 1961 ).eqv..true. ," 581430 has_gamma")
5670  ref= 0.42580739165593329
5671  new=sum(this%binned(:, 1961 ))
5672  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.42580739165593329 , new=",new,")"
5673  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 581430 "//trim(msg))
5674  insist(this%has_gamma( 1962 ).eqv..true. ," 591430 has_gamma")
5675  ref= 0.32059556534630923
5676  new=sum(this%binned(:, 1962 ))
5677  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.32059556534630923 , new=",new,")"
5678  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 591430 "//trim(msg))
5679  insist(this%has_gamma( 1963 ).eqv..false.," 601430 has_gamma")
5680  insist(sum(this%binned(:, 1963 ))== 0.0000000000000000 ," 601430 has zero counts if not has_gamma")
5681  insist(this%has_gamma( 1964 ).eqv..false.," 611430 has_gamma")
5682  insist(sum(this%binned(:, 1964 ))== 0.0000000000000000 ," 611430 has zero counts if not has_gamma")
5683  insist(this%has_gamma( 1965 ).eqv..false.," 621430 has_gamma")
5684  insist(sum(this%binned(:, 1965 ))== 0.0000000000000000 ," 621430 has zero counts if not has_gamma")
5685  insist(this%has_gamma( 1966 ).eqv..false.," 621431 has_gamma")
5686  insist(sum(this%binned(:, 1966 ))== 0.0000000000000000 ," 621431 has zero counts if not has_gamma")
5687  insist(this%has_gamma( 1967 ).eqv..false.," 531440 has_gamma")
5688  insist(sum(this%binned(:, 1967 ))== 0.0000000000000000 ," 531440 has zero counts if not has_gamma")
5689  insist(this%has_gamma( 1968 ).eqv..false.," 541440 has_gamma")
5690  insist(sum(this%binned(:, 1968 ))== 0.0000000000000000 ," 541440 has zero counts if not has_gamma")
5691  insist(this%has_gamma( 1969 ).eqv..false.," 551440 has_gamma")
5692  insist(sum(this%binned(:, 1969 ))== 0.0000000000000000 ," 551440 has zero counts if not has_gamma")
5693  insist(this%has_gamma( 1970 ).eqv..false.," 561440 has_gamma")
5694  insist(sum(this%binned(:, 1970 ))== 0.0000000000000000 ," 561440 has zero counts if not has_gamma")
5695  insist(this%has_gamma( 1971 ).eqv..false.," 571440 has_gamma")
5696  insist(sum(this%binned(:, 1971 ))== 0.0000000000000000 ," 571440 has zero counts if not has_gamma")
5697  insist(this%has_gamma( 1972 ).eqv..true. ," 581440 has_gamma")
5698  ref= 6.3751021087238499e-002
5699  new=sum(this%binned(:, 1972 ))
5700  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.3751021087238499E-002 , new=",new,")"
5701  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 581440 "//trim(msg))
5702  insist(this%has_gamma( 1973 ).eqv..true. ," 591440 has_gamma")
5703  ref= 1.4731444439248664
5704  new=sum(this%binned(:, 1973 ))
5705  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4731444439248664 , new=",new,")"
5706  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 591440 "//trim(msg))
5707  insist(this%has_gamma( 1974 ).eqv..true. ," 591441 has_gamma")
5708  ref= 2.2731732977862911e-007
5709  new=sum(this%binned(:, 1974 ))
5710  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.2731732977862911E-007 , new=",new,")"
5711  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 591441 "//trim(msg))
5712  insist(this%has_gamma( 1975 ).eqv..false.," 601440 has_gamma")
5713  insist(sum(this%binned(:, 1975 ))== 0.0000000000000000 ," 601440 has zero counts if not has_gamma")
5714  insist(this%has_gamma( 1976 ).eqv..false.," 611440 has_gamma")
5715  insist(sum(this%binned(:, 1976 ))== 0.0000000000000000 ," 611440 has zero counts if not has_gamma")
5716  insist(this%has_gamma( 1977 ).eqv..false.," 621440 has_gamma")
5717  insist(sum(this%binned(:, 1977 ))== 0.0000000000000000 ," 621440 has zero counts if not has_gamma")
5718  insist(this%has_gamma( 1978 ).eqv..false.," 541450 has_gamma")
5719  insist(sum(this%binned(:, 1978 ))== 0.0000000000000000 ," 541450 has zero counts if not has_gamma")
5720  insist(this%has_gamma( 1979 ).eqv..false.," 551450 has_gamma")
5721  insist(sum(this%binned(:, 1979 ))== 0.0000000000000000 ," 551450 has zero counts if not has_gamma")
5722  insist(this%has_gamma( 1980 ).eqv..false.," 561450 has_gamma")
5723  insist(sum(this%binned(:, 1980 ))== 0.0000000000000000 ," 561450 has zero counts if not has_gamma")
5724  insist(this%has_gamma( 1981 ).eqv..false.," 571450 has_gamma")
5725  insist(sum(this%binned(:, 1981 ))== 0.0000000000000000 ," 571450 has zero counts if not has_gamma")
5726  insist(this%has_gamma( 1982 ).eqv..true. ," 581450 has_gamma")
5727  ref= 0.68194909056210118
5728  new=sum(this%binned(:, 1982 ))
5729  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.68194909056210118 , new=",new,")"
5730  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 581450 "//trim(msg))
5731  insist(this%has_gamma( 1983 ).eqv..true. ," 591450 has_gamma")
5732  ref= 0.76913395252632344
5733  new=sum(this%binned(:, 1983 ))
5734  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.76913395252632344 , new=",new,")"
5735  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 591450 "//trim(msg))
5736  insist(this%has_gamma( 1984 ).eqv..false.," 601450 has_gamma")
5737  insist(sum(this%binned(:, 1984 ))== 0.0000000000000000 ," 601450 has zero counts if not has_gamma")
5738  insist(this%has_gamma( 1985 ).eqv..false.," 611450 has_gamma")
5739  insist(sum(this%binned(:, 1985 ))== 0.0000000000000000 ," 611450 has zero counts if not has_gamma")
5740  insist(this%has_gamma( 1986 ).eqv..false.," 621450 has_gamma")
5741  insist(sum(this%binned(:, 1986 ))== 0.0000000000000000 ," 621450 has zero counts if not has_gamma")
5742  insist(this%has_gamma( 1987 ).eqv..false.," 541460 has_gamma")
5743  insist(sum(this%binned(:, 1987 ))== 0.0000000000000000 ," 541460 has zero counts if not has_gamma")
5744  insist(this%has_gamma( 1988 ).eqv..false.," 551460 has_gamma")
5745  insist(sum(this%binned(:, 1988 ))== 0.0000000000000000 ," 551460 has zero counts if not has_gamma")
5746  insist(this%has_gamma( 1989 ).eqv..false.," 561460 has_gamma")
5747  insist(sum(this%binned(:, 1989 ))== 0.0000000000000000 ," 561460 has zero counts if not has_gamma")
5748  insist(this%has_gamma( 1990 ).eqv..false.," 571460 has_gamma")
5749  insist(sum(this%binned(:, 1990 ))== 0.0000000000000000 ," 571460 has zero counts if not has_gamma")
5750  insist(this%has_gamma( 1991 ).eqv..false.," 571461 has_gamma")
5751  insist(sum(this%binned(:, 1991 ))== 0.0000000000000000 ," 571461 has zero counts if not has_gamma")
5752  insist(this%has_gamma( 1992 ).eqv..true. ," 581460 has_gamma")
5753  ref= 0.23345326440065151
5754  new=sum(this%binned(:, 1992 ))
5755  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.23345326440065151 , new=",new,")"
5756  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 581460 "//trim(msg))
5757  insist(this%has_gamma( 1993 ).eqv..false.," 591460 has_gamma")
5758  insist(sum(this%binned(:, 1993 ))== 0.0000000000000000 ," 591460 has zero counts if not has_gamma")
5759  insist(this%has_gamma( 1994 ).eqv..false.," 601460 has_gamma")
5760  insist(sum(this%binned(:, 1994 ))== 0.0000000000000000 ," 601460 has zero counts if not has_gamma")
5761  insist(this%has_gamma( 1995 ).eqv..false.," 611460 has_gamma")
5762  insist(sum(this%binned(:, 1995 ))== 0.0000000000000000 ," 611460 has zero counts if not has_gamma")
5763  insist(this%has_gamma( 1996 ).eqv..false.," 621460 has_gamma")
5764  insist(sum(this%binned(:, 1996 ))== 0.0000000000000000 ," 621460 has zero counts if not has_gamma")
5765  insist(this%has_gamma( 1997 ).eqv..false.," 541470 has_gamma")
5766  insist(sum(this%binned(:, 1997 ))== 0.0000000000000000 ," 541470 has zero counts if not has_gamma")
5767  insist(this%has_gamma( 1998 ).eqv..false.," 551470 has_gamma")
5768  insist(sum(this%binned(:, 1998 ))== 0.0000000000000000 ," 551470 has zero counts if not has_gamma")
5769  insist(this%has_gamma( 1999 ).eqv..false.," 561470 has_gamma")
5770  insist(sum(this%binned(:, 1999 ))== 0.0000000000000000 ," 561470 has zero counts if not has_gamma")
5771  insist(this%has_gamma( 2000 ).eqv..false.," 571470 has_gamma")
5772  insist(sum(this%binned(:, 2000 ))== 0.0000000000000000 ," 571470 has zero counts if not has_gamma")
5773  insist(this%has_gamma( 2001 ).eqv..false.," 581470 has_gamma")
5774  insist(sum(this%binned(:, 2001 ))== 0.0000000000000000 ," 581470 has zero counts if not has_gamma")
5775  insist(this%has_gamma( 2002 ).eqv..false.," 591470 has_gamma")
5776  insist(sum(this%binned(:, 2002 ))== 0.0000000000000000 ," 591470 has zero counts if not has_gamma")
5777  insist(this%has_gamma( 2003 ).eqv..true. ," 601470 has_gamma")
5778  ref= 0.22875016324034583
5779  new=sum(this%binned(:, 2003 ))
5780  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.22875016324034583 , new=",new,")"
5781  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 601470 "//trim(msg))
5782  insist(this%has_gamma( 2004 ).eqv..true. ," 611470 has_gamma")
5783  ref= 4.4805144281838238e-002
5784  new=sum(this%binned(:, 2004 ))
5785  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 4.4805144281838238E-002 , new=",new,")"
5786  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 611470 "//trim(msg))
5787  insist(this%has_gamma( 2005 ).eqv..false.," 621470 has_gamma")
5788  insist(sum(this%binned(:, 2005 ))== 0.0000000000000000 ," 621470 has zero counts if not has_gamma")
5789  insist(this%has_gamma( 2006 ).eqv..false.," 631470 has_gamma")
5790  insist(sum(this%binned(:, 2006 ))== 0.0000000000000000 ," 631470 has zero counts if not has_gamma")
5791  insist(this%has_gamma( 2007 ).eqv..false.," 641470 has_gamma")
5792  insist(sum(this%binned(:, 2007 ))== 0.0000000000000000 ," 641470 has zero counts if not has_gamma")
5793  insist(this%has_gamma( 2008 ).eqv..false.," 551480 has_gamma")
5794  insist(sum(this%binned(:, 2008 ))== 0.0000000000000000 ," 551480 has zero counts if not has_gamma")
5795  insist(this%has_gamma( 2009 ).eqv..false.," 561480 has_gamma")
5796  insist(sum(this%binned(:, 2009 ))== 0.0000000000000000 ," 561480 has zero counts if not has_gamma")
5797  insist(this%has_gamma( 2010 ).eqv..false.," 571480 has_gamma")
5798  insist(sum(this%binned(:, 2010 ))== 0.0000000000000000 ," 571480 has zero counts if not has_gamma")
5799  insist(this%has_gamma( 2011 ).eqv..false.," 581480 has_gamma")
5800  insist(sum(this%binned(:, 2011 ))== 0.0000000000000000 ," 581480 has zero counts if not has_gamma")
5801  insist(this%has_gamma( 2012 ).eqv..true. ," 591480 has_gamma")
5802  ref= 2.0744825553629198
5803  new=sum(this%binned(:, 2012 ))
5804  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.0744825553629198 , new=",new,")"
5805  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 591480 "//trim(msg))
5806  insist(this%has_gamma( 2013 ).eqv..false.," 591481 has_gamma")
5807  insist(sum(this%binned(:, 2013 ))== 0.0000000000000000 ," 591481 has zero counts if not has_gamma")
5808  insist(this%has_gamma( 2014 ).eqv..false.," 601480 has_gamma")
5809  insist(sum(this%binned(:, 2014 ))== 0.0000000000000000 ," 601480 has zero counts if not has_gamma")
5810  insist(this%has_gamma( 2015 ).eqv..true. ," 611480 has_gamma")
5811  ref= 0.83675692258202616
5812  new=sum(this%binned(:, 2015 ))
5813  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.83675692258202616 , new=",new,")"
5814  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 611480 "//trim(msg))
5815  insist(this%has_gamma( 2016 ).eqv..true. ," 611481 has_gamma")
5816  ref= 0.12653649152724911
5817  new=sum(this%binned(:, 2016 ))
5818  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.12653649152724911 , new=",new,")"
5819  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 611481 "//trim(msg))
5820  insist(this%has_gamma( 2017 ).eqv..false.," 621480 has_gamma")
5821  insist(sum(this%binned(:, 2017 ))== 0.0000000000000000 ," 621480 has zero counts if not has_gamma")
5822  insist(this%has_gamma( 2018 ).eqv..false.," 551490 has_gamma")
5823  insist(sum(this%binned(:, 2018 ))== 0.0000000000000000 ," 551490 has zero counts if not has_gamma")
5824  insist(this%has_gamma( 2019 ).eqv..false.," 561490 has_gamma")
5825  insist(sum(this%binned(:, 2019 ))== 0.0000000000000000 ," 561490 has zero counts if not has_gamma")
5826  insist(this%has_gamma( 2020 ).eqv..false.," 571490 has_gamma")
5827  insist(sum(this%binned(:, 2020 ))== 0.0000000000000000 ," 571490 has zero counts if not has_gamma")
5828  insist(this%has_gamma( 2021 ).eqv..false.," 581490 has_gamma")
5829  insist(sum(this%binned(:, 2021 ))== 0.0000000000000000 ," 581490 has zero counts if not has_gamma")
5830  insist(this%has_gamma( 2022 ).eqv..true. ," 591490 has_gamma")
5831  ref= 1.4266041729688366
5832  new=sum(this%binned(:, 2022 ))
5833  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.4266041729688366 , new=",new,")"
5834  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 591490 "//trim(msg))
5835  insist(this%has_gamma( 2023 ).eqv..true. ," 601490 has_gamma")
5836  ref= 0.50091352746460194
5837  new=sum(this%binned(:, 2023 ))
5838  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.50091352746460194 , new=",new,")"
5839  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 601490 "//trim(msg))
5840  insist(this%has_gamma( 2024 ).eqv..true. ," 611490 has_gamma")
5841  ref= 0.38134159373967347
5842  new=sum(this%binned(:, 2024 ))
5843  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.38134159373967347 , new=",new,")"
5844  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 611490 "//trim(msg))
5845  insist(this%has_gamma( 2025 ).eqv..false.," 621490 has_gamma")
5846  insist(sum(this%binned(:, 2025 ))== 0.0000000000000000 ," 621490 has zero counts if not has_gamma")
5847  insist(this%has_gamma( 2026 ).eqv..false.," 631490 has_gamma")
5848  insist(sum(this%binned(:, 2026 ))== 0.0000000000000000 ," 631490 has zero counts if not has_gamma")
5849  insist(this%has_gamma( 2027 ).eqv..false.," 641490 has_gamma")
5850  insist(sum(this%binned(:, 2027 ))== 0.0000000000000000 ," 641490 has zero counts if not has_gamma")
5851  insist(this%has_gamma( 2028 ).eqv..false.," 551500 has_gamma")
5852  insist(sum(this%binned(:, 2028 ))== 0.0000000000000000 ," 551500 has zero counts if not has_gamma")
5853  insist(this%has_gamma( 2029 ).eqv..false.," 561500 has_gamma")
5854  insist(sum(this%binned(:, 2029 ))== 0.0000000000000000 ," 561500 has zero counts if not has_gamma")
5855  insist(this%has_gamma( 2030 ).eqv..false.," 571500 has_gamma")
5856  insist(sum(this%binned(:, 2030 ))== 0.0000000000000000 ," 571500 has zero counts if not has_gamma")
5857  insist(this%has_gamma( 2031 ).eqv..false.," 581500 has_gamma")
5858  insist(sum(this%binned(:, 2031 ))== 0.0000000000000000 ," 581500 has zero counts if not has_gamma")
5859  insist(this%has_gamma( 2032 ).eqv..false.," 591500 has_gamma")
5860  insist(sum(this%binned(:, 2032 ))== 0.0000000000000000 ," 591500 has zero counts if not has_gamma")
5861  insist(this%has_gamma( 2033 ).eqv..false.," 601500 has_gamma")
5862  insist(sum(this%binned(:, 2033 ))== 0.0000000000000000 ," 601500 has zero counts if not has_gamma")
5863  insist(this%has_gamma( 2034 ).eqv..true. ," 611500 has_gamma")
5864  ref= 0.90416439631137979
5865  new=sum(this%binned(:, 2034 ))
5866  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.90416439631137979 , new=",new,")"
5867  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 611500 "//trim(msg))
5868  insist(this%has_gamma( 2035 ).eqv..false.," 621500 has_gamma")
5869  insist(sum(this%binned(:, 2035 ))== 0.0000000000000000 ," 621500 has zero counts if not has_gamma")
5870  insist(this%has_gamma( 2036 ).eqv..false.," 551510 has_gamma")
5871  insist(sum(this%binned(:, 2036 ))== 0.0000000000000000 ," 551510 has zero counts if not has_gamma")
5872  insist(this%has_gamma( 2037 ).eqv..false.," 561510 has_gamma")
5873  insist(sum(this%binned(:, 2037 ))== 0.0000000000000000 ," 561510 has zero counts if not has_gamma")
5874  insist(this%has_gamma( 2038 ).eqv..false.," 571510 has_gamma")
5875  insist(sum(this%binned(:, 2038 ))== 0.0000000000000000 ," 571510 has zero counts if not has_gamma")
5876  insist(this%has_gamma( 2039 ).eqv..false.," 581510 has_gamma")
5877  insist(sum(this%binned(:, 2039 ))== 0.0000000000000000 ," 581510 has zero counts if not has_gamma")
5878  insist(this%has_gamma( 2040 ).eqv..false.," 591510 has_gamma")
5879  insist(sum(this%binned(:, 2040 ))== 0.0000000000000000 ," 591510 has zero counts if not has_gamma")
5880  insist(this%has_gamma( 2041 ).eqv..true. ," 601510 has_gamma")
5881  ref= 0.68210990210782507
5882  new=sum(this%binned(:, 2041 ))
5883  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.68210990210782507 , new=",new,")"
5884  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 601510 "//trim(msg))
5885  insist(this%has_gamma( 2042 ).eqv..true. ," 611510 has_gamma")
5886  ref= 0.28534802372394646
5887  new=sum(this%binned(:, 2042 ))
5888  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.28534802372394646 , new=",new,")"
5889  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 611510 "//trim(msg))
5890  insist(this%has_gamma( 2043 ).eqv..true. ," 621510 has_gamma")
5891  ref= 8.5480743712219379e-003
5892  new=sum(this%binned(:, 2043 ))
5893  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.5480743712219379E-003 , new=",new,")"
5894  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 621510 "//trim(msg))
5895  insist(this%has_gamma( 2044 ).eqv..false.," 631510 has_gamma")
5896  insist(sum(this%binned(:, 2044 ))== 0.0000000000000000 ," 631510 has zero counts if not has_gamma")
5897  insist(this%has_gamma( 2045 ).eqv..false.," 641510 has_gamma")
5898  insist(sum(this%binned(:, 2045 ))== 0.0000000000000000 ," 641510 has zero counts if not has_gamma")
5899  insist(this%has_gamma( 2046 ).eqv..false.," 651510 has_gamma")
5900  insist(sum(this%binned(:, 2046 ))== 0.0000000000000000 ," 651510 has zero counts if not has_gamma")
5901  insist(this%has_gamma( 2047 ).eqv..false.," 561520 has_gamma")
5902  insist(sum(this%binned(:, 2047 ))== 0.0000000000000000 ," 561520 has zero counts if not has_gamma")
5903  insist(this%has_gamma( 2048 ).eqv..false.," 571520 has_gamma")
5904  insist(sum(this%binned(:, 2048 ))== 0.0000000000000000 ," 571520 has zero counts if not has_gamma")
5905  insist(this%has_gamma( 2049 ).eqv..false.," 581520 has_gamma")
5906  insist(sum(this%binned(:, 2049 ))== 0.0000000000000000 ," 581520 has zero counts if not has_gamma")
5907  insist(this%has_gamma( 2050 ).eqv..false.," 591520 has_gamma")
5908  insist(sum(this%binned(:, 2050 ))== 0.0000000000000000 ," 591520 has zero counts if not has_gamma")
5909  insist(this%has_gamma( 2051 ).eqv..false.," 601520 has_gamma")
5910  insist(sum(this%binned(:, 2051 ))== 0.0000000000000000 ," 601520 has zero counts if not has_gamma")
5911  insist(this%has_gamma( 2052 ).eqv..false.," 611520 has_gamma")
5912  insist(sum(this%binned(:, 2052 ))== 0.0000000000000000 ," 611520 has zero counts if not has_gamma")
5913  insist(this%has_gamma( 2053 ).eqv..false.," 611521 has_gamma")
5914  insist(sum(this%binned(:, 2053 ))== 0.0000000000000000 ," 611521 has zero counts if not has_gamma")
5915  insist(this%has_gamma( 2054 ).eqv..false.," 621520 has_gamma")
5916  insist(sum(this%binned(:, 2054 ))== 0.0000000000000000 ," 621520 has zero counts if not has_gamma")
5917  insist(this%has_gamma( 2055 ).eqv..true. ," 631520 has_gamma")
5918  ref= 2.4607505074389455e-002
5919  new=sum(this%binned(:, 2055 ))
5920  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 2.4607505074389455E-002 , new=",new,")"
5921  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 631520 "//trim(msg))
5922  insist(this%has_gamma( 2056 ).eqv..true. ," 631521 has_gamma")
5923  ref= 0.40900613295608057
5924  new=sum(this%binned(:, 2056 ))
5925  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.40900613295608057 , new=",new,")"
5926  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 631521 "//trim(msg))
5927  insist(this%has_gamma( 2057 ).eqv..false.," 641520 has_gamma")
5928  insist(sum(this%binned(:, 2057 ))== 0.0000000000000000 ," 641520 has zero counts if not has_gamma")
5929  insist(this%has_gamma( 2058 ).eqv..false.," 561530 has_gamma")
5930  insist(sum(this%binned(:, 2058 ))== 0.0000000000000000 ," 561530 has zero counts if not has_gamma")
5931  insist(this%has_gamma( 2059 ).eqv..false.," 571530 has_gamma")
5932  insist(sum(this%binned(:, 2059 ))== 0.0000000000000000 ," 571530 has zero counts if not has_gamma")
5933  insist(this%has_gamma( 2060 ).eqv..false.," 581530 has_gamma")
5934  insist(sum(this%binned(:, 2060 ))== 0.0000000000000000 ," 581530 has zero counts if not has_gamma")
5935  insist(this%has_gamma( 2061 ).eqv..false.," 591530 has_gamma")
5936  insist(sum(this%binned(:, 2061 ))== 0.0000000000000000 ," 591530 has zero counts if not has_gamma")
5937  insist(this%has_gamma( 2062 ).eqv..false.," 601530 has_gamma")
5938  insist(sum(this%binned(:, 2062 ))== 0.0000000000000000 ," 601530 has zero counts if not has_gamma")
5939  insist(this%has_gamma( 2063 ).eqv..true. ," 611530 has_gamma")
5940  ref= 0.72474542147517440
5941  new=sum(this%binned(:, 2063 ))
5942  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.72474542147517440 , new=",new,")"
5943  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 611530 "//trim(msg))
5944  insist(this%has_gamma( 2064 ).eqv..true. ," 621530 has_gamma")
5945  ref= 0.21990841593176749
5946  new=sum(this%binned(:, 2064 ))
5947  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.21990841593176749 , new=",new,")"
5948  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 621530 "//trim(msg))
5949  insist(this%has_gamma( 2065 ).eqv..false.," 631530 has_gamma")
5950  insist(sum(this%binned(:, 2065 ))== 0.0000000000000000 ," 631530 has zero counts if not has_gamma")
5951  insist(this%has_gamma( 2066 ).eqv..false.," 641530 has_gamma")
5952  insist(sum(this%binned(:, 2066 ))== 0.0000000000000000 ," 641530 has zero counts if not has_gamma")
5953  insist(this%has_gamma( 2067 ).eqv..false.," 651530 has_gamma")
5954  insist(sum(this%binned(:, 2067 ))== 0.0000000000000000 ," 651530 has zero counts if not has_gamma")
5955  insist(this%has_gamma( 2068 ).eqv..false.," 571540 has_gamma")
5956  insist(sum(this%binned(:, 2068 ))== 0.0000000000000000 ," 571540 has zero counts if not has_gamma")
5957  insist(this%has_gamma( 2069 ).eqv..false.," 581540 has_gamma")
5958  insist(sum(this%binned(:, 2069 ))== 0.0000000000000000 ," 581540 has zero counts if not has_gamma")
5959  insist(this%has_gamma( 2070 ).eqv..false.," 591540 has_gamma")
5960  insist(sum(this%binned(:, 2070 ))== 0.0000000000000000 ," 591540 has zero counts if not has_gamma")
5961  insist(this%has_gamma( 2071 ).eqv..false.," 601540 has_gamma")
5962  insist(sum(this%binned(:, 2071 ))== 0.0000000000000000 ," 601540 has zero counts if not has_gamma")
5963  insist(this%has_gamma( 2072 ).eqv..false.," 611540 has_gamma")
5964  insist(sum(this%binned(:, 2072 ))== 0.0000000000000000 ," 611540 has zero counts if not has_gamma")
5965  insist(this%has_gamma( 2073 ).eqv..false.," 611541 has_gamma")
5966  insist(sum(this%binned(:, 2073 ))== 0.0000000000000000 ," 611541 has zero counts if not has_gamma")
5967  insist(this%has_gamma( 2074 ).eqv..false.," 621540 has_gamma")
5968  insist(sum(this%binned(:, 2074 ))== 0.0000000000000000 ," 621540 has zero counts if not has_gamma")
5969  insist(this%has_gamma( 2075 ).eqv..true. ," 631540 has_gamma")
5970  ref= 0.23601550649829009
5971  new=sum(this%binned(:, 2075 ))
5972  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.23601550649829009 , new=",new,")"
5973  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 631540 "//trim(msg))
5974  insist(this%has_gamma( 2076 ).eqv..false.," 631541 has_gamma")
5975  insist(sum(this%binned(:, 2076 ))== 0.0000000000000000 ," 631541 has zero counts if not has_gamma")
5976  insist(this%has_gamma( 2077 ).eqv..false.," 641540 has_gamma")
5977  insist(sum(this%binned(:, 2077 ))== 0.0000000000000000 ," 641540 has zero counts if not has_gamma")
5978  insist(this%has_gamma( 2078 ).eqv..false.," 571550 has_gamma")
5979  insist(sum(this%binned(:, 2078 ))== 0.0000000000000000 ," 571550 has zero counts if not has_gamma")
5980  insist(this%has_gamma( 2079 ).eqv..false.," 581550 has_gamma")
5981  insist(sum(this%binned(:, 2079 ))== 0.0000000000000000 ," 581550 has zero counts if not has_gamma")
5982  insist(this%has_gamma( 2080 ).eqv..false.," 591550 has_gamma")
5983  insist(sum(this%binned(:, 2080 ))== 0.0000000000000000 ," 591550 has zero counts if not has_gamma")
5984  insist(this%has_gamma( 2081 ).eqv..false.," 601550 has_gamma")
5985  insist(sum(this%binned(:, 2081 ))== 0.0000000000000000 ," 601550 has zero counts if not has_gamma")
5986  insist(this%has_gamma( 2082 ).eqv..false.," 611550 has_gamma")
5987  insist(sum(this%binned(:, 2082 ))== 0.0000000000000000 ," 611550 has zero counts if not has_gamma")
5988  insist(this%has_gamma( 2083 ).eqv..true. ," 621550 has_gamma")
5989  ref= 0.61408630543853560
5990  new=sum(this%binned(:, 2083 ))
5991  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.61408630543853560 , new=",new,")"
5992  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 621550 "//trim(msg))
5993  insist(this%has_gamma( 2084 ).eqv..true. ," 631550 has_gamma")
5994  ref= 3.0158225960669194e-002
5995  new=sum(this%binned(:, 2084 ))
5996  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 3.0158225960669194E-002 , new=",new,")"
5997  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 631550 "//trim(msg))
5998  insist(this%has_gamma( 2085 ).eqv..false.," 641550 has_gamma")
5999  insist(sum(this%binned(:, 2085 ))== 0.0000000000000000 ," 641550 has zero counts if not has_gamma")
6000  insist(this%has_gamma( 2086 ).eqv..false.," 641551 has_gamma")
6001  insist(sum(this%binned(:, 2086 ))== 0.0000000000000000 ," 641551 has zero counts if not has_gamma")
6002  insist(this%has_gamma( 2087 ).eqv..false.," 651550 has_gamma")
6003  insist(sum(this%binned(:, 2087 ))== 0.0000000000000000 ," 651550 has zero counts if not has_gamma")
6004  insist(this%has_gamma( 2088 ).eqv..false.," 661550 has_gamma")
6005  insist(sum(this%binned(:, 2088 ))== 0.0000000000000000 ," 661550 has zero counts if not has_gamma")
6006  insist(this%has_gamma( 2089 ).eqv..false.," 581560 has_gamma")
6007  insist(sum(this%binned(:, 2089 ))== 0.0000000000000000 ," 581560 has zero counts if not has_gamma")
6008  insist(this%has_gamma( 2090 ).eqv..false.," 591560 has_gamma")
6009  insist(sum(this%binned(:, 2090 ))== 0.0000000000000000 ," 591560 has zero counts if not has_gamma")
6010  insist(this%has_gamma( 2091 ).eqv..false.," 601560 has_gamma")
6011  insist(sum(this%binned(:, 2091 ))== 0.0000000000000000 ," 601560 has zero counts if not has_gamma")
6012  insist(this%has_gamma( 2092 ).eqv..false.," 611560 has_gamma")
6013  insist(sum(this%binned(:, 2092 ))== 0.0000000000000000 ," 611560 has zero counts if not has_gamma")
6014  insist(this%has_gamma( 2093 ).eqv..true. ," 621560 has_gamma")
6015  ref= 0.17136474786326161
6016  new=sum(this%binned(:, 2093 ))
6017  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.17136474786326161 , new=",new,")"
6018  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 621560 "//trim(msg))
6019  insist(this%has_gamma( 2094 ).eqv..true. ," 631560 has_gamma")
6020  ref= 0.43135526533026802
6021  new=sum(this%binned(:, 2094 ))
6022  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.43135526533026802 , new=",new,")"
6023  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 631560 "//trim(msg))
6024  insist(this%has_gamma( 2095 ).eqv..false.," 641560 has_gamma")
6025  insist(sum(this%binned(:, 2095 ))== 0.0000000000000000 ," 641560 has zero counts if not has_gamma")
6026  insist(this%has_gamma( 2096 ).eqv..false.," 651560 has_gamma")
6027  insist(sum(this%binned(:, 2096 ))== 0.0000000000000000 ," 651560 has zero counts if not has_gamma")
6028  insist(this%has_gamma( 2097 ).eqv..false.," 651561 has_gamma")
6029  insist(sum(this%binned(:, 2097 ))== 0.0000000000000000 ," 651561 has zero counts if not has_gamma")
6030  insist(this%has_gamma( 2098 ).eqv..false.," 661560 has_gamma")
6031  insist(sum(this%binned(:, 2098 ))== 0.0000000000000000 ," 661560 has zero counts if not has_gamma")
6032  insist(this%has_gamma( 2099 ).eqv..false.," 581570 has_gamma")
6033  insist(sum(this%binned(:, 2099 ))== 0.0000000000000000 ," 581570 has zero counts if not has_gamma")
6034  insist(this%has_gamma( 2100 ).eqv..false.," 591570 has_gamma")
6035  insist(sum(this%binned(:, 2100 ))== 0.0000000000000000 ," 591570 has zero counts if not has_gamma")
6036  insist(this%has_gamma( 2101 ).eqv..false.," 601570 has_gamma")
6037  insist(sum(this%binned(:, 2101 ))== 0.0000000000000000 ," 601570 has zero counts if not has_gamma")
6038  insist(this%has_gamma( 2102 ).eqv..false.," 611570 has_gamma")
6039  insist(sum(this%binned(:, 2102 ))== 0.0000000000000000 ," 611570 has zero counts if not has_gamma")
6040  insist(this%has_gamma( 2103 ).eqv..false.," 621570 has_gamma")
6041  insist(sum(this%binned(:, 2103 ))== 0.0000000000000000 ," 621570 has zero counts if not has_gamma")
6042  insist(this%has_gamma( 2104 ).eqv..true. ," 631570 has_gamma")
6043  ref= 0.38807598956565947
6044  new=sum(this%binned(:, 2104 ))
6045  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.38807598956565947 , new=",new,")"
6046  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 631570 "//trim(msg))
6047  insist(this%has_gamma( 2105 ).eqv..false.," 641570 has_gamma")
6048  insist(sum(this%binned(:, 2105 ))== 0.0000000000000000 ," 641570 has zero counts if not has_gamma")
6049  insist(this%has_gamma( 2106 ).eqv..false.," 651570 has_gamma")
6050  insist(sum(this%binned(:, 2106 ))== 0.0000000000000000 ," 651570 has zero counts if not has_gamma")
6051  insist(this%has_gamma( 2107 ).eqv..false.," 661570 has_gamma")
6052  insist(sum(this%binned(:, 2107 ))== 0.0000000000000000 ," 661570 has zero counts if not has_gamma")
6053  insist(this%has_gamma( 2108 ).eqv..false.," 591580 has_gamma")
6054  insist(sum(this%binned(:, 2108 ))== 0.0000000000000000 ," 591580 has zero counts if not has_gamma")
6055  insist(this%has_gamma( 2109 ).eqv..false.," 601580 has_gamma")
6056  insist(sum(this%binned(:, 2109 ))== 0.0000000000000000 ," 601580 has zero counts if not has_gamma")
6057  insist(this%has_gamma( 2110 ).eqv..false.," 611580 has_gamma")
6058  insist(sum(this%binned(:, 2110 ))== 0.0000000000000000 ," 611580 has zero counts if not has_gamma")
6059  insist(this%has_gamma( 2111 ).eqv..false.," 621580 has_gamma")
6060  insist(sum(this%binned(:, 2111 ))== 0.0000000000000000 ," 621580 has zero counts if not has_gamma")
6061  insist(this%has_gamma( 2112 ).eqv..false.," 631580 has_gamma")
6062  insist(sum(this%binned(:, 2112 ))== 0.0000000000000000 ," 631580 has zero counts if not has_gamma")
6063  insist(this%has_gamma( 2113 ).eqv..false.," 641580 has_gamma")
6064  insist(sum(this%binned(:, 2113 ))== 0.0000000000000000 ," 641580 has zero counts if not has_gamma")
6065  insist(this%has_gamma( 2114 ).eqv..false.," 651580 has_gamma")
6066  insist(sum(this%binned(:, 2114 ))== 0.0000000000000000 ," 651580 has zero counts if not has_gamma")
6067  insist(this%has_gamma( 2115 ).eqv..false.," 651581 has_gamma")
6068  insist(sum(this%binned(:, 2115 ))== 0.0000000000000000 ," 651581 has zero counts if not has_gamma")
6069  insist(this%has_gamma( 2116 ).eqv..false.," 661580 has_gamma")
6070  insist(sum(this%binned(:, 2116 ))== 0.0000000000000000 ," 661580 has zero counts if not has_gamma")
6071  insist(this%has_gamma( 2117 ).eqv..false.," 591590 has_gamma")
6072  insist(sum(this%binned(:, 2117 ))== 0.0000000000000000 ," 591590 has zero counts if not has_gamma")
6073  insist(this%has_gamma( 2118 ).eqv..false.," 601590 has_gamma")
6074  insist(sum(this%binned(:, 2118 ))== 0.0000000000000000 ," 601590 has zero counts if not has_gamma")
6075  insist(this%has_gamma( 2119 ).eqv..false.," 611590 has_gamma")
6076  insist(sum(this%binned(:, 2119 ))== 0.0000000000000000 ," 611590 has zero counts if not has_gamma")
6077  insist(this%has_gamma( 2120 ).eqv..false.," 621590 has_gamma")
6078  insist(sum(this%binned(:, 2120 ))== 0.0000000000000000 ," 621590 has zero counts if not has_gamma")
6079  insist(this%has_gamma( 2121 ).eqv..true. ," 631590 has_gamma")
6080  ref= 1.0587821726331865
6081  new=sum(this%binned(:, 2121 ))
6082  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.0587821726331865 , new=",new,")"
6083  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 631590 "//trim(msg))
6084  insist(this%has_gamma( 2122 ).eqv..true. ," 641590 has_gamma")
6085  ref= 0.29955126869737125
6086  new=sum(this%binned(:, 2122 ))
6087  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.29955126869737125 , new=",new,")"
6088  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 641590 "//trim(msg))
6089  insist(this%has_gamma( 2123 ).eqv..false.," 651590 has_gamma")
6090  insist(sum(this%binned(:, 2123 ))== 0.0000000000000000 ," 651590 has zero counts if not has_gamma")
6091  insist(this%has_gamma( 2124 ).eqv..false.," 661590 has_gamma")
6092  insist(sum(this%binned(:, 2124 ))== 0.0000000000000000 ," 661590 has zero counts if not has_gamma")
6093  insist(this%has_gamma( 2125 ).eqv..false.," 671590 has_gamma")
6094  insist(sum(this%binned(:, 2125 ))== 0.0000000000000000 ," 671590 has zero counts if not has_gamma")
6095  insist(this%has_gamma( 2126 ).eqv..false.," 671591 has_gamma")
6096  insist(sum(this%binned(:, 2126 ))== 0.0000000000000000 ," 671591 has zero counts if not has_gamma")
6097  insist(this%has_gamma( 2127 ).eqv..false.," 601600 has_gamma")
6098  insist(sum(this%binned(:, 2127 ))== 0.0000000000000000 ," 601600 has zero counts if not has_gamma")
6099  insist(this%has_gamma( 2128 ).eqv..false.," 611600 has_gamma")
6100  insist(sum(this%binned(:, 2128 ))== 0.0000000000000000 ," 611600 has zero counts if not has_gamma")
6101  insist(this%has_gamma( 2129 ).eqv..false.," 621600 has_gamma")
6102  insist(sum(this%binned(:, 2129 ))== 0.0000000000000000 ," 621600 has zero counts if not has_gamma")
6103  insist(this%has_gamma( 2130 ).eqv..false.," 631600 has_gamma")
6104  insist(sum(this%binned(:, 2130 ))== 0.0000000000000000 ," 631600 has zero counts if not has_gamma")
6105  insist(this%has_gamma( 2131 ).eqv..false.," 641600 has_gamma")
6106  insist(sum(this%binned(:, 2131 ))== 0.0000000000000000 ," 641600 has zero counts if not has_gamma")
6107  insist(this%has_gamma( 2132 ).eqv..true. ," 651600 has_gamma")
6108  ref= 0.19677743286810334
6109  new=sum(this%binned(:, 2132 ))
6110  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.19677743286810334 , new=",new,")"
6111  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 651600 "//trim(msg))
6112  insist(this%has_gamma( 2133 ).eqv..false.," 661600 has_gamma")
6113  insist(sum(this%binned(:, 2133 ))== 0.0000000000000000 ," 661600 has zero counts if not has_gamma")
6114  insist(this%has_gamma( 2134 ).eqv..false.," 601610 has_gamma")
6115  insist(sum(this%binned(:, 2134 ))== 0.0000000000000000 ," 601610 has zero counts if not has_gamma")
6116  insist(this%has_gamma( 2135 ).eqv..false.," 611610 has_gamma")
6117  insist(sum(this%binned(:, 2135 ))== 0.0000000000000000 ," 611610 has zero counts if not has_gamma")
6118  insist(this%has_gamma( 2136 ).eqv..false.," 621610 has_gamma")
6119  insist(sum(this%binned(:, 2136 ))== 0.0000000000000000 ," 621610 has zero counts if not has_gamma")
6120  insist(this%has_gamma( 2137 ).eqv..false.," 631610 has_gamma")
6121  insist(sum(this%binned(:, 2137 ))== 0.0000000000000000 ," 631610 has zero counts if not has_gamma")
6122  insist(this%has_gamma( 2138 ).eqv..true. ," 641610 has_gamma")
6123  ref= 0.62205631423809715
6124  new=sum(this%binned(:, 2138 ))
6125  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.62205631423809715 , new=",new,")"
6126  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 641610 "//trim(msg))
6127  insist(this%has_gamma( 2139 ).eqv..true. ," 651610 has_gamma")
6128  ref= 0.13716866353510065
6129  new=sum(this%binned(:, 2139 ))
6130  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.13716866353510065 , new=",new,")"
6131  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 651610 "//trim(msg))
6132  insist(this%has_gamma( 2140 ).eqv..false.," 661610 has_gamma")
6133  insist(sum(this%binned(:, 2140 ))== 0.0000000000000000 ," 661610 has zero counts if not has_gamma")
6134  insist(this%has_gamma( 2141 ).eqv..false.," 671610 has_gamma")
6135  insist(sum(this%binned(:, 2141 ))== 0.0000000000000000 ," 671610 has zero counts if not has_gamma")
6136  insist(this%has_gamma( 2142 ).eqv..false.," 671611 has_gamma")
6137  insist(sum(this%binned(:, 2142 ))== 0.0000000000000000 ," 671611 has zero counts if not has_gamma")
6138  insist(this%has_gamma( 2143 ).eqv..false.," 681610 has_gamma")
6139  insist(sum(this%binned(:, 2143 ))== 0.0000000000000000 ," 681610 has zero counts if not has_gamma")
6140  insist(this%has_gamma( 2144 ).eqv..false.," 611620 has_gamma")
6141  insist(sum(this%binned(:, 2144 ))== 0.0000000000000000 ," 611620 has zero counts if not has_gamma")
6142  insist(this%has_gamma( 2145 ).eqv..false.," 621620 has_gamma")
6143  insist(sum(this%binned(:, 2145 ))== 0.0000000000000000 ," 621620 has zero counts if not has_gamma")
6144  insist(this%has_gamma( 2146 ).eqv..false.," 631620 has_gamma")
6145  insist(sum(this%binned(:, 2146 ))== 0.0000000000000000 ," 631620 has zero counts if not has_gamma")
6146  insist(this%has_gamma( 2147 ).eqv..true. ," 641620 has_gamma")
6147  ref= 0.33008241509130104
6148  new=sum(this%binned(:, 2147 ))
6149  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.33008241509130104 , new=",new,")"
6150  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 641620 "//trim(msg))
6151  insist(this%has_gamma( 2148 ).eqv..true. ," 651620 has_gamma")
6152  ref= 0.49386870265293037
6153  new=sum(this%binned(:, 2148 ))
6154  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.49386870265293037 , new=",new,")"
6155  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 651620 "//trim(msg))
6156  insist(this%has_gamma( 2149 ).eqv..false.," 661620 has_gamma")
6157  insist(sum(this%binned(:, 2149 ))== 0.0000000000000000 ," 661620 has zero counts if not has_gamma")
6158  insist(this%has_gamma( 2150 ).eqv..false.," 671620 has_gamma")
6159  insist(sum(this%binned(:, 2150 ))== 0.0000000000000000 ," 671620 has zero counts if not has_gamma")
6160  insist(this%has_gamma( 2151 ).eqv..false.," 671621 has_gamma")
6161  insist(sum(this%binned(:, 2151 ))== 0.0000000000000000 ," 671621 has zero counts if not has_gamma")
6162  insist(this%has_gamma( 2152 ).eqv..false.," 681620 has_gamma")
6163  insist(sum(this%binned(:, 2152 ))== 0.0000000000000000 ," 681620 has zero counts if not has_gamma")
6164  insist(this%has_gamma( 2153 ).eqv..false.," 611630 has_gamma")
6165  insist(sum(this%binned(:, 2153 ))== 0.0000000000000000 ," 611630 has zero counts if not has_gamma")
6166  insist(this%has_gamma( 2154 ).eqv..false.," 621630 has_gamma")
6167  insist(sum(this%binned(:, 2154 ))== 0.0000000000000000 ," 621630 has zero counts if not has_gamma")
6168  insist(this%has_gamma( 2155 ).eqv..false.," 631630 has_gamma")
6169  insist(sum(this%binned(:, 2155 ))== 0.0000000000000000 ," 631630 has zero counts if not has_gamma")
6170  insist(this%has_gamma( 2156 ).eqv..false.," 641630 has_gamma")
6171  insist(sum(this%binned(:, 2156 ))== 0.0000000000000000 ," 641630 has zero counts if not has_gamma")
6172  insist(this%has_gamma( 2157 ).eqv..false.," 651630 has_gamma")
6173  insist(sum(this%binned(:, 2157 ))== 0.0000000000000000 ," 651630 has zero counts if not has_gamma")
6174  insist(this%has_gamma( 2158 ).eqv..false.," 661630 has_gamma")
6175  insist(sum(this%binned(:, 2158 ))== 0.0000000000000000 ," 661630 has zero counts if not has_gamma")
6176  insist(this%has_gamma( 2159 ).eqv..false.," 671630 has_gamma")
6177  insist(sum(this%binned(:, 2159 ))== 0.0000000000000000 ," 671630 has zero counts if not has_gamma")
6178  insist(this%has_gamma( 2160 ).eqv..false.," 671631 has_gamma")
6179  insist(sum(this%binned(:, 2160 ))== 0.0000000000000000 ," 671631 has zero counts if not has_gamma")
6180  insist(this%has_gamma( 2161 ).eqv..false.," 681630 has_gamma")
6181  insist(sum(this%binned(:, 2161 ))== 0.0000000000000000 ," 681630 has zero counts if not has_gamma")
6182  insist(this%has_gamma( 2162 ).eqv..false.," 621640 has_gamma")
6183  insist(sum(this%binned(:, 2162 ))== 0.0000000000000000 ," 621640 has zero counts if not has_gamma")
6184  insist(this%has_gamma( 2163 ).eqv..false.," 631640 has_gamma")
6185  insist(sum(this%binned(:, 2163 ))== 0.0000000000000000 ," 631640 has zero counts if not has_gamma")
6186  insist(this%has_gamma( 2164 ).eqv..false.," 641640 has_gamma")
6187  insist(sum(this%binned(:, 2164 ))== 0.0000000000000000 ," 641640 has zero counts if not has_gamma")
6188  insist(this%has_gamma( 2165 ).eqv..true. ," 651640 has_gamma")
6189  ref= 0.90820332488854727
6190  new=sum(this%binned(:, 2165 ))
6191  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.90820332488854727 , new=",new,")"
6192  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 651640 "//trim(msg))
6193  insist(this%has_gamma( 2166 ).eqv..false.," 661640 has_gamma")
6194  insist(sum(this%binned(:, 2166 ))== 0.0000000000000000 ," 661640 has zero counts if not has_gamma")
6195  insist(this%has_gamma( 2167 ).eqv..false.," 671640 has_gamma")
6196  insist(sum(this%binned(:, 2167 ))== 0.0000000000000000 ," 671640 has zero counts if not has_gamma")
6197  insist(this%has_gamma( 2168 ).eqv..false.," 671641 has_gamma")
6198  insist(sum(this%binned(:, 2168 ))== 0.0000000000000000 ," 671641 has zero counts if not has_gamma")
6199  insist(this%has_gamma( 2169 ).eqv..false.," 681640 has_gamma")
6200  insist(sum(this%binned(:, 2169 ))== 0.0000000000000000 ," 681640 has zero counts if not has_gamma")
6201  insist(this%has_gamma( 2170 ).eqv..false.," 621650 has_gamma")
6202  insist(sum(this%binned(:, 2170 ))== 0.0000000000000000 ," 621650 has zero counts if not has_gamma")
6203  insist(this%has_gamma( 2171 ).eqv..false.," 631650 has_gamma")
6204  insist(sum(this%binned(:, 2171 ))== 0.0000000000000000 ," 631650 has zero counts if not has_gamma")
6205  insist(this%has_gamma( 2172 ).eqv..false.," 641650 has_gamma")
6206  insist(sum(this%binned(:, 2172 ))== 0.0000000000000000 ," 641650 has zero counts if not has_gamma")
6207  insist(this%has_gamma( 2173 ).eqv..false.," 651650 has_gamma")
6208  insist(sum(this%binned(:, 2173 ))== 0.0000000000000000 ," 651650 has zero counts if not has_gamma")
6209  insist(this%has_gamma( 2174 ).eqv..true. ," 661650 has_gamma")
6210  ref= 0.47595028997703481
6211  new=sum(this%binned(:, 2174 ))
6212  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.47595028997703481 , new=",new,")"
6213  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 661650 "//trim(msg))
6214  insist(this%has_gamma( 2175 ).eqv..true. ," 661651 has_gamma")
6215  ref= 1.5781428807830995e-004
6216  new=sum(this%binned(:, 2175 ))
6217  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.5781428807830995E-004 , new=",new,")"
6218  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 661651 "//trim(msg))
6219  insist(this%has_gamma( 2176 ).eqv..false.," 671650 has_gamma")
6220  insist(sum(this%binned(:, 2176 ))== 0.0000000000000000 ," 671650 has zero counts if not has_gamma")
6221  insist(this%has_gamma( 2177 ).eqv..false.," 681650 has_gamma")
6222  insist(sum(this%binned(:, 2177 ))== 0.0000000000000000 ," 681650 has zero counts if not has_gamma")
6223  insist(this%has_gamma( 2178 ).eqv..false.," 691650 has_gamma")
6224  insist(sum(this%binned(:, 2178 ))== 0.0000000000000000 ," 691650 has zero counts if not has_gamma")
6225  insist(this%has_gamma( 2179 ).eqv..false.," 631660 has_gamma")
6226  insist(sum(this%binned(:, 2179 ))== 0.0000000000000000 ," 631660 has zero counts if not has_gamma")
6227  insist(this%has_gamma( 2180 ).eqv..false.," 641660 has_gamma")
6228  insist(sum(this%binned(:, 2180 ))== 0.0000000000000000 ," 641660 has zero counts if not has_gamma")
6229  insist(this%has_gamma( 2181 ).eqv..false.," 651660 has_gamma")
6230  insist(sum(this%binned(:, 2181 ))== 0.0000000000000000 ," 651660 has zero counts if not has_gamma")
6231  insist(this%has_gamma( 2182 ).eqv..true. ," 661660 has_gamma")
6232  ref= 9.8151209522421748e-002
6233  new=sum(this%binned(:, 2182 ))
6234  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 9.8151209522421748E-002 , new=",new,")"
6235  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 661660 "//trim(msg))
6236  insist(this%has_gamma( 2183 ).eqv..true. ," 671660 has_gamma")
6237  ref= 0.76381537700397173
6238  new=sum(this%binned(:, 2183 ))
6239  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.76381537700397173 , new=",new,")"
6240  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 671660 "//trim(msg))
6241  insist(this%has_gamma( 2184 ).eqv..true. ," 671661 has_gamma")
6242  ref= 6.9905578106101993e-003
6243  new=sum(this%binned(:, 2184 ))
6244  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 6.9905578106101993E-003 , new=",new,")"
6245  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 671661 "//trim(msg))
6246  insist(this%has_gamma( 2185 ).eqv..false.," 681660 has_gamma")
6247  insist(sum(this%binned(:, 2185 ))== 0.0000000000000000 ," 681660 has zero counts if not has_gamma")
6248  insist(this%has_gamma( 2186 ).eqv..false.," 691660 has_gamma")
6249  insist(sum(this%binned(:, 2186 ))== 0.0000000000000000 ," 691660 has zero counts if not has_gamma")
6250  insist(this%has_gamma( 2187 ).eqv..false.," 701660 has_gamma")
6251  insist(sum(this%binned(:, 2187 ))== 0.0000000000000000 ," 701660 has zero counts if not has_gamma")
6252  insist(this%has_gamma( 2188 ).eqv..false.," 631670 has_gamma")
6253  insist(sum(this%binned(:, 2188 ))== 0.0000000000000000 ," 631670 has zero counts if not has_gamma")
6254  insist(this%has_gamma( 2189 ).eqv..false.," 641670 has_gamma")
6255  insist(sum(this%binned(:, 2189 ))== 0.0000000000000000 ," 641670 has zero counts if not has_gamma")
6256  insist(this%has_gamma( 2190 ).eqv..false.," 651670 has_gamma")
6257  insist(sum(this%binned(:, 2190 ))== 0.0000000000000000 ," 651670 has zero counts if not has_gamma")
6258  insist(this%has_gamma( 2191 ).eqv..false.," 661670 has_gamma")
6259  insist(sum(this%binned(:, 2191 ))== 0.0000000000000000 ," 661670 has zero counts if not has_gamma")
6260  insist(this%has_gamma( 2192 ).eqv..false.," 671670 has_gamma")
6261  insist(sum(this%binned(:, 2192 ))== 0.0000000000000000 ," 671670 has zero counts if not has_gamma")
6262  insist(this%has_gamma( 2193 ).eqv..false.," 681670 has_gamma")
6263  insist(sum(this%binned(:, 2193 ))== 0.0000000000000000 ," 681670 has zero counts if not has_gamma")
6264  insist(this%has_gamma( 2194 ).eqv..false.," 681671 has_gamma")
6265  insist(sum(this%binned(:, 2194 ))== 0.0000000000000000 ," 681671 has zero counts if not has_gamma")
6266  insist(this%has_gamma( 2195 ).eqv..false.," 691670 has_gamma")
6267  insist(sum(this%binned(:, 2195 ))== 0.0000000000000000 ," 691670 has zero counts if not has_gamma")
6268  insist(this%has_gamma( 2196 ).eqv..false.," 701670 has_gamma")
6269  insist(sum(this%binned(:, 2196 ))== 0.0000000000000000 ," 701670 has zero counts if not has_gamma")
6270  insist(this%has_gamma( 2197 ).eqv..false.," 641680 has_gamma")
6271  insist(sum(this%binned(:, 2197 ))== 0.0000000000000000 ," 641680 has zero counts if not has_gamma")
6272  insist(this%has_gamma( 2198 ).eqv..false.," 651680 has_gamma")
6273  insist(sum(this%binned(:, 2198 ))== 0.0000000000000000 ," 651680 has zero counts if not has_gamma")
6274  insist(this%has_gamma( 2199 ).eqv..false.," 661680 has_gamma")
6275  insist(sum(this%binned(:, 2199 ))== 0.0000000000000000 ," 661680 has zero counts if not has_gamma")
6276  insist(this%has_gamma( 2200 ).eqv..false.," 671680 has_gamma")
6277  insist(sum(this%binned(:, 2200 ))== 0.0000000000000000 ," 671680 has zero counts if not has_gamma")
6278  insist(this%has_gamma( 2201 ).eqv..false.," 681680 has_gamma")
6279  insist(sum(this%binned(:, 2201 ))== 0.0000000000000000 ," 681680 has zero counts if not has_gamma")
6280  insist(this%has_gamma( 2202 ).eqv..false.," 691680 has_gamma")
6281  insist(sum(this%binned(:, 2202 ))== 0.0000000000000000 ," 691680 has zero counts if not has_gamma")
6282  insist(this%has_gamma( 2203 ).eqv..false.," 701680 has_gamma")
6283  insist(sum(this%binned(:, 2203 ))== 0.0000000000000000 ," 701680 has zero counts if not has_gamma")
6284  insist(this%has_gamma( 2204 ).eqv..false.," 641690 has_gamma")
6285  insist(sum(this%binned(:, 2204 ))== 0.0000000000000000 ," 641690 has zero counts if not has_gamma")
6286  insist(this%has_gamma( 2205 ).eqv..false.," 651690 has_gamma")
6287  insist(sum(this%binned(:, 2205 ))== 0.0000000000000000 ," 651690 has zero counts if not has_gamma")
6288  insist(this%has_gamma( 2206 ).eqv..false.," 661690 has_gamma")
6289  insist(sum(this%binned(:, 2206 ))== 0.0000000000000000 ," 661690 has zero counts if not has_gamma")
6290  insist(this%has_gamma( 2207 ).eqv..false.," 671690 has_gamma")
6291  insist(sum(this%binned(:, 2207 ))== 0.0000000000000000 ," 671690 has zero counts if not has_gamma")
6292  insist(this%has_gamma( 2208 ).eqv..true. ," 681690 has_gamma")
6293  ref= 8.2603648633007620e-002
6294  new=sum(this%binned(:, 2208 ))
6295  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 8.2603648633007620E-002 , new=",new,")"
6296  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 681690 "//trim(msg))
6297  insist(this%has_gamma( 2209 ).eqv..false.," 691690 has_gamma")
6298  insist(sum(this%binned(:, 2209 ))== 0.0000000000000000 ," 691690 has zero counts if not has_gamma")
6299  insist(this%has_gamma( 2210 ).eqv..false.," 701690 has_gamma")
6300  insist(sum(this%binned(:, 2210 ))== 0.0000000000000000 ," 701690 has zero counts if not has_gamma")
6301  insist(this%has_gamma( 2211 ).eqv..false.," 701691 has_gamma")
6302  insist(sum(this%binned(:, 2211 ))== 0.0000000000000000 ," 701691 has zero counts if not has_gamma")
6303  insist(this%has_gamma( 2212 ).eqv..false.," 711690 has_gamma")
6304  insist(sum(this%binned(:, 2212 ))== 0.0000000000000000 ," 711690 has zero counts if not has_gamma")
6305  insist(this%has_gamma( 2213 ).eqv..false.," 711691 has_gamma")
6306  insist(sum(this%binned(:, 2213 ))== 0.0000000000000000 ," 711691 has zero counts if not has_gamma")
6307  insist(this%has_gamma( 2214 ).eqv..false.," 651700 has_gamma")
6308  insist(sum(this%binned(:, 2214 ))== 0.0000000000000000 ," 651700 has zero counts if not has_gamma")
6309  insist(this%has_gamma( 2215 ).eqv..false.," 661700 has_gamma")
6310  insist(sum(this%binned(:, 2215 ))== 0.0000000000000000 ," 661700 has zero counts if not has_gamma")
6311  insist(this%has_gamma( 2216 ).eqv..false.," 671700 has_gamma")
6312  insist(sum(this%binned(:, 2216 ))== 0.0000000000000000 ," 671700 has zero counts if not has_gamma")
6313  insist(this%has_gamma( 2217 ).eqv..false.," 671701 has_gamma")
6314  insist(sum(this%binned(:, 2217 ))== 0.0000000000000000 ," 671701 has zero counts if not has_gamma")
6315  insist(this%has_gamma( 2218 ).eqv..false.," 681700 has_gamma")
6316  insist(sum(this%binned(:, 2218 ))== 0.0000000000000000 ," 681700 has zero counts if not has_gamma")
6317  insist(this%has_gamma( 2219 ).eqv..true. ," 691700 has_gamma")
6318  ref= 0.32198517535952448
6319  new=sum(this%binned(:, 2219 ))
6320  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.32198517535952448 , new=",new,")"
6321  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 691700 "//trim(msg))
6322  insist(this%has_gamma( 2220 ).eqv..false.," 701700 has_gamma")
6323  insist(sum(this%binned(:, 2220 ))== 0.0000000000000000 ," 701700 has zero counts if not has_gamma")
6324  insist(this%has_gamma( 2221 ).eqv..false.," 651710 has_gamma")
6325  insist(sum(this%binned(:, 2221 ))== 0.0000000000000000 ," 651710 has zero counts if not has_gamma")
6326  insist(this%has_gamma( 2222 ).eqv..false.," 661710 has_gamma")
6327  insist(sum(this%binned(:, 2222 ))== 0.0000000000000000 ," 661710 has zero counts if not has_gamma")
6328  insist(this%has_gamma( 2223 ).eqv..false.," 671710 has_gamma")
6329  insist(sum(this%binned(:, 2223 ))== 0.0000000000000000 ," 671710 has zero counts if not has_gamma")
6330  insist(this%has_gamma( 2224 ).eqv..true. ," 681710 has_gamma")
6331  ref= 0.38508704871806548
6332  new=sum(this%binned(:, 2224 ))
6333  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.38508704871806548 , new=",new,")"
6334  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 681710 "//trim(msg))
6335  insist(this%has_gamma( 2225 ).eqv..true. ," 691710 has_gamma")
6336  ref= 1.2421613035298590e-002
6337  new=sum(this%binned(:, 2225 ))
6338  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 1.2421613035298590E-002 , new=",new,")"
6339  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 691710 "//trim(msg))
6340  insist(this%has_gamma( 2226 ).eqv..false.," 701710 has_gamma")
6341  insist(sum(this%binned(:, 2226 ))== 0.0000000000000000 ," 701710 has zero counts if not has_gamma")
6342  insist(this%has_gamma( 2227 ).eqv..false.," 711710 has_gamma")
6343  insist(sum(this%binned(:, 2227 ))== 0.0000000000000000 ," 711710 has zero counts if not has_gamma")
6344  insist(this%has_gamma( 2228 ).eqv..false.," 711711 has_gamma")
6345  insist(sum(this%binned(:, 2228 ))== 0.0000000000000000 ," 711711 has zero counts if not has_gamma")
6346  insist(this%has_gamma( 2229 ).eqv..false.," 721710 has_gamma")
6347  insist(sum(this%binned(:, 2229 ))== 0.0000000000000000 ," 721710 has zero counts if not has_gamma")
6348  insist(this%has_gamma( 2230 ).eqv..false.," 661720 has_gamma")
6349  insist(sum(this%binned(:, 2230 ))== 0.0000000000000000 ," 661720 has zero counts if not has_gamma")
6350  insist(this%has_gamma( 2231 ).eqv..false.," 671720 has_gamma")
6351  insist(sum(this%binned(:, 2231 ))== 0.0000000000000000 ," 671720 has zero counts if not has_gamma")
6352  insist(this%has_gamma( 2232 ).eqv..true. ," 681720 has_gamma")
6353  ref= 7.9573185132163951e-002
6354  new=sum(this%binned(:, 2232 ))
6355  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 7.9573185132163951E-002 , new=",new,")"
6356  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 681720 "//trim(msg))
6357  insist(this%has_gamma( 2233 ).eqv..true. ," 691720 has_gamma")
6358  ref= 0.54836751755446267
6359  new=sum(this%binned(:, 2233 ))
6360  write(msg,"(a,es18.6,a)")" total counts are conserved (ref= 0.54836751755446267 , new=",new,")"
6361  insist(abs((1.d-99+new)/(1.d-99+ref)-1.d0)<1d-6," 691720 "//trim(msg))
6362  insist(this%has_gamma( 2234 ).eqv..false.," 701720 has_gamma")
6363  insist(sum(this%binned(:, 2234 ))== 0.0000000000000000 ," 701720 has zero counts if not has_gamma")
6364  insist(this%has_gamma( 2235 ).eqv..false.," 711720 has_gamma")
6365  insist(sum(this%binned(:, 2235 ))== 0.0000000000000000 ," 711720 has zero counts if not has_gamma")
6366  insist(this%has_gamma( 2236 ).eqv..false.," 711721 has_gamma")
6367  insist(sum(this%binned(:, 2236 ))== 0.0000000000000000 ," 711721 has zero counts if not has_gamma")
6368  insist(this%has_gamma( 2237 ).eqv..false.," 721720 has_gamma")
6369  insist(sum(this%binned(:, 2237 ))== 0.0000000000000000 ," 721720 has zero counts if not has_gamma")
6370 
6371 
6372 end subroutine
6373 
6374 end program
Generated by   doxygen 1.8.10