2
c $Id: list_excld.f 19707 2010-10-29 17:59:36Z d3y133 $
5
SUBROUTINE list_excld(ntype)
14
integer i,j,iexcl,nelist,exclpair,nexcl
17
dimension iexcl(mxtype),exclpair(mxtype,mxtype)
29
if(typmol(i).eq.typmol(j))then
32
if(iexcl(i).gt.mxtype)then
33
write(output,"(/,1x,'mxtype exceeded')")
36
exclpair(i,iexcl(i))=j-i
57
if(nelist.gt.(mxatms*mxelist))then
58
write(output,"(/,1x,'mxatms*mxelist exceeded')")
61
if((nelist-epoint(i)+1).gt.mxnlist)then
62
write(output,"(/,1x,'mxnlist exceeded')")
66
elist(nelist)=i+exclpair(eatm,j)
74
epoint(natms)=nelist+1