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