but dq_n is also multiplied by mu_n
do n = 1,nv
mu_n = d(2*n+49)
dtau = dt/d(2*n+50)
dq_n = mu_n * hvisc(dtau,exp_n)
gfac = gfac + dq_n
mu_0 = mu_0 + mu_n
! Update history and compute viscoelastic deviatoric stress
do i = 1,ntm
qi(i,n) = exp_n*qi(i,n) + dq_n*(ee(i) - en(i))
sig(i) = sig(i) + qi(i,n)
end do ! i
end do ! n