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

HvD: Gfortran seemed to have trouble understanding the logical

Browse source 
expressions involving character strings. I have introduced some
brackets to make the meaning explicit which seems to have fixed
the problem.
This commit is contained in:
Huub Van Dam 2011-05-16 21:53:52 +00:00
parent 6bcdd810d9
commit 434a43dd4a
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/prepar/pre_merge.F
View file

@ -84,15 +84,15 @@ c ATOM
c
if(card(1:4).eq.'ATOM') then
if(card(18:20).eq.namslv) lslvnt=.true.
if(card(17:17).ne.' '.and.
+ card(17:17).ne.altloc.and.altloc.ne.'*') goto 1
if((card(17:17).ne.' ').and.
+ (card(17:17).ne.altloc).and.(altloc.ne.'*')) goto 1
if(.not.lslvnt) natm=natm+1
if(lrgmrg) then
read(card(22:26),1003) i
1003 format(i5)
else
if(card(22:22).ne.' '.and.
+ card(22:22).ne.chain.and.chain.ne.'*') goto 1
if((card(22:22).ne.' ').and.
+ (card(22:22).ne.chain).and.(chain.ne.'*')) goto 1
read(card(23:26),1013) i
1013 format(i4)
endif