Fix bug in parameter initialization table.

This commit is contained in:
salman 2009-09-07 09:50:16 +00:00
parent fff8ea52bd
commit 06f6f92f52

View File

@ -1147,7 +1147,6 @@ sub PrepParamTable {
$Param=$Param."_".$iRun; $Param=$Param."_".$iRun;
# Check if this parameter has been initialized befor. If not take from defaults # Check if this parameter has been initialized befor. If not take from defaults
$value = $All{"$Param"}; $value = $All{"$Param"};
print "$Param=$value\n";
if ( $value ne "" ) { if ( $value ne "" ) {
$error = $All{"$erradd$Param"}; $error = $All{"$erradd$Param"};
$minvalue = $All{"$Param$minadd"}; $minvalue = $All{"$Param$minadd"};
@ -1156,7 +1155,6 @@ sub PrepParamTable {
# I need this although it is already in the MSR.pm module, just for this table # I need this although it is already in the MSR.pm module, just for this table
# We can remove it from the MSR module later... # We can remove it from the MSR module later...
# Or keep in the MSR as function ?? # Or keep in the MSR as function ??
print "I am here. Why?\n";
$value = $Defaults{$Param_ORG}; $value = $Defaults{$Param_ORG};
$error = $Defaults{ join( "", $erradd, $Param_ORG ) }; $error = $Defaults{ join( "", $erradd, $Param_ORG ) };
$minvalue = $Defaults{ join("", $Param_ORG, $minadd ) }; $minvalue = $Defaults{ join("", $Param_ORG, $minadd ) };