From cf267c12c82f8a8b3367f735a40011f6ccb52b17 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 23 Jul 2020 12:50:05 +0200 Subject: [PATCH] New METIS interface --- test/fileread/psb_cf_sample.f90 | 3 +-- test/fileread/psb_df_sample.f90 | 3 +-- test/fileread/psb_sf_sample.f90 | 3 +-- test/fileread/psb_zf_sample.f90 | 3 +-- 4 files changed, 4 insertions(+), 8 deletions(-) diff --git a/test/fileread/psb_cf_sample.f90 b/test/fileread/psb_cf_sample.f90 index 699c4347..d340c90d 100644 --- a/test/fileread/psb_cf_sample.f90 +++ b/test/fileread/psb_cf_sample.f90 @@ -58,7 +58,6 @@ program psb_cf_sample integer(psb_ipk_) :: ictxt, iam, np integer(psb_lpk_) :: lnp - ! solver paramters integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode,& & methd, istopc, irst @@ -182,7 +181,7 @@ program psb_cf_sample write(psb_out_unit,'(" ")') ! write(psb_err_unit,'("Build type: graph")') call aux_a%cscnv(info,type='csr') - lnp = np + lnp = np call build_mtpart(aux_a,lnp) endif diff --git a/test/fileread/psb_df_sample.f90 b/test/fileread/psb_df_sample.f90 index 8fbf8bc4..d0665723 100644 --- a/test/fileread/psb_df_sample.f90 +++ b/test/fileread/psb_df_sample.f90 @@ -58,7 +58,6 @@ program psb_df_sample integer(psb_ipk_) :: ictxt, iam, np integer(psb_lpk_) :: lnp - ! solver paramters integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode,& & methd, istopc, irst @@ -182,7 +181,7 @@ program psb_df_sample write(psb_out_unit,'(" ")') ! write(psb_err_unit,'("Build type: graph")') call aux_a%cscnv(info,type='csr') - lnp = np + lnp = np call build_mtpart(aux_a,lnp) endif diff --git a/test/fileread/psb_sf_sample.f90 b/test/fileread/psb_sf_sample.f90 index 71dd646b..2801c178 100644 --- a/test/fileread/psb_sf_sample.f90 +++ b/test/fileread/psb_sf_sample.f90 @@ -58,7 +58,6 @@ program psb_sf_sample integer(psb_ipk_) :: ictxt, iam, np integer(psb_lpk_) :: lnp - ! solver paramters integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode,& & methd, istopc, irst @@ -182,7 +181,7 @@ program psb_sf_sample write(psb_out_unit,'(" ")') ! write(psb_err_unit,'("Build type: graph")') call aux_a%cscnv(info,type='csr') - lnp = np + lnp = np call build_mtpart(aux_a,lnp) endif diff --git a/test/fileread/psb_zf_sample.f90 b/test/fileread/psb_zf_sample.f90 index 860405ba..c327a80b 100644 --- a/test/fileread/psb_zf_sample.f90 +++ b/test/fileread/psb_zf_sample.f90 @@ -58,7 +58,6 @@ program psb_zf_sample integer(psb_ipk_) :: ictxt, iam, np integer(psb_lpk_) :: lnp - ! solver paramters integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode,& & methd, istopc, irst @@ -182,7 +181,7 @@ program psb_zf_sample write(psb_out_unit,'(" ")') ! write(psb_err_unit,'("Build type: graph")') call aux_a%cscnv(info,type='csr') - lnp = np + lnp = np call build_mtpart(aux_a,lnp) endif