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

Remove dead code

Browse source
This commit is contained in:
Tjerk Straatsma 2000-03-29 20:54:50 +00:00
parent 595dbfd5f4
commit fb2ae62ea8
1 changed files with 1 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/prepar/pre_input.F
View file

@ -1,6 +1,6 @@
subroutine pre_input(irtdb)
c
c $Id: pre_input.F,v 1.41 2000-03-29 20:29:00 d3j191 Exp $
c $Id: pre_input.F,v 1.42 2000-03-29 20:54:50 d3j191 Exp $
c
implicit none
c
@ -971,12 +971,6 @@ c end
c ---
c
9 continue
c
cx if(needwt) then
cx write(68,7808)
cx 7808 format('wr_rst')
cx lwrcoo=.true.
cx endif
c
len=index(dir_s,' ')-1
if(len.gt.0.and.dir_s(len:len).ne.'/') dir_s(len+1:len+2)='/ '