create_su_struct.m 1.94 KB
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
function structname=create_su_struct();

% This function creates a matlab struct containing the 
% su header words as fields and an additional field 'trace'
% for the actual seismogram trace. 
%
% All fields are set to zero apart from
%    .trid=1	(seismic trace)
%    .scalel=1 
%    .scalco=1
%    .counit=1
%    .gain=1
%    .igc=1
%    .igi=1
%    .corr=1	(uncorrelated traces)	 


structname = struct('tracl',0,...
                    'tracr',0,...
		    'fldr',0,...
		    'tracf',0,...
		    'ep',0,...
		    'cdp',0,...
		    'cdpt',0,...
		    'trid',1,...
		    'nvs',0,...
		    'nhs',0,...
		    'duse',0,...
		    'offset',0,...
		    'gelev',0,...
		    'selev',0,...
		    'sdepth',0,...
		    'gdel',0,...
		    'sdel',0,...
		    'swdep',0,...
		    'gwdep',0,...
		    'scalel',1,...
		    'scalco',1,...
		    'sx',0,...
		    'sy',0,...
		    'gx',0,...
		    'gy',0,...
		    'counit',1,...
		    'wevel',0,...
		    'swevel',0,...
		    'sut',0,...
		    'gut',0,...
		    'sstat',0,...
		    'gstat',0,...
		    'tstat',0,...
		    'laga',0,...
		    'lagb',0,...
		    'delrt',0,...
		    'muts',0,...
		    'mute',0,...
		    'ns',0,...
		    'dt',0,...
		    'gain',1,...
		    'igc',1,...
		    'igi',1,...
		    'corr',1,...
		    'sfs',0,...
		    'sfe',0,...
		    'slen',0,...
		    'styp',0,...
		    'stas',0,...
		    'stae',0,...
		    'tatyp',0,...
		    'afilf',0,...
		    'afils',0,...
		    'nofilf',0,...
		    'nofils',0,...
		    'lcf',0,...
		    'hcf',0,...
		    'lcs',0,...
		    'hcs',0,...
		    'year',0,...
		    'day',0,...
		    'hour',0,...
		    'minute',0,...
		    'sec',0,...
		    'timbas',0,...
		    'trwf',0,...
		    'grnors',0,...
		    'grnofr',0,...
		    'grnlof',0,...
		    'gaps',0,...
		    'otrav',0,...
		    'd1',0,...
		    'f1',0,...
		    'd2',0,...
		    'f2',0,...
		    'ungpow',0,...
		    'unscale',0,...
		    'ntr',0,...
		    'mark',0,...
		    'shortpad',0,...
		    'unass',0,...
		    'trace',0);