common /rotmat/ t(3,3,maxres),r(3,3,maxres),prod(3,3,maxres),
& rt(3,3,maxres)
common /refstruct/ cref(3,maxres2+2),
& crefjlee(3,maxres2+2),
& nsup,nstart_sup,nstart_seq,iprzes,
& chain_length(maxchain),npermchain,ireschain(maxres),
common /rotmat/ t(3,3,maxres),r(3,3,maxres),prod(3,3,maxres),
& rt(3,3,maxres)
common /refstruct/ cref(3,maxres2+2),
& crefjlee(3,maxres2+2),
& nsup,nstart_sup,nstart_seq,iprzes,
& chain_length(maxchain),npermchain,ireschain(maxres),