Permit negative pH and pKai 85/4785/1
authorradakb <brian.radak@gmail.com>
Wed, 7 Nov 2018 20:39:05 +0000 (15:39 -0500)
committerradakb <brian.radak@gmail.com>
Wed, 7 Nov 2018 20:39:05 +0000 (15:39 -0500)
I'm not entirely sure why this was originally required. In any event,
systems under study now do require extreme values as low as -1, so I've
had this change locally for a while now. It shouldn't impact many users.

Change-Id: Idab0f436979d1d81c1ecd900742820130551f7ee

lib/namdcph/namdcph/namdcph.core.tcl

index 68878e2..d3ef2b3 100644 (file)
@@ -279,7 +279,7 @@ proc ::namdcph::cphAnalyzeForce {dcdfilename segresidname state0 state1} {
 # pH value for the simulation
 #
 proc ::namdcph::pH {pHValue} {
-    checkIsPositive "pH" $pHValue
+    checkIsNumeric "pH" $pHValue
     variable ::namdcph::SystempH $pHValue 
     return
 }
@@ -345,7 +345,7 @@ proc ::namdcph::cphSetResiduepKai {args} {
         #NB pKai may be a list of values - check individually.
         lassign [lrange $args $i [expr {$i+1}]] segresidname pKai
         foreach pKa $pKai {
-            checkIsPositive pKai $pKa
+            checkIsNumeric pKai $pKa
         }
         dict set stateInfo $segresidname pKai $pKai
     }