! Variables corresponding to umbrella sampling with restraints on Q and
! angles
! Q on interresidue distances
      integer nfrag,npair,ifrag(2,50,maxprocs/20),
     & ipair(2,100,maxprocs/20),iset,mset(maxprocs/20),nset
       double precision eq_time,wfrag(50,maxprocs/20),
     & wpair(100,maxprocs/20),qfrag(50),qpair(100),
     & qinfrag(50,maxprocs/20),qinpair(100,maxprocs/20),
     & Ucdfrag,Ucdpair,dUdconst(3,0:MAXRES),Uconst,
     & dUdxconst(3,0:MAXRES),dqwol(3,0:MAXRES),dxqwol(3,0:MAXRES)
      common /qmeas/ qfrag,qpair,qinfrag,qinpair,wfrag,wpair,eq_time,
     & Ucdfrag,Ucdpair,dUdconst,dUdxconst,dqwol,dxqwol,Uconst,
     & iset,mset,nset,ifrag,ipair,npair,nfrag
! Local restraints
      double precision qloc(3,maxfrag_back),qin_back(3,maxfrag_back,
     & maxprocs/20),uconst_back,
     & utheta(maxfrag_back),ugamma(maxfrag_back),uscdiff(maxfrag_back),
     & dutheta(maxres),dugamma(maxres),duscdiff(3,maxres),
     & duscdiffx(3,maxres),wfrag_back(3,maxfrag_back,maxprocs/20)
      integer nfrag_back,ifrag_back(3,maxfrag_back,maxprocs/20)
      common /back_constr/ uconst_back,utheta,ugamma,uscdiff,
     & dutheta,dugamma,duscdiff,duscdiffx,
     & qin_back,qloc,wfrag_back,nfrag_back,ifrag_back