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
IFOS3D
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
7
Issues
7
List
Boards
Labels
Service Desk
Milestones
Operations
Operations
Incidents
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
IFOS3D
Commits
86ced852
Commit
86ced852
authored
Mar 23, 2016
by
Simone Butzer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Minor changes readhess
parent
70308326
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
5 deletions
+5
-5
src/ifos3d.c
src/ifos3d.c
+2
-2
src/readhess.c
src/readhess.c
+3
-3
No files found.
src/ifos3d.c
View file @
86ced852
...
...
@@ -643,7 +643,7 @@ CPML_coeff(K_x,alpha_prime_x,a_x,b_x,K_x_half,alpha_prime_x_half,a_x_half,b_x_ha
if
(
HESS
&&
READ_HESS
==
0
)
hloop
=
ntr_hess
;
if
(
HESS
&&
READ_HESS
==
1
)
readhess
(
NX
,
NY
,
NZ
,
hess1
,
hess2
,
hess3
,
finv
[
0
],
iteration
+
1
00
);
if
(
HESS
&&
READ_HESS
==
1
)
readhess
(
NX
,
NY
,
NZ
,
hess1
,
hess2
,
hess3
,
finv
[
0
],
iteration
+
1
-
it_group
);
MPI_Barrier
(
MPI_COMM_WORLD
);
if
(
METHOD
==
1
&&
EXTOBS
==
1
){
for
(
ishot
=
1
;
ishot
<=
nshots
;
ishot
++
){
...
...
@@ -977,7 +977,7 @@ CPML_coeff(K_x,alpha_prime_x,a_x,b_x,K_x_half,alpha_prime_x_half,a_x_half,b_x_ha
if
(
METHOD
){
/*output Hessian*/
if
(
HESS
&&
iteration
==
1
)
outgrad
(
NX
,
NY
,
NZ
,
hess1
,
hess2
,
hess3
,
finv
[
0
],
iteration
+
100
,
HESS_FILE
);
if
(
HESS
&&
iteration
==
1
)
outgrad
(
NX
,
NY
,
NZ
,
hess1
,
hess2
,
hess3
,
finv
[
0
],
iteration
,
HESS_FILE
);
/*output "raw" gradient*/
outgrad
(
NX
,
NY
,
NZ
,
grad1
,
grad2
,
grad3
,
finv
[
0
],
iteration
,
GRAD_FILE
);
...
...
src/readhess.c
View file @
86ced852
...
...
@@ -45,15 +45,15 @@ void readhess(int nx, int ny, int nz, float *** hess1, float *** hess2, float
fprintf
(
FP
,
"
\n
...reading hess information from hess-files...
\n
"
);
/*sprintf(filename,"hess/hess.vp");*/
sprintf
(
filename
,
"%s.vp_%4.2fHz_it%d
.%i.%i.%i
"
,
HESS_FILE
,
finv
,
iteration
,
POS
[
1
],
POS
[
2
],
POS
[
3
]);
sprintf
(
filename
,
"%s.vp_%4.2fHz_it%d"
,
HESS_FILE
,
finv
,
iteration
,
POS
[
1
],
POS
[
2
],
POS
[
3
]);
fp_vp
=
fopen
(
filename
,
"r"
);
if
(
fp_vp
==
NULL
)
err
(
" Could not open hess_vp ! "
);
sprintf
(
filename
,
"%s.vs_%4.2fHz_it%d
.%i.%i.%i
"
,
HESS_FILE
,
finv
,
iteration
,
POS
[
1
],
POS
[
2
],
POS
[
3
]);
sprintf
(
filename
,
"%s.vs_%4.2fHz_it%d"
,
HESS_FILE
,
finv
,
iteration
,
POS
[
1
],
POS
[
2
],
POS
[
3
]);
fp_vs
=
fopen
(
filename
,
"r"
);
if
(
fp_vs
==
NULL
)
err
(
" Could not open hess_vs! "
);
sprintf
(
filename
,
"%s.rho_%4.2fHz_it%d
.%i.%i.%i
"
,
HESS_FILE
,
finv
,
iteration
,
POS
[
1
],
POS
[
2
],
POS
[
3
]);
sprintf
(
filename
,
"%s.rho_%4.2fHz_it%d"
,
HESS_FILE
,
finv
,
iteration
,
POS
[
1
],
POS
[
2
],
POS
[
3
]);
fp_rho
=
fopen
(
filename
,
"r"
);
if
(
fp_rho
==
NULL
)
err
(
" Could not open hess_rho ! "
);
...
...
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