From 48f9d3989d29f2978645da1ae7c808b10208126d Mon Sep 17 00:00:00 2001
From: Steffen Macke <sdteffen@sdteffen.de>
Date: Fri, 24 Jan 2014 18:01:54 +0100
Subject: [PATCH] ENgetlinkvalue(EN_LINKPATTERN) allows to retrieve pump
 patterns.

---
 src/epanet.c  | 5 +++++
 src/toolkit.h | 1 +
 2 files changed, 6 insertions(+)

diff --git a/src/epanet.c b/src/epanet.c
index 9e23e9f..3d9ae37 100755
--- a/src/epanet.c
+++ b/src/epanet.c
@@ -1737,6 +1737,11 @@ int DLLEXPORT ENgetlinkvalue(int index, int code, float *value)
       case EN_LINKQUAL:
          v = avgqual(index) * Ucf[LINKQUAL];
          break;
+
+      case EN_LINKPATTERN:
+         if (Link[index].Type == PUMP)
+            v = (double)Pump[PUMPINDEX(index)].Upat;
+         break;
          
       default: return(251);
    }
diff --git a/src/toolkit.h b/src/toolkit.h
index 016a31f..977b999 100755
--- a/src/toolkit.h
+++ b/src/toolkit.h
@@ -79,6 +79,7 @@ AUTHOR:     L. Rossman
 #define EN_SETTING      12
 #define EN_ENERGY       13
 #define EN_LINKQUAL     14     /* TNT */
+#define EN_LINKPATTERN  15
 
 #define EN_DURATION     0    /* Time parameters */
 #define EN_HYDSTEP      1