fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

New METIS interface

Browse Source
mat-allocate
Salvatore Filippone 5 years ago
parent 25fdc6fb73
commit cf267c12c8
4 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File

3
test/fileread/psb_cf_sample.f90
Unescape Escape View File

@ -58,7 +58,6 @@ program psb_cf_sample
integer(psb_ipk_) :: ictxt, iam, np integer(psb_ipk_) :: ictxt, iam, np
integer(psb_lpk_) :: lnp integer(psb_lpk_) :: lnp
! solver paramters ! solver paramters
integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode,& integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode,&
& methd, istopc, irst & methd, istopc, irst
@ -182,7 +181,7 @@ program psb_cf_sample
write(psb_out_unit,'(" ")') write(psb_out_unit,'(" ")')
! write(psb_err_unit,'("Build type: graph")') ! write(psb_err_unit,'("Build type: graph")')
call aux_a%cscnv(info,type='csr') call aux_a%cscnv(info,type='csr')
lnp = np lnp = np
call build_mtpart(aux_a,lnp) call build_mtpart(aux_a,lnp)
endif endif

3
test/fileread/psb_df_sample.f90
Unescape Escape View File

@ -58,7 +58,6 @@ program psb_df_sample
integer(psb_ipk_) :: ictxt, iam, np integer(psb_ipk_) :: ictxt, iam, np
integer(psb_lpk_) :: lnp integer(psb_lpk_) :: lnp
! solver paramters ! solver paramters
integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode,& integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode,&
& methd, istopc, irst & methd, istopc, irst
@ -182,7 +181,7 @@ program psb_df_sample
write(psb_out_unit,'(" ")') write(psb_out_unit,'(" ")')
! write(psb_err_unit,'("Build type: graph")') ! write(psb_err_unit,'("Build type: graph")')
call aux_a%cscnv(info,type='csr') call aux_a%cscnv(info,type='csr')
lnp = np lnp = np
call build_mtpart(aux_a,lnp) call build_mtpart(aux_a,lnp)
endif endif

3
test/fileread/psb_sf_sample.f90
Unescape Escape View File

@ -58,7 +58,6 @@ program psb_sf_sample
integer(psb_ipk_) :: ictxt, iam, np integer(psb_ipk_) :: ictxt, iam, np
integer(psb_lpk_) :: lnp integer(psb_lpk_) :: lnp
! solver paramters ! solver paramters
integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode,& integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode,&
& methd, istopc, irst & methd, istopc, irst
@ -182,7 +181,7 @@ program psb_sf_sample
write(psb_out_unit,'(" ")') write(psb_out_unit,'(" ")')
! write(psb_err_unit,'("Build type: graph")') ! write(psb_err_unit,'("Build type: graph")')
call aux_a%cscnv(info,type='csr') call aux_a%cscnv(info,type='csr')
lnp = np lnp = np
call build_mtpart(aux_a,lnp) call build_mtpart(aux_a,lnp)
endif endif

3
test/fileread/psb_zf_sample.f90
Unescape Escape View File

@ -58,7 +58,6 @@ program psb_zf_sample
integer(psb_ipk_) :: ictxt, iam, np integer(psb_ipk_) :: ictxt, iam, np
integer(psb_lpk_) :: lnp integer(psb_lpk_) :: lnp
! solver paramters ! solver paramters
integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode,& integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode,&
& methd, istopc, irst & methd, istopc, irst
@ -182,7 +181,7 @@ program psb_zf_sample
write(psb_out_unit,'(" ")') write(psb_out_unit,'(" ")')
! write(psb_err_unit,'("Build type: graph")') ! write(psb_err_unit,'("Build type: graph")')
call aux_a%cscnv(info,type='csr') call aux_a%cscnv(info,type='csr')
lnp = np lnp = np
call build_mtpart(aux_a,lnp) call build_mtpart(aux_a,lnp)
endif endif

Write Preview
Loading…
Cancel
Save