Merge pull request #13744 from drjfloyd/master

FDS Source: prior commit staged file before saving latest edit

Author: drjfloyd

Source/hvac.f90

@@ -1889,7 +1889,7 @@ SUBROUTINE DPSTARCALC
          IF (IPZ==IOPZ) CYCLE
          IF (P_ZONE(IOPZ)%N_DUCTNODES==0) CYCLE
          IF (CONNECTED_ZONES(IPZ,IOPZ,1)) THEN
-            IF (P_ZONE(IPOZ)%N_DUCTNODES==0) CYCLE
+            IF (P_ZONE(IOPZ)%N_DUCTNODES==0) CYCLE
             DPSTAR(IOPZ) = DPSTAR(IOPZ)  - DN%DIR(1) * DU%AREA * DU%VEL(OLD) * DT_HV/PSUM_TOT(IPZ)
             IF (DU%FIXED) DPSTAR(IOPZ) = DPSTAR(IOPZ)  + DN%DIR(1) * DU%AREA * DU%VEL(NEW) * DT_HV/PSUM_TOT(IPZ)
          ENDIF