Corrected regression in parameters export routine.
This commit is contained in:
6
src/external/MuSRFitGUI/MSR.pm
vendored
6
src/external/MuSRFitGUI/MSR.pm
vendored
@ -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++;
|
||||
|
6
src/external/MuSRFitGUI/devel/MSR.pm
vendored
6
src/external/MuSRFitGUI/devel/MSR.pm
vendored
@ -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++;
|
||||
|
Reference in New Issue
Block a user