include 'COMMON.GEO'
include 'COMMON.NAMES'
include 'COMMON.CONTROL'
- include 'COMMON.DISTFIT'
+ include 'COMMON.FRAG'
include 'COMMON.SETUP'
include 'COMMON.SBRIDGE'
character*3 seq,atom,res
include 'COMMON.GEO'
include 'COMMON.NAMES'
include 'COMMON.CONTROL'
- include 'COMMON.DISTFIT'
+ include 'COMMON.FRAG'
include 'COMMON.SETUP'
integer i,j,k,ibeg,ishift1,ires,iii,ires_old,ishift,ity,
& ishift_pdb,ires_ca