source/wham/src-M-SAXS/iperm.f

   1       integer function iperm(ires,ipermut)
   2       implicit none
   3       include "DIMENSIONS"
   4       include "COMMON.CHAIN"
   5       integer ipermut,ires,ii,iii
   6       integer tperm
   7       ii=ireschain(ires)
   8       if (ii.eq.0) then
   9         iperm=ires
  10       else
  11         iii=tabpermchain(ii,ipermut)
  12         iperm=chain_border(1,iii)+ires-chain_border(1,ii)
  13       endif
  14       return
  15       end