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 input for reading first mode

Browse source
This commit is contained in:
Sean Fischer 2016-02-04 00:47:13 +00:00
parent d02dd98953
commit d1aba8ccd4
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/property/raman_input.F
View file

@ -135,6 +135,8 @@ c --- determine first normal mode to use ---
c --- not setting default here, it will be set later after
c frequency calculation has been done so we know if we have
c a linear molecule or not
if (.not. rtdb_put(rtdb,'raman:first',mt_int,1,first))
$ call errquit(pname//'rtdb put failed',0, RTDB_ERR)
else if(inp_compare(.false.,'last',test)) then
if(.not. inp_i(last)) ! FA-06-16-12 bug-fixed (BEF: first AFT: last)
$ call errquit(pname//'missing value for last',911, INPUT_ERR)