beta2fluxratio.pro 180 Bytes
FUNCTION beta2fluxratio,beta,lambda1,lambda2,Tdust

hck=1.44e4
fluxratio=(lambda2/lambda1)^(3.+beta)*(exp(hck/lambda2/Tdust)-1.)/(exp(hck/lambda1/Tdust)-1.)

RETURN,fluxratio

END