fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

New METIS interface

Browse Source
This commit is contained in:
Salvatore Filippone
2020-07-23 12:50:05 +02:00
parent 25fdc6fb73
commit cf267c12c8
4 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/fileread/psb_cf_sample.f90
+1 -2
View File
@@ -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
test/fileread/psb_df_sample.f90
+1 -2
View File
@@ -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
test/fileread/psb_sf_sample.f90
+1 -2
View File
@@ -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
test/fileread/psb_zf_sample.f90
+1 -2
View File
@@ -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