Lines Matching refs:isel
1 subroutine tomold(rout,isel,inum) argument
5 dimension isel(4)
7 call intcor(intc,rout,isel,inum)
16 subroutine setmon(isel,inum) argument
21 dimension isel(4)
25 call intcor(intc,rout,isel,inum)
28 idmon(1,ndm) = isel(1)
29 idmon(2,ndm) = isel(2)
41 subroutine stjmon(coupl,isel,inum) argument
45 dimension isel(4)
50 idmon(1,ndm) = isel(1)
51 idmon(2,ndm) = isel(2)
113 subroutine intcod(intc,rout,isel,inum,coo) argument
118 dimension v1(3),v2(3),v3(3),c12(3),c23(3),isel(4),coo(3,*)
125 v1(i) = coo(i,isel(1)) - coo(i,isel(2))
126 if (inum.ge.3) v2(i) = coo(i,isel(3)) - coo(i,isel(2))
127 if (inum.ge.4) v3(i) = coo(i,isel(4)) - coo(i,isel(3))
146 if (isel(i).lt.1.or.isel(i).gt.iatoms) goto 100
148 if (isel(i).eq.isel(j)) goto 100