Create mcscatcalc.f