Fix tests in X_PDE3D

master
Salvatore Filippone 2 years ago
parent d1def4ea17
commit f09767baca

@ -569,8 +569,9 @@ contains
call psb_cdasb(desc_a,info,mold=imold) call psb_cdasb(desc_a,info,mold=imold)
tcdasb = psb_wtime()-t1 tcdasb = psb_wtime()-t1
if (.false.) then
! !
! Add extra rows ! Add extra rows to test remote build.
! !
block block
integer(psb_ipk_) :: ks, i integer(psb_ipk_) :: ks, i
@ -673,8 +674,7 @@ contains
end do end do
end block end block
end if
call psb_barrier(ctxt) call psb_barrier(ctxt)
t1 = psb_wtime() t1 = psb_wtime()

@ -569,8 +569,9 @@ contains
call psb_cdasb(desc_a,info,mold=imold) call psb_cdasb(desc_a,info,mold=imold)
tcdasb = psb_wtime()-t1 tcdasb = psb_wtime()-t1
if (.false.) then
! !
! Add extra rows ! Add extra rows to test remote build.
! !
block block
integer(psb_ipk_) :: ks, i integer(psb_ipk_) :: ks, i
@ -673,8 +674,7 @@ contains
end do end do
end block end block
end if
call psb_barrier(ctxt) call psb_barrier(ctxt)
t1 = psb_wtime() t1 = psb_wtime()

Loading…
Cancel
Save