IF ABS_QdotReq < ABS_FullTotCapSens,  !- <none>
     Set PLR = (ABS_QdotReq - FanPowerToAir)/ (ABS_FullTotCapSens - FanPowerToAir),  !- <none>
     Set ErrorTol = 0.0005,  !- <none>
     Set Iter = 0,       !- <none>
     Set MaxIter = 30,     !- <none>
     Set Relax = 0.8,     !- <none>
     Set ABS_Error = 0.002,  !- <none>
     WHILE (ABS_Error > ErrorTol) && (Iter < MaxIter),  !- <none>
        Set OutAir_H = (PLR*FullLoadOutAirEnth) +  ((1.0-PLR)* FanOut_H),  !- <none>
        Set OutAir_W = (PLR*FullLoadOutAirHumRat) + ((1.0-PLR)*FanOut_W),  !- <none>
        Set OutletAirTemp = @TdbFnHW OutAir_H OutAir_W,  !- <none>
        Set TotCapTest = AirSupMdotDesign * (DesiredZone_H - OutAir_H),  !- <none>
        Set Error = (ABS_QdotReq - TotCapTest)/ABS_QdotReq,  !- <none>
        Set ABS_Error = @ABS Error,  !- <none>
        IF (ABS_Error > ErrorTol),  !- <none>
           Set DelPLR = (ABS_QdotReq - TotCapTest) / ABS_FullTotCapSens,  !- <none>
           Set PLR = PLR + Relax * DelPLR,  !- <none>
           Set PLR = @min PLR 1.0,  !- <none>
        ENDIF,          !- <none>
        Set Iter = Iter + 1,   !- <none>
        If (Iter == 16),     !- <none>
           Set Relax = 0.5,     !- <none>
        ENDIF,          !- <none>
     ENDWHILE,         !- <none>
  ELSE,           !- <none>
     Set PLR = 1.0,      !- <none>
     Set OutAir_H = FullLoadOutAirEnth,  !- <none>
     Set OutAir_W = FullLoadOutAirHumRat,  !- <none>
     Set OutletAirTemp = FullLoadOutAirTemp,  !- <none>
  ENDIF,          !- <none>