title bigh case B with largest possible H atom
case b hummer
constant temperature = 10,000
stop zone 1
black body, T=200,000K
ionization parameter -2
hden = 4
init file="honly.ini"
set dr 0
// this is the largest possible hydrogen atom
hydrogen levels limit
normalize to "Ca B" 4861
punch results file="bigh.rlt"
punch asserts "bigh.asr"
assert line "H  1" 6563 2.8468 error 0.03
assert line "H  1" 4861 1.0000 error 0.02
assert line "H  1" 4340 0.4691 error 0.03
//
assert line "H  1"   18 0.3323 error 0.03
assert line "H  1"   12 0.1621 error 0.03
assert line "H  1"   10 0.0901 error 0.03
//
assert line "H  1"   40 0.0778 
assert line "H  1"   26 0.0447 error 0.03
assert line "H  1"   21 0.0275 error 0.03
//
assert line "H  1"  74   0.0245
assert line "H  1"  46   0.0158
assert line "H  1"  37   0.0105
//
assert line "BaC " 3646 15.28  error 0.02
c bigh.in