comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-29 06:35:39 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

fixed parallel printing...EJB

Browse source
This commit is contained in:
Eric Bylaska 2018-08-08 07:45:07 -07:00
parent a7d67f3b3f
commit 080ea66ca2
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/stepper/stpr_gh_at.F
View file

@ -87,9 +87,11 @@ c Check if single differencing is requested
& numerical_single)) then
numerical_single = .false.
else
if (oprint) then
write (6,*)
write (6,*) 'Single differencing is requested'
write (6,*)
end if
endif
c
call util_print_get_level(print_level) ! Save for later
@ -215,7 +217,7 @@ c set no xyz options
call ga_sync()
ignore_status = rtdb_parallel(.false.)
if ( whoiam .eq. master ) then
if (o_directions) then
if ((o_directions).and.(oprint)) then
if (no_x) write(luout,*)' stpr_gen_hess_at: no X steps taken'
if (no_y) write(luout,*)' stpr_gen_hess_at: no Y steps taken'
if (no_z) write(luout,*)' stpr_gen_hess_at: no Z steps taken'