Fix tests in X_PDE3D

2 years ago · f09767baca
parent d1def4ea17
commit f09767baca
2 changed files with 202 additions and 202 deletions
--- a/test/pargen/psb_d_pde3d.F90
+++ b/test/pargen/psb_d_pde3d.F90
@ -569,8 +569,9 @@ contains
    call psb_cdasb(desc_a,info,mold=imold)
    tcdasb = psb_wtime()-t1
    if (.false.) then 
      !
-    !  Add extra rows 
+      !  Add extra rows to test remote build.
      !
      block
        integer(psb_ipk_) :: ks, i
@ -673,8 +674,7 @@ contains
        end do
      end block
-
+    end if
    call psb_barrier(ctxt)
    t1 = psb_wtime()
--- a/test/pargen/psb_s_pde3d.F90
+++ b/test/pargen/psb_s_pde3d.F90
@ -569,8 +569,9 @@ contains
    call psb_cdasb(desc_a,info,mold=imold)
    tcdasb = psb_wtime()-t1
    if (.false.) then 
      !
-    !  Add extra rows 
+      !  Add extra rows to test remote build.
      !
      block
        integer(psb_ipk_) :: ks, i
@ -673,8 +674,7 @@ contains
        end do
      end block
-
+    end if
    call psb_barrier(ctxt)
    t1 = psb_wtime()