Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
GPIAG-Software
IFOS2D
Commits
c4bdb2df
Commit
c4bdb2df
authored
Apr 19, 2016
by
niklas.thiel
Browse files
added writing out of taper files to VERBOSE mode
parent
8b45a38f
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/taper_grad.c
View file @
c4bdb2df
...
...
@@ -504,11 +504,13 @@ void taper_grad(float ** waveconv,float ** taper_coeff, float **srcpos, int nsho
}
fclose
(
fp_taper
);
sprintf
(
modfile
,
"taper_coeff_file.bin"
);
writemod
(
modfile
,
taper_coeff
,
3
);
if
(
VERBOSE
==
1
)
{
sprintf
(
modfile
,
"taper_coeff_file.bin"
);
writemod
(
modfile
,
taper_coeff
,
3
);
MPI_Barrier
(
MPI_COMM_WORLD
);
if
(
MYID
==
0
)
mergemod
(
modfile
,
3
);
MPI_Barrier
(
MPI_COMM_WORLD
);
if
(
MYID
==
0
)
mergemod
(
modfile
,
3
);
}
}
}
\ No newline at end of file
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