Put renum under template. New interface/implementation.

4 years ago · d33d824aed
parent 335ececa01
commit d33d824aed
11 changed files with 8 additions and 4 deletions
--- a/tests/fileread/amg_cf_sample.f90
+++ b/tests/fileread/amg_cf_sample.f90
@ -154,7 +154,8 @@ program amg_cf_sample
  real(psb_dpk_)     :: t1, t2, tprec, thier, tslv
  real(psb_spk_)     :: resmx, resmxp, xdiffn2, xdiffni, xni, xn2
  integer(psb_ipk_)  :: nrhs, nv
-  integer(psb_ipk_), allocatable :: ivg(:), ipv(:), perm(:)
+  integer(psb_ipk_), allocatable :: ivg(:), ipv(:)
+  integer(psb_lpk_), allocatable :: perm(:)
  logical   :: have_guess=.false., have_ref=.false.

  call psb_init(ctxt)
--- a/tests/fileread/amg_df_sample.f90
+++ b/tests/fileread/amg_df_sample.f90
@ -154,7 +154,8 @@ program amg_df_sample
  real(psb_dpk_)     :: t1, t2, tprec, thier, tslv
  real(psb_dpk_)     :: resmx, resmxp, xdiffn2, xdiffni, xni, xn2
  integer(psb_ipk_)  :: nrhs, nv
-  integer(psb_ipk_), allocatable :: ivg(:), ipv(:), perm(:)
+  integer(psb_ipk_), allocatable :: ivg(:), ipv(:)
+  integer(psb_lpk_), allocatable :: perm(:)
  logical   :: have_guess=.false., have_ref=.false.

  call psb_init(ctxt)
--- a/tests/fileread/amg_sf_sample.f90
+++ b/tests/fileread/amg_sf_sample.f90
@ -154,7 +154,8 @@ program amg_sf_sample
  real(psb_dpk_)     :: t1, t2, tprec, thier, tslv
  real(psb_spk_)     :: resmx, resmxp, xdiffn2, xdiffni, xni, xn2
  integer(psb_ipk_)  :: nrhs, nv
-  integer(psb_ipk_), allocatable :: ivg(:), ipv(:), perm(:)
+  integer(psb_ipk_), allocatable :: ivg(:), ipv(:)
+  integer(psb_lpk_), allocatable :: perm(:)
  logical   :: have_guess=.false., have_ref=.false.

  call psb_init(ctxt)
--- a/tests/fileread/amg_zf_sample.f90
+++ b/tests/fileread/amg_zf_sample.f90
@ -154,7 +154,8 @@ program amg_zf_sample
  real(psb_dpk_)     :: t1, t2, tprec, thier, tslv
  real(psb_dpk_)     :: resmx, resmxp, xdiffn2, xdiffni, xni, xn2
  integer(psb_ipk_)  :: nrhs, nv
-  integer(psb_ipk_), allocatable :: ivg(:), ipv(:), perm(:)
+  integer(psb_ipk_), allocatable :: ivg(:), ipv(:)
+  integer(psb_lpk_), allocatable :: perm(:)
  logical   :: have_guess=.false., have_ref=.false.

  call psb_init(ctxt)
--- a/tests/fileread/runs/amg_cfs.inp
+++ b/tests/fileread/runs/amg_cfs.inp
--- a/tests/fileread/runs/amg_dfs.inp
+++ b/tests/fileread/runs/amg_dfs.inp
--- a/tests/fileread/runs/amg_mat.mtx
+++ b/tests/fileread/runs/amg_mat.mtx
--- a/tests/fileread/runs/amg_rhs.mtx
+++ b/tests/fileread/runs/amg_rhs.mtx
--- a/tests/fileread/runs/amg_sfs.inp
+++ b/tests/fileread/runs/amg_sfs.inp
--- a/tests/fileread/runs/amg_sol.mtx
+++ b/tests/fileread/runs/amg_sol.mtx
--- a/tests/fileread/runs/amg_zfs.inp
+++ b/tests/fileread/runs/amg_zfs.inp