& idomain_tmp
i_tmp=i_tmp+nnt-1
idomain(k,i_tmp)=idomain_tmp
- rescore(k,i_tmp)=0.5d0*(rescore_tmp+0.5d0)
- rescore2(k,i_tmp)=0.5d0*(rescore2_tmp+0.5d0)
+ rescore(k,i_tmp)=rescore_tmp
+ rescore2(k,i_tmp)=rescore2_tmp
else
idomain(k,irec)=1
read (ientin,*,end=1401) rescore_tmp