title exercise full range of density, temperature
c 
element lithium off
element berylium off
element boron off
// >>chng 12 apr 09, scale factor will result in CR rate for that meeting
// old value maintained to keep history
cosmic rays background linear 0.1266
cmb
iterate
c 
blackbody 6 
energy density 6 vary
grid 1 6 1
c -8 18 
hden 2 vary
grid -8 18 1
stop zone 1
c set to constant small thickness
set dr -10
normalize to "Q(H)" 4861A
c 
save performance no hash "grid_extreme.per"
save grid no hash "grid_extreme.grd" last 
save overview last no hash "grid_extreme.ovr" last 
save monitors last no hash "grid_extreme.asr" last 
save average "grid_extreme.avr" last 
temperature hydrogen 2
end of average
c 
// >>11 apr 26, val 21 from 4.1377 to 3.159 update Ar iso seq recom rates
monitor hydrogen 2 temperature grid "grid_extreme.dat" 
c
c grid_extreme.in limits