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

Update cons.F

Browse source 
set energy=0 if task:energy not it rtdb....EJB
This commit is contained in:
Eric Bylaska 2017-11-28 18:38:32 -08:00 • committed by GitHub
parent 8932ff716e
commit b2bc8bb17e
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cons/cons.F
View file

@ -850,7 +850,7 @@ c
end if
if (.not. rtdb_get(rtdb,'task:energy', mt_dbl, 1, energy))
$ call errquit('driver: could not get energy',0, RTDB_ERR)
$ energy = 0.0d0
if(master) then
write(luout,'(A39,3X,F12.6)')