From 36f378caf8f50f7f831c69b0c17625a878067ee8 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 16 Oct 2014 14:23:36 +0000 Subject: [PATCH] psblas3: base/modules/psb_base_mat_mod.f90 Minor fix for intent in sync() methods. --- base/modules/psb_base_mat_mod.f90 | 2 ++ test/fileread/runs/dfs.inp | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/base/modules/psb_base_mat_mod.f90 b/base/modules/psb_base_mat_mod.f90 index adf1e64c..69d33ce8 100644 --- a/base/modules/psb_base_mat_mod.f90 +++ b/base/modules/psb_base_mat_mod.f90 @@ -204,6 +204,8 @@ module psb_base_mat_mod procedure, pass(a) :: transc_1mat => psb_base_transc_1mat procedure, pass(a) :: transc_2mat => psb_base_transc_2mat generic, public :: transc => transc_1mat, transc_2mat + + ! ! Sync: centerpiece of handling of external storage. ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and diff --git a/test/fileread/runs/dfs.inp b/test/fileread/runs/dfs.inp index 113e3a07..e41e95d6 100644 --- a/test/fileread/runs/dfs.inp +++ b/test/fileread/runs/dfs.inp @@ -1,5 +1,5 @@ 11 Number of inputs -kivap005.mtx This (and others) from: http://math.nist.gov/MatrixMarket/ or +matrix_0000_of_0001.mtx ! kivap005.mtx This (and others) from: http://math.nist.gov/MatrixMarket/ or NONE sherman3_b.mtx http://www.cise.ufl.edu/research/sparse/matrices/index.html MM File format: MM: Matrix Market HB: Harwell-Boeing. BiCG Iterative method: BiCGSTAB CGS RGMRES BiCGSTABL BICG CG @@ -9,5 +9,5 @@ CSR Storage format CSR COO JAD 2 ISTOPC 02100 ITMAX -1 ITRACE -002 IRST (restart for RGMRES and BiCGSTABL) +002 IRST (restart for RGMRES and 1.d-6 EPS