LMU/musrfit
5
0
Fork 0
Code Issues 6 Pull Requests Actions Packages Projects Releases 4 Activity

Corrected regression in parameters export routine.

Browse Source
This commit is contained in:
salman
2011-09-27 08:23:32 +00:00
parent 1650271548
commit 4ba15e49f8
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/external/MuSRFitGUI/MSR.pm vendored
View File

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

6
src/external/MuSRFitGUI/devel/MSR.pm vendored
View File

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