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

bail out when zora is not followed by on/off

Browse source
This commit is contained in:
edoapra 2023-03-24 19:07:54 -07:00
parent 44ff94616a
commit ad7a9cf0b1
No known key found for this signature in database
GPG key ID: E6E392F4E14FB937
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/NWints/rel/zora_input.F
View file

@ -29,15 +29,16 @@ c Preliminaries
do_zora = .false.
c
c Read input data beyond zora; store in rtdb.
10 if (inp_a(test)) then
if (inp_a(test)) then
if (inp_compare(.false.,'on',test)) then
do_zora = .true.
do_zora = .true.
else if (inp_compare(.false.,'off',test)) then
do_zora = .false.
else
call errquit('zora_input: unknown directive',0, UNKNOWN_ERR)
endif
goto 10
else
call errquit('specify ZORA ON or OFF',0, UNKNOWN_ERR)
endif
c
c Put zora parameters in rtdb