integer function iperm(ires,ipermut)
      implicit none
      include "DIMENSIONS"
      include "COMMON.CHAIN"
      integer ipermut,ires,ii,iii
      integer tperm
      ii=ireschain(ires)
      if (ii.eq.0) then
        iperm=ires
      else 
        iii=tabpermchain(ii,ipermut)
        iperm=chain_border(1,iii)+ires-chain_border(1,ii)
      endif
      return
      end