关于openmp加速DO循环，求大神帮忙看看有没有更优方案

进行了简单的加速，求问这个还有没有更优的方案

!$OMP parallel do default(none) shared(Num_side,SparseValue,X,b) private(i,ctmp)
  do i=1,Num_side
    ctmp=0
    do j=1,Num_side
      ctmp=ctmp+SparseValue(i,j)*X(j)
    enddo
    b(i)=ctmp
  enddo
!$OMP end parallel do 

https://blog.csdn.net/scudz/article/details/43113057