FDS Source: Fix removal of old function

Author: drjfloyd

Source/func.f90

@@ -2912,7 +2912,7 @@ REAL(EB) FUNCTION Q_REF_FIT(HRRPUA,HOC,Y_S,CHI_R,Q_INC)
 I_HRRPUA = MIN(29,INT(HRRPUA*0.00001_EB))
 F_HRRPUA = MIN(30._EB,HRRPUA*0.00001_EB) - REAL(I_HRRPUA,EB)
 IF (F_HRRPUA < TWO_EPSILON_EB) THEN
-   Q_REF_FIT_2 = Q_INC
+   Q_REF_FIT = Q_INC
    RETURN
 ENDIF
 I_HOC = MIN(4,MAX(1,INT(HOC*1.E-7_EB)))
@@ -2941,9 +2941,9 @@ REAL(EB) FUNCTION Q_REF_FIT(HRRPUA,HOC,Y_S,CHI_R,Q_INC)
 QFLA_4 = QFLA_3(1)+ F_HOC * (QFLA_3(2) - QFLA_3(1))
 ABSA_4 = ABSA_3(1)+ F_HOC * (ABSA_3(2) - ABSA_3(1))
 
-Q_REF_FIT_2 = QFLA_4*1000._EB + Q_INC * (1._EB - ABSA_4)
+Q_REF_FIT = QFLA_4*1000._EB + Q_INC * (1._EB - ABSA_4)
 
-END FUNCTION Q_REF_FIT_2
+END FUNCTION Q_REF_FIT
 
 
 SUBROUTINE DEFINE_QREF_ARRAYS