Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
O
OpenSource
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package Registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Jan Willem Thorbecke
OpenSource
Commits
8fa4dffb
Commit
8fa4dffb
authored
5 years ago
by
JanThorbecke
Browse files
Options
Downloads
Patches
Plain Diff
writeDataIter3D
parent
9b74cdec
No related branches found
Branches containing commit
No related tags found
Tags containing commit
No related merge requests found
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
marchenko3D/marchenko3D.c
+25
-6
25 additions, 6 deletions
marchenko3D/marchenko3D.c
marchenko3D/writeDataIter3D.c
+28
-30
28 additions, 30 deletions
marchenko3D/writeDataIter3D.c
with
53 additions
and
36 deletions
marchenko3D/marchenko3D.c
+
25
−
6
View file @
8fa4dffb
...
...
@@ -68,8 +68,7 @@ void synthesis3D(complex *Refl, complex *Fop, float *Top, float *iRN, long nx, l
float
dx
,
float
dy
,
long
ntfft
,
long
nw
,
long
nw_low
,
long
nw_high
,
long
mode
,
long
reci
,
long
nshots
,
long
nxsrc
,
long
nysrc
,
long
*
ixpos
,
long
*
iypos
,
long
npos
,
double
*
tfft
,
long
*
isxcount
,
long
*
reci_xsrc
,
long
*
reci_xrcv
,
float
*
ixmask
,
long
verbose
);
long
writeDataIter3D
(
char
*
file_iter
,
float
*
data
,
segy
*
hdrs
,
long
n1
,
long
n2
,
long
n3
,
float
d2
,
float
f2
,
long
n2out
,
long
Nfoc
,
float
*
xsyn
,
float
*
ysyn
,
float
*
zsyn
,
long
*
ixpos
,
int
*
iypos
,
long
npos
,
long
iter
);
long
writeDataIter3D
(
char
*
file_iter
,
float
*
data
,
segy
*
hdrs
,
long
n1
,
long
n2
,
long
n3
,
long
Nfoc
,
float
*
xsyn
,
float
*
ysyn
,
float
*
zsyn
,
long
*
ixpos
,
int
*
iypos
,
long
npos
,
long
t0shift
,
long
iter
);
void
imaging3D
(
float
*
Image
,
float
*
Gmin
,
float
*
f1plus
,
long
nx
,
long
ny
,
long
nt
,
float
dx
,
float
dy
,
float
dt
,
long
Nfoc
,
long
verbose
);
...
...
@@ -174,7 +173,7 @@ int main (int argc, char **argv)
char
*
file_tinv
,
*
file_shot
,
*
file_green
,
*
file_iter
,
*
file_imag
,
*
file_homg
,
*
file_ampscl
;
char
*
file_f1plus
,
*
file_f1min
,
*
file_gmin
,
*
file_gplus
,
*
file_f2
,
*
file_pmin
,
*
file_inp
;
char
*
file_ray
,
*
file_amp
,
*
file_wav
;
segy
*
hdrs_out
,
*
hdrs_Nfoc
;
segy
*
hdrs_out
,
*
hdrs_Nfoc
,
*
hdrs_iter
;
initargs
(
argc
,
argv
);
requestdoc
(
1
);
...
...
@@ -599,6 +598,27 @@ int main (int argc, char **argv)
hdrs_out
[
k
*
n2
+
i
].
tracl
=
k
*
n2
+
i
+
1
;
}
}
if
(
file_iter
!=
NULL
)
{
hdrs_iter
=
(
segy
*
)
calloc
(
npos
,
sizeof
(
segy
));
if
(
hdrs_iter
==
NULL
)
verr
(
"allocation for hdrs_iter"
);
for
(
i
=
0
;
i
<
npos
;
i
++
)
{
ix
=
ixpos
[
i
];
iy
=
iypos
[
i
];
hdrs_out
[
i
].
ns
=
n1
;
hdrs_out
[
i
].
trid
=
1
;
hdrs_out
[
i
].
dt
=
dt
*
1000000
;
hdrs_out
[
i
].
f1
=
f1
;
hdrs_out
[
i
].
f2
=
f2
;
hdrs_out
[
i
].
d1
=
d1
;
hdrs_out
[
i
].
d2
=
d2
;
hdrs_out
[
i
].
trwf
=
npos
;
hdrs_out
[
i
].
scalco
=
-
1000
;
hdrs_out
[
i
].
gx
=
NINT
(
1000
*
(
f2
+
ix
*
d2
));
hdrs_out
[
i
].
gy
=
NINT
(
1000
*
(
f3
+
iy
*
d3
));
hdrs_out
[
i
].
scalel
=
-
1000
;
hdrs_out
[
i
].
tracl
=
i
+
1
;
}
t1
=
wallclock_time
();
tread
=
t1
-
t0
;
...
...
@@ -636,11 +656,10 @@ int main (int argc, char **argv)
t3
=
wallclock_time
();
tsyn
+=
t3
-
t2
;
/* ToDo
if
(
file_iter
!=
NULL
)
{
writeDataIter3D(file_iter, iRN, hdrs_
out
, ntfft, nxs, nys,
d2, f2, n2out, n3out,
Nfoc, xsyn,ysyn,
zsyn, ixpos,
npos
, iter);
writeDataIter3D
(
file_iter
,
iRN
,
hdrs_
iter
,
ntfft
,
nxs
,
nys
,
Nfoc
,
xsyn
,
ysyn
,
zsyn
,
ixpos
,
iypos
,
npos
,
t0shift
,
iter
);
}
*/
/* N_k(x,t) = -N_(k-1)(x,-t) */
/* p0^-(x,t) += iRN = (R * T_d^inv)(t) */
for
(
l
=
0
;
l
<
Nfoc
;
l
++
)
{
...
...
This diff is collapsed.
Click to expand it.
marchenko3D/writeDataIter3D.c
+
28
−
30
View file @
8fa4dffb
...
...
@@ -16,11 +16,11 @@
void
name_ext
(
char
*
filename
,
char
*
extension
);
long
writeDataIter3D
(
char
*
file_iter
,
float
*
data
,
segy
*
hdrs
,
long
n1
,
long
n2
,
long
n3
,
float
d2
,
float
f2
,
long
Nfoc
,
float
*
xsyn
,
float
*
ysyn
,
float
*
zsyn
,
long
*
ixpos
,
int
*
iypos
,
long
npos
,
long
t0shift
,
long
iter
)
long
writeDataIter3D
(
char
*
file_iter
,
float
*
data
,
segy
*
hdrs
,
long
n1
,
long
n2
,
long
n3
,
long
Nfoc
,
float
*
xsyn
,
float
*
ysyn
,
float
*
zsyn
,
long
*
ixpos
,
int
*
iypos
,
long
npos
,
long
t0shift
,
long
iter
)
{
FILE
*
fp_iter
;
size_t
nwrite
;
int
i
,
l
,
j
,
ret
,
tracf
,
size
,
ix
;
int
i
,
l
,
j
,
ip
,
ret
,
tracf
,
size
,
ix
,
iy
;
char
number
[
16
],
filename
[
1024
];
float
*
trace
;
...
...
@@ -30,41 +30,39 @@ long writeDataIter3D(char *file_iter, float *data, segy *hdrs, long n1, long n2,
name_ext
(
filename
,
number
);
fp_iter
=
fopen
(
filename
,
"w+"
);
if
(
fp_iter
==
NULL
)
verr
(
"error on creating output file %s"
,
filename
);
tracf
=
1
;
size
=
n1
*
n2
*
n3
;
for
(
l
=
0
;
l
<
Nfoc
;
l
++
)
{
for
(
k
=
0
;
k
<
n3
;
k
++
)
{
for
(
i
=
0
;
i
<
n2
;
i
++
)
{
ix
=
ixpos
[
i
];
/* select proper position */
hdrs
[
k
*
n2
+
i
].
fldr
=
l
+
1
;
hdrs
[
k
*
n2
+
i
].
sx
=
NINT
(
xsyn
[
l
]
*
1000
);
hdrs
[
k
*
n2
+
i
].
sy
=
NINT
(
ysyn
[
l
]
*
1000
);
hdrs
[
k
*
n2
+
i
].
offset
=
(
long
)
NINT
((
f2
+
i
*
d2
)
-
xsyn
[
l
]);
hdrs
[
k
*
n2
+
i
].
tracf
=
tracf
++
;
hdrs
[
k
*
n2
+
i
].
selev
=
NINT
(
zsyn
[
l
]
*
1000
);
hdrs
[
k
*
n2
+
i
].
sdepth
=
NINT
(
-
zsyn
[
l
]
*
1000
);
for
(
i
=
0
;
i
<
npos
;
i
++
)
{
ix
=
ixpos
[
ip
];
/* select proper position */
iy
=
iypos
[
ip
];
hdrs
[
i
].
fldr
=
l
+
1
;
hdrs
[
i
].
sx
=
NINT
(
xsyn
[
l
]
*
1000
);
hdrs
[
i
].
sy
=
NINT
(
ysyn
[
l
]
*
1000
);
hdrs
[
i
].
tracf
=
tracf
++
;
hdrs
[
i
].
selev
=
NINT
(
zsyn
[
l
]
*
1000
);
hdrs
[
i
].
sdepth
=
NINT
(
-
zsyn
[
l
]
*
1000
);
if
(
t0shift
)
{
/* rotate to get t=0 in the middle */
hdrs
[
k
*
n2
+
i
].
f1
=
-
n1
*
0
.
5
*
hdrs
[
k
*
n2
+
i
].
d1
;
for
(
j
=
0
;
j
<
n1
/
2
;
j
++
)
{
trace
[
n1
/
2
+
j
]
=
data
[
l
*
size
+
iy
*
n2
*
n2
+
ix
*
n1
+
j
];
/* rotate to get t=0 in the middle */
hdrs
[
i
].
f1
=
-
n1
*
0
.
5
*
hdrs
[
i
].
d1
;
for
(
j
=
0
;
j
<
n1
/
2
;
j
++
)
{
trace
[
n1
/
2
+
j
]
=
data
[
l
*
size
+
iy
*
n2
*
n1
+
ix
*
n1
+
j
];
}
for
(
j
=
n1
/
2
;
j
<
n1
;
j
++
)
{
trace
[
j
-
n1
/
2
]
=
data
[
l
*
size
+
iy
*
n2
*
n1
+
ix
*
n1
+
j
];
}
}
for
(
j
=
n1
/
2
;
j
<
n1
;
j
++
)
{
trace
[
j
-
n1
/
2
]
=
data
[
l
*
size
+
iy
*
n2
*
n2
+
ix
*
n1
+
j
];
}
}
else
{
hdrs
[
i
].
f1
=
0
.
0
;
memcpy
(
&
trace
[
0
],
&
data
[
l
*
size
+
iy
*
n2
*
n
2
+
ix
*
n1
],
n1
*
sizeof
(
float
));
memcpy
(
&
trace
[
0
],
&
data
[
l
*
size
+
iy
*
n2
*
n
1
+
ix
*
n1
],
n1
*
sizeof
(
float
));
}
nwrite
=
fwrite
(
&
hdrs
[
k
*
n2
+
i
],
1
,
TRCBYTES
,
fp_iter
);
assert
(
nwrite
==
TRCBYTES
);
nwrite
=
fwrite
(
trace
,
sizeof
(
float
),
n1
,
fp_iter
);
assert
(
nwrite
==
n1
);
}
}
nwrite
=
fwrite
(
&
hdrs
[
i
],
1
,
TRCBYTES
,
fp_iter
);
assert
(
nwrite
==
TRCBYTES
);
nwrite
=
fwrite
(
trace
,
sizeof
(
float
),
n1
,
fp_iter
);
assert
(
nwrite
==
n1
);
ip
++
;
}
}
ret
=
fclose
(
fp_iter
);
if
(
ret
<
0
)
verr
(
"error on writing output file."
);
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment