if(usampl.and.totT.gt.eq_time) then
write(line2,'(i5,2f9.4,300f7.4)') iset,uconst,uconst_back,
& (qfrag(ii1),ii1=1,nfrag),(qpair(ii2),ii2=1,npair),
& (utheta(i),ugamma(i),uscdiff(i),i=1,nfrag_back)
write(format2,'(a1,i3.3)') "a",23+7*nfrag+7*npair
& +21*nfrag_back
if(usampl.and.totT.gt.eq_time) then
write(line2,'(i5,2f9.4,300f7.4)') iset,uconst,uconst_back,
& (qfrag(ii1),ii1=1,nfrag),(qpair(ii2),ii2=1,npair),
& (utheta(i),ugamma(i),uscdiff(i),i=1,nfrag_back)
write(format2,'(a1,i3.3)') "a",23+7*nfrag+7*npair
& +21*nfrag_back