From 6a5aa372f8efd8da486fdda7db0f6c3df97dabf2 Mon Sep 17 00:00:00 2001
From: Lew Rossman <LRossman@cinci.rr.com>
Date: Tue, 28 May 2019 11:17:44 -0400
Subject: [PATCH] Change default properties for new pipe created with
 EN_addlink (issue #500)

---
 src/epanet.c | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/src/epanet.c b/src/epanet.c
index f7aee3a..409069f 100644
--- a/src/epanet.c
+++ b/src/epanet.c
@@ -3152,10 +3152,18 @@ int DLLEXPORT EN_addlink(EN_Project p, char *id, int linkType,
     }
     else if (linkType <= PIPE)  // pipe or cvpipe
     {
+        // 10" diameter new ductile iron pipe with
+        // length of average city block
         link->Diam = 10 / p->Ucf[DIAM];
-        link->Kc = 100; // Rough. coeff
+        switch (hyd->Formflag)
+        {
+        case HW: link->Kc = 130;    break;
+        case DW: link->Kc = 0.0005; break;
+        case CM: link->Kc = 0.01;   break;
+        default: link->Kc = 1.0;
+        }
         link->Km = 0.0; // Loss coeff
-        link->Len = 1000;
+        link->Len = 330.0;
     }
     else  // Valve
     {