c write (iout,*) "distal = ",distal
c write (iout,*) "odl(",k,ii,") =",odl(k,ii)
c write(iout,*) "rescore(",k,i,") =",rescore(k,i),
c write (iout,*) "distal = ",distal
c write (iout,*) "odl(",k,ii,") =",odl(k,ii)
c write(iout,*) "rescore(",k,i,") =",rescore(k,i),