Make spins work in OpenMP from either par or serial

This commit is contained in:
sfilippone
2023-06-02 11:07:23 +02:00
parent db0e4db507
commit 347352fe1e
5 changed files with 445 additions and 44 deletions
-1
View File
@@ -737,7 +737,6 @@ program psb_d_pde3d
!
! allocate and fill in the coefficient matrix, rhs and initial guess
!
call psb_cd_set_large_threshold(100_psb_lpk_)
call psb_barrier(ctxt)
t1 = psb_wtime()
call psb_gen_pde3d(ctxt,idim,a,bv,xxv,desc_a,afmt,info,partition=ipart)