New METIS interface

5 years ago · cf267c12c8
parent 25fdc6fb73
commit cf267c12c8
4 changed files with 4 additions and 8 deletions
--- 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
--- 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
--- 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
--- 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