From 5debf6cb00f448eef410bb87e06902dffb1d16a8 Mon Sep 17 00:00:00 2001
From: Jacques Grelet <jacques.grelet@ird.fr>
Date: Sat, 1 Nov 2014 00:07:45 +0000
Subject: [PATCH] bug correction from D. Diverres on headerForm.m coefficients
all coefficient was in single type instead double: corrected when coefficient
was read from tsg struct, precision was loose with num2str just add format
'%f' to have 6 decimal value = num2str(tsg.(var)(ii),'%f');
---
tsg_util/headerForm.m | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/tsg_util/headerForm.m b/tsg_util/headerForm.m
index 5e8e11e..35d3c1e 100644
--- a/tsg_util/headerForm.m
+++ b/tsg_util/headerForm.m
@@ -362,9 +362,9 @@ uiwait(hHeaderFig);
case 'char'
p_i.(key) = tsg.(key);
case 'byte'
- p_i.(key) = int8(str2num(tsg.(key)));
+ p_i.(key) = int8(str2double(tsg.(key)));
case 'integer'
- p_i.(key) = int16(str2num(tsg.(key)));
+ p_i.(key) = int16(str2double(tsg.(key)));
case 'float'
p_i.(key) = single(str2double(tsg.(key)));
case 'double'
@@ -388,7 +388,7 @@ uiwait(hHeaderFig);
% -------------------------------------------------------------
for kk = add_var
key = char(kk);
- tsg.(key) = single(str2double(get(data.(key), 'string')));
+ tsg.(key) = str2double(get(data.(key), 'string'));
p_i.(key) = tsg.(key);
end
@@ -409,9 +409,9 @@ uiwait(hHeaderFig);
tsg.(var)(ii) = NaN;
else
if strcmpi(key, 'DATE')
- tsg.(var)(ii) = single(datenumToJulian(datenum(s, 'yyyymmdd')));
+ tsg.(var)(ii) = double(datenumToJulian(datenum(s, 'yyyymmdd')));
else
- tsg.(var)(ii) = single(str2double(s));
+ tsg.(var)(ii) = double(str2double(s));
end
end
%p_i.(key) = tsg.(key);
@@ -661,7 +661,7 @@ uiwait(hHeaderFig);
elseif strcmpi(cle, padding('DATE', tsg.dim.COEF_CONV_SIZE))
value = datestr(julianToDatenum(tsg.(var)(ii)), 'yyyymmdd');
else
- value = num2str(tsg.(var)(ii));
+ value = num2str(tsg.(var)(ii),'%f');
end
% concate variable name with key: eg SSJT_CALCOEF_H
--
GitLab