Avoid shedding for loads that have negative values in datafile

Author: abhyshr

include/private/psimpl.h

@@ -24,7 +24,7 @@
 /**
  * @brief A bogus value for load loss cost
  */
-#define BOGUSLOSSCOST -1234.0
+#define BOGUSLOSSCOST 12345.0
 
 /**
  * @brief private bus data struct

src/opflow/interface/opflow.cpp

@@ -1694,7 +1694,11 @@ PetscErrorCode OPFLOWSetUp(OPFLOW opflow) {
           PSLOAD load;
           ierr = PSBUSGetLoad(bus, l, &load);
           CHKERRQ(ierr);
-          load->loss_frac = 1.0;
+	  if(load->pl < 0.0 || load->ql < 0.0) {
+	    load->loss_frac = 0.0;
+	  } else {
+	    load->loss_frac = 1.0;
+	  }
           load->loss_cost = opflow->loadloss_penalty;
         }
       }

src/ps/psreaddata.cpp

@@ -797,7 +797,11 @@ PetscErrorCode PSReadMatPowerData(PS ps, const char netfile[]) {
         Load[loadi].pl = Pd / ps->MVAbase;
         Load[loadi].ql = Qd / ps->MVAbase;
         /* Some defaults for load shed */
-        Load[loadi].loss_frac = 1.0;
+	if(Pd < 0.0 || Qd <= 0.0) {
+	  Load[loadi].loss_frac = 0.0;
+	} else {
+	  Load[loadi].loss_frac = 1.0;
+	}
         Load[loadi].loss_cost = BOGUSLOSSCOST;
         Load[loadi].area = Bus[busi].area;
         Load[loadi].internal_i = busi;