Update qcom.f90