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

backing off commit 58800d4f3b

Browse source
This commit is contained in:
edoapra 2022-12-14 18:06:11 -08:00
parent dc722cb196
commit bbd835402d
No known key found for this signature in database
GPG key ID: 472C4EBB4F3AEDFA
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/basis/bas_input.F
View file

@ -1135,11 +1135,13 @@ c Now read the basis for this magical atom type in using
c the given tag
c
10 if (.not. inp_a(field)) field=' '
#ifdef IGNORE_HEH
c
c ignore spherical vs cartesian from bse for He/H
c since they do assign spherical when the other elements are cartesian
c
if (.not.inp_compare(.false., 'h', string(1:1))) then
#endif
if(read_sphere) then
if (inp_compare(.false., 'spherical', field)) then
if (.not. bas_set_spherical(basis, .true.))
@ -1147,7 +1149,9 @@ c
& (' bas_set_spherical failed ',911, BASIS_ERR)
endif
endif
#ifdef IGNORE_HEH
endif
#endif
if (.not. inp_read()) call errquit
$ ('bas_tag_lib: premature EOF', 0, INPUT_ERR)
c