fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-24 14:51:49 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/modules/psb_error_mod.F90
 base/modules/psb_psblas_mod.f90
 base/newserial/psbn_base_mat_mod.f03
 base/newserial/psbn_d_base_mat_mod.f03
 base/newserial/psbn_d_coo_impl.f03
 base/newserial/psbn_d_csr_impl.f03
 base/newserial/psbn_d_csr_mat_mod.f03
 base/newserial/psbn_mat_mod.f03
 base/psblas/psb_dnrmi.f90
 base/psblas/psb_dspmm.f90
 base/psblas/psb_dspsm.f90
 base/tools/psb_dspalloc.f90
 prec/psb_dbjac_aply.f90
 prec/psb_dbjac_bld.f90
 prec/psb_dilu_fct.f90
 prec/psb_dprecbld.f90
 prec/psb_dprecinit.f90
 prec/psb_prec_mod.f90
 prec/psb_prec_type.f90
 test/pargen/ppde.f90
 test/pargen/runs/ppde.inp

Now both BJAC_BLD and CSSV work. Really! 
And initial performance is not too bad. 
Lots and lots of details to be fixed yet...........
This commit is contained in:
Salvatore Filippone
2009-09-14 13:55:43 +00:00
parent ffe5ab739d
commit 4ecc1b632d
21 changed files with 724 additions and 324 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/pargen/ppde.f90
+2 -5
View File
@@ -94,7 +94,7 @@ program ppde
real(psb_dpk_) :: err, eps
! other variables
integer :: info
integer :: info, i
character(len=20) :: name,ch_err
info=0
@@ -131,7 +131,6 @@ program ppde
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
if (iam == psb_root_) write(*,'("Overall matrix creation time : ",es12.5)')t2
if (iam == psb_root_) write(*,'(" ")')
!
@@ -156,7 +155,6 @@ program ppde
if (iam == psb_root_) write(*,'("Preconditioner time : ",es12.5)')tprec
if (iam == psb_root_) write(*,'(" ")')
!
! iterative method parameters
!
@@ -178,8 +176,7 @@ program ppde
t2 = psb_wtime() - t1
call psb_amx(ictxt,t2)
!!$ amatsize = psb_sizeof(a)
amatsize = 0
amatsize = psb_sizeof(a)
descsize = psb_sizeof(desc_a)
precsize = psb_sizeof(prec)
call psb_sum(ictxt,amatsize)
test/pargen/runs/ppde.inp
+4 -4
View File
@@ -1,11 +1,11 @@
7 Number of entries below this
BICGSTAB Iterative method BICGSTAB CGS BICG BICGSTABL RGMRES
DIAG Preconditioner NONE DIAG BJAC
CSR Storage format for matrix A: CSR COO JAD
BJAC Preconditioner NONE DIAG BJAC
COO Storage format for matrix A: CSR COO JAD
060 Domain size (acutal system is this**3)
1 Stopping criterion
2 Stopping criterion
0400 MAXIT
-40 ITRACE
-01 ITRACE
20 IRST restart for RGMRES and BiCGSTABL