1
function trolands = QuantaToTrolands(wl,quanta,S_vLambda,vLambda)
b'% trolands = QuantaToTrolands(wl,quanta,S_vLambda,vLambda)'
b'% Convert from quanta (sec-1 deg-2) to to trolands for a'
b'% monochromatic light.'
b'% 8/15/96 dhb, abp Wrote the header.'
b'% 8/22/96 dhb Wavelength should be in meters.'
b'wls_vLambda = MakeItWls(S_vLambda);'
b'index = find(wl == wls_vLambda);'
b'trolands = (quanta/(wl*1e-9))*vLambda(index)*4.454e-13;'
b'\\ No newline at end of file'