anchor.diff:         x(i) = AtB(i)
        enddo
        
  +     double precision :: factor, resold
  +     factor = 1.d0
  +     resold = huge(1.d0)
        do k=0,100000
          !$OMP PARALLEL default(shared) private(cx, i, j, a_col)
          
  
positive.code:        endif
         f = psi_non_ref_coef(i,s) / rho_mrcc(i,s)
         ! Avoid numerical instabilities
         f = min(f,10.d0)
         f = max(f,-10.d0)
         norm = norm + f*f *rho_mrcc(i,s)*rho_mrcc(i,s)
         rho_mrcc(i,s) = f
       enddo
  
negative.code:          do i=col_shortcut(a_col), col_shortcut(a_col) + N_col(a_col) - 1
             cx = cx + x(AtA_ind(i)) * AtA_val(i)
           end do
           x_new(a_col) = AtB(a_col) + cx * factor
         end do
         !$OMP END DO
         
  