Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
function error = concatSample( hMainFig, data )
%
% Function that concatenates the sample structure data
% to the 'tsg' structure with _EXT fields
%
% input
% hMainFig .... handle to the tsgqc main program
% data ........ structure of _EXT data to trasfer to the tsg structure
%
% output
%
% return ...... 1 data structure transfered to tsg structure
% -1 nothing has been done
error = 1;
tsg = getappdata( hMainFig, 'tsg_data' );
if isempty( tsg.DAYD_EXT )
tsg.DAYD_EXT = data.DAYD_EXT;
tsg.DATE_EXT = data.DATE_EXT;
tsg.LATX_EXT = data.LATX_EXT;
tsg.LONX_EXT = data.LONX_EXT;
tsg.SSPS_EXT = data.SSPS_EXT;
tsg.SSPS_EXT_QC = int8(data.SSPS_EXT_QC);
tsg.SSPS_EXT_TYPE = char(data.SSPS_EXT_TYPE);
tsg.SSPS_EXT_ANALDATE = char(data.SSPS_EXT_ANALDATE);
tsg.SSTP_EXT = data.SSTP_EXT;
tsg.SSTP_EXT_QC = int8(data.SSTP_EXT_QC);
tsg.SSTP_EXT_TYPE = char(data.SSTP_EXT_TYPE);
else
errmsg = {'Samples already loaded '; ' '; ...
'Do you want to replace the existing samples ?'};
button = questdlg(errmsg, 'Sample','Yes', 'No', 'No');
switch button
case 'Yes'
tsg.DAYD_EXT = data.DAYD_EXT;
tsg.DATE_EXT = data.DATE_EXT;
tsg.LATX_EXT = data.LATX_EXT;
tsg.LONX_EXT = data.LONX_EXT;
tsg.SSPS_EXT = data.SSPS_EXT;
tsg.SSPS_EXT_QC = int8(data.SSPS_EXT_QC);
tsg.SSPS_EXT_TYPE = char(data.SSPS_EXT_TYPE);
tsg.SSPS_EXT_ANALDATE = char(data.SSPS_EXT_ANALDATE);
tsg.SSTP_EXT = data.SSTP_EXT;
tsg.SSTP_EXT_QC = int8(data.SSTP_EXT_QC);
tsg.SSTP_EXT_TYPE = char(data.SSTP_EXT_TYPE);
case 'No'
errmsg = {'Samples already loaded '; ' '; ...
'Do you really want to concatenate this file with the existing samples ?'};
button2 = questdlg(errmsg, 'Sample','Yes', 'No', 'No');
switch button2
case 'No'
% Nothing is done
% ---------------
error = -1;
return;
otherwise
tsg.DAYD_EXT = [tsg.DAYD_EXT; data.DAYD_EXT];
tsg.DATE_EXT = [tsg.DATE_EXT; data.DATE_EXT];
tsg.LATX_EXT = [tsg.LATX_EXT; data.LATX_EXT];
tsg.LONX_EXT = [tsg.LONX_EXT; data.LONX_EXT];
tsg.SSPS_EXT = [tsg.SSPS_EXT; data.SSPS_EXT];
tsg.SSPS_EXT_QC = [tsg.SSPS_EXT_QC; int8(data.SSPS_EXT_QC)];
tsg.SSPS_EXT_TYPE = strvcat(tsg.SSPS_EXT_TYPE,...
char(data.SSPS_EXT_TYPE));
tsg.SSPS_EXT_ANALDATE = strvcat(tsg.SSPS_EXT_ANALDATE,...
char(data.SSPS_EXT_ANALDATE));
tsg.SSTP_EXT = [tsg.SSTP_EXT; data.SSTP_EXT];
tsg.SSTP_EXT_QC = [tsg.SSTP_EXT_QC; int8(data.SSTP_EXT_QC)];
tsg.SSTP_EXT_TYPE = strvcat(tsg.SSTP_EXT_TYPE, ...
char(data.SSTP_EXT_TYPE));
end
end
end
% Sort the struct tsg - increasing time.
% -----------------------------------------
if ~isempty(tsg.DAYD_EXT)
[tsg.DAYD_EXT, iOrder] = sort(tsg.DAYD_EXT);
tsg.DATE_EXT = tsg.DATE_EXT(iOrder,:);
tsg.LATX_EXT = tsg.LATX_EXT(iOrder);
tsg.LONX_EXT = tsg.LONX_EXT(iOrder);
tsg.SSPS_EXT = tsg.SSPS_EXT(iOrder);
tsg.SSPS_EXT_QC = tsg.SSPS_EXT_QC(iOrder);
tsg.SSPS_EXT_TYPE = tsg.SSPS_EXT_TYPE(iOrder,:);
tsg.SSPS_EXT_ANALDATE = tsg.SSPS_EXT_ANALDATE(iOrder,:);
tsg.SSTP_EXT = tsg.SSTP_EXT(iOrder);
tsg.SSTP_EXT_QC = tsg.SSTP_EXT_QC(iOrder);
tsg.SSTP_EXT_TYPE = tsg.SSTP_EXT_TYPE(iOrder,:);
end
% Save the data in the application GUI
% ------------------------------------
setappdata( hMainFig, 'tsg_data', tsg );
end