Corrected regression in parameters export routine.

This commit is contained in:
2011-09-27 08:23:32 +00:00
parent 1650271548
commit 4ba15e49f8
2 changed files with 6 additions and 6 deletions

View File

@ -1490,16 +1490,16 @@ sub ExportParams {
if ($Shared!=1) {$Param=$Param."_".$RUNtmp;}
# Check if this parameter has been initialized befor. (should be)
$value = $All{"$Param"};
$error = $All{"$erradd$Param"};
$error = $All{"$erradd$Param"};
$line=join("\t",$line,$value,$error);
$PCount++;
}
elsif ($Shared==1) {
# The parameter is shared, take the value from the first run
$Param=$Param."_1";
$Param=$Param;
$value = $All{"$Param"};
$error = $All{"$erradd$Param"};
$error = $All{"$erradd$Param"};
$line=join("\t",$line,$value,$error);
}
$NP++;

View File

@ -1490,16 +1490,16 @@ sub ExportParams {
if ($Shared!=1) {$Param=$Param."_".$RUNtmp;}
# Check if this parameter has been initialized befor. (should be)
$value = $All{"$Param"};
$error = $All{"$erradd$Param"};
$error = $All{"$erradd$Param"};
$line=join("\t",$line,$value,$error);
$PCount++;
}
elsif ($Shared==1) {
# The parameter is shared, take the value from the first run
$Param=$Param."_1";
$Param=$Param;
$value = $All{"$Param"};
$error = $All{"$erradd$Param"};
$error = $All{"$erradd$Param"};
$line=join("\t",$line,$value,$error);
}
$NP++;