Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
IFOS2D
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
4
Issues
4
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Environments
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
GPIAG-Software
IFOS2D
Commits
4399e0af
Commit
4399e0af
authored
Apr 07, 2016
by
niklas.thiel
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
further cleanup
parent
0803b755
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
25 deletions
+1
-25
src/pup.c
src/pup.c
+1
-25
No files found.
src/pup.c
View file @
4399e0af
...
...
@@ -50,21 +50,6 @@ void pup(float **data_p, float **data_vy, FILE *fp, int ntr_glob, int **recpos,
nx_pot
=
(
int
)(
pow
(
2
,(
ceil
(
log
(
ntr_glob
*
2
)
/
log
(
2
)))));
ny_pot
=
(
int
)(
pow
(
2
,(
ceil
(
log
(
ns
*
2
)
/
log
(
2
)))));
/* test: write p-data to file*/
if
(
ishot
==
1
&&
iter
==
1
)
{
sprintf
(
pf1
,
"%s_data_p_.shot%i.it%i.bin"
,
SEIS_FILE
,
ishot
,
iter
);
file
=
fopen
(
pf1
,
"wb"
);
for
(
i
=
1
;
i
<=
ntr_glob
;
i
++
)
for
(
j
=
1
;
j
<=
ns
;
j
++
)
fwrite
(
&
data_p
[
i
][
j
],
sizeof
(
float
),
1
,
file
);
fclose
(
file
);
}
/* test: write vz-data to file*/
if
(
ishot
==
1
&&
iter
==
1
)
{
sprintf
(
pf1
,
"%s_data_vz_.shot%i.it%i.bin"
,
SEIS_FILE
,
ishot
,
iter
);
file
=
fopen
(
pf1
,
"wb"
);
for
(
i
=
1
;
i
<=
ntr_glob
;
i
++
)
for
(
j
=
1
;
j
<=
ns
;
j
++
)
fwrite
(
&
data_vy
[
i
][
j
],
sizeof
(
float
),
1
,
file
);
fclose
(
file
);
}
/* temporary array */
filtwk
=
matrix
(
1
,
ny_pot
/
2
,
1
,
nx_pot
/
2
);
...
...
@@ -189,16 +174,6 @@ void pup(float **data_p, float **data_vy, FILE *fp, int ntr_glob, int **recpos,
/* reverse 2d fft */
fft2
(
data_pup
,
data_pupim
,
ny_pot
,
nx_pot
,
-
1
);
if
(
VERBOSE
)
fprintf
(
FP
,
"Write PUP data to file...
\n
"
);
/* write spectrum to file */
if
(
ishot
==
1
&&
iter
==
1
)
{
sprintf
(
pf2
,
"%s_data_pup.shot%i.it%i.bin"
,
SEIS_FILE
,
ishot
,
iter
);
file
=
fopen
(
pf2
,
"wb"
);
for
(
i
=
1
;
i
<=
nx_pot
;
i
++
)
for
(
j
=
1
;
j
<=
ny_pot
;
j
++
)
fwrite
(
&
data_pup
[
j
][
i
],
sizeof
(
float
),
1
,
file
);
fclose
(
file
);
}
if
(
VERBOSE
)
fprintf
(
FP
,
"Write PUP-data into p-data array...
\n
"
);
/* overwrite p data */
...
...
@@ -209,6 +184,7 @@ void pup(float **data_p, float **data_vy, FILE *fp, int ntr_glob, int **recpos,
}
/* save pup*/
if
(
VERBOSE
)
fprintf
(
FP
,
"Write PUP data to file...
\n
"
);
if
(
sw
==
1
){
sprintf
(
pf
,
"%s_pup.su.shot%i"
,
SEIS_FILE
,
ishot
);
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment