1      logical function argos_prep_nonbon(iatm,natm,lbnd,mbnd,ibnd,nbnd,
2     + lang,mang,iang,nang,l3rd,m3rd,i3rd,n3rd,lnon,mnon,nnon)
3c
4c $Id$
5c
6      implicit none
7c
8      integer iatm,natm,mbnd,ibnd,nbnd,mang,iang,nang
9      integer m3rd,i3rd,n3rd,mnon,nnon
10      integer lbnd(4,mbnd),lang(5,mang),l3rd(2,m3rd),lnon(2,mnon)
11c
12      integer i,j,k
13c
14      do 1 i=iatm,natm-1
15      do 2 j=i+1,natm
16      do 3 k=ibnd,nbnd
17      if(lbnd(1,k).eq.i.and.lbnd(2,k).eq.j) goto 2
18    3 continue
19      do 4 k=iang,nang
20      if(lang(1,k).eq.i.and.lang(3,k).eq.j) goto 2
21    4 continue
22      do 5 k=i3rd,n3rd
23      if(l3rd(1,k).eq.i.and.l3rd(2,k).eq.j) goto 2
24    5 continue
25      do 6 k=1,nnon
26      if(lnon(1,k).eq.i.and.lnon(2,k).eq.j) goto 2
27    6 continue
28      nnon=nnon+1
29      if(nnon.gt.mnon) call md_abort('increase mnon',9999)
30      lnon(1,nnon)=i
31      lnon(2,nnon)=j
32    2 continue
33    1 continue
34c
35      argos_prep_nonbon=.true.
36      return
37      end
38