common /qmeas/ qfrag,qpair,qinfrag,qinpair,wfrag,wpair,eq_time,
& Ucdfrag,Ucdpair,dUdconst,dUdxconst,dqwol,dxqwol,Uconst,
& iset,mset,nset,usampl,ifrag,ipair,npair,nfrag
common /qmeas/ qfrag,qpair,qinfrag,qinpair,wfrag,wpair,eq_time,
& Ucdfrag,Ucdpair,dUdconst,dUdxconst,dqwol,dxqwol,Uconst,
& iset,mset,nset,usampl,ifrag,ipair,npair,nfrag