Allow wavelengths below 4.6125 Angstroms for velocity selector on quokka

This commit is contained in:
Ferdi Franceschini
2013-08-15 08:08:36 +10:00
parent d038891bc1
commit 335eda0a55

View File

@@ -114,10 +114,10 @@ namespace eval ::scobj::velocity_selector {
set VNeutron $nvs43Par(VNeutron)
}
}
if {$lambda1 < 4.6125} {
return -code error "Minimum wavelength is 4.6125 Angstrom"
}
# 2013-08-01 ffr: The Astrium program does allow wavelengths below 4.6125 Angstroms
# if {$lambda1 < 4.6125} {
# return -code error "Minimum wavelength is 4.6125 Angstrom"
# }
set lambda0 [expr ($m_dTwistAngle*60.0*$VNeutron)/(360.0*$m_dLength*$m_iMaxSpeed)]
set pi [expr acos(-1)]