进行了简单的加速,求问这个还有没有更优的方案
!$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
进行了简单的加速,求问这个还有没有更优的方案
!$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