From 14de37d0cb50b983f3510825cf7316518c9d28e4 Mon Sep 17 00:00:00 2001
From: Lew Rossman <LRossman@cinci.rr.com>
Date: Fri, 14 Jan 2022 09:09:32 -0500
Subject: [PATCH] Adjust default pattern index after a pattern is deleted

---
 src/epanet.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/epanet.c b/src/epanet.c
index 361cfd6..3c3412a 100644
--- a/src/epanet.c
+++ b/src/epanet.c
@@ -4387,6 +4387,10 @@ int  DLLEXPORT EN_deletepattern(EN_Project p, int index)
     if (hyd->Epat == index)  hyd->Epat = 0;
     else if (hyd->Epat > index) hyd->Epat--;
 
+    // Modify global default demand pattern
+    if (hyd->DefPat == index) hyd->DefPat = 0;
+    else if (hyd->DefPat > index) hyd->DefPat--;
+
     // Free the pattern's factor array
     FREE(net->Pattern[index].F);
     FREE(net->Pattern[index].Comment);