From d1aba8ccd47db010a97e848d7728f78b88d39f1f Mon Sep 17 00:00:00 2001 From: Sean Fischer Date: Thu, 4 Feb 2016 00:47:13 +0000 Subject: [PATCH] fixed input for reading first mode --- src/property/raman_input.F | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/property/raman_input.F b/src/property/raman_input.F index 1a9972d2b0..f7a09cc452 100644 --- a/src/property/raman_input.F +++ b/src/property/raman_input.F @@ -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)