Merge pull request #293 from Mariosmsk/EN_HEADLOSSFORM

add option EN_HEADLOSSFORM in function ENgetoption

Thank you @Mariosmsk

include/epanet2.bas

@@ -139,6 +139,7 @@ Public Const EN_DEMANDMULT = 4
 Public Const EN_HEADERROR = 5
 Public Const EN_FLOWCHANGE = 6
 Public Const EN_DEMANDDEFPAT = 7
+Public Const EN_HEADLOSSFORM = 8
 
 Public Const EN_LOWLEVEL = 0     ' Control types
 Public Const EN_HILEVEL = 1

include/epanet2.h

@@ -226,7 +226,8 @@ typedef enum {
   EN_DEMANDMULT     = 4,
   EN_HEADERROR      = 5,
   EN_FLOWCHANGE     = 6,
-  EN_DEMANDDEFPAT   = 7
+  EN_DEMANDDEFPAT   = 7,
+  EN_HEADLOSSFORM 	= 8
 } EN_Option;
 
 typedef enum {

include/epanet2.vb

@@ -123,6 +123,8 @@ Public Const EN_EMITEXPON = 3
 Public Const EN_DEMANDMULT = 4
 Public Const EN_HEADERROR = 5
 Public Const EN_FLOWCHANGE = 6
+Public Const EN_DEMANDDEFPAT = 7
+Public Const EN_HEADLOSSFORM = 8
 
 Public Const EN_LOWLEVEL = 0     ' Control types
 Public Const EN_HILEVEL = 1

src/epanet.c

@@ -1536,7 +1536,10 @@ int DLLEXPORT EN_getoption(EN_ProjectHandle ph, EN_Option code,
   case EN_DEMANDDEFPAT:
     v = hyd->DefPat;
     break;
-
+  case EN_HEADLOSSFORM:
+    v = hyd->Formflag;
+    break;
+	
   default:
     return set_error(pr->error_handle, 251);
   }