Fix testing facility in PSB_X_PDE3D

3 years ago · 941b629b43
parent 4bcc6cae19
commit 941b629b43
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()