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

Bug fix

Browse source
This commit is contained in:
Tjerk Straatsma 2000-01-19 21:30:58 +00:00
parent 91203c4a0e
commit b62df63316
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/prepar/pre_rdrst.F
View file

@ -4,7 +4,7 @@
+ isar,xs,vs,msa,nsa,
+ inoe,dnoe,mnoe,noe,msm,nsm)
c
c $Id: pre_rdrst.F,v 1.9 1999-07-26 17:37:35 d3j191 Exp $
c $Id: pre_rdrst.F,v 1.10 2000-01-19 21:30:58 d3j191 Exp $
c
implicit none
c
@ -179,7 +179,7 @@ c
+ isar,xs,vs,msa,nsa,
+ inoe,dnoe,mnoe,noe,msm,nsm)
c
c $Id: pre_rdrst.F,v 1.9 1999-07-26 17:37:35 d3j191 Exp $
c $Id: pre_rdrst.F,v 1.10 2000-01-19 21:30:58 d3j191 Exp $
c
implicit none
c
@ -258,13 +258,11 @@ c
1007 format(i1,1x,3f13.8)
1 continue
endif
c print*,nwmc,nwm
do 2 i=nwmc+1,nwm
do 2 i=1,nwm-nwmc
read(lfnrst,1006) ((xw(k,j,i),k=1,3),(vw(k,j,i),k=1,3),j=1,nwa)
read(lfnrst,1007) iwmr(i),(rdummy,k=1,3)
2 continue
endif
c print*,nsa
if(nsa.gt.0) then
read(lfnrst,1008)
+ (isar(i),(xs(k,i),k=1,3),(vs(k,i),k=1,3),i=1,nsa)