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

call to gap_parse adde to this routine

Browse source
This commit is contained in:
Tony Hess 1996-08-20 23:51:48 +00:00
parent 73107198aa
commit 17098a0e74
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/input/input_parse.F
View file

@ -1,5 +1,5 @@
logical function input_parse(rtdb)
C $Id: input_parse.F,v 1.26 1996-08-06 05:35:41 d3g681 Exp $
C $Id: input_parse.F,v 1.27 1996-08-20 23:51:48 d3e863 Exp $
implicit none
integer rtdb ! [input]
#include "inp.fh"
@ -91,6 +91,8 @@ c
call prop_input(rtdb)
else if (inp_compare(.false.,test,'speech')) then
call speech_input(rtdb)
else if (inp_compare(.false.,test,'gapss')) then
call gap_parse(rtdb)
c
c INSERT NEW ELSE IF CLAUSES HERE
c