write (iout,'(f10.5)') (vvec(i),i=iposc,ind)
#endif
c write (iout,*) "chain",i," ind",ind," n",n
call fivediagmult(n,DMfric(iposc),DU1fric(iposc),
write (iout,'(f10.5)') (vvec(i),i=iposc,ind)
#endif
c write (iout,*) "chain",i," ind",ind," n",n
call fivediagmult(n,DMfric(iposc),DU1fric(iposc),