fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-21 05:12:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3-integer8:

Browse Source 
base/internals/psi_crea_index.f90
 base/internals/psi_desc_index.F90
 base/internals/psi_sort_dl.f90
 base/internals/srtlist.f
 base/modules/psb_error_impl.F90
 base/modules/psi_penv_mod.F90
 test/kernel/pdgenspmv.f90
 test/kernel/runs/fspmv.inp
 test/kernel/runs/spmv.inp
 test/pargen/ppde.f90

Progress: now test/kernel/pdgenspmv begins to work
 (but cdbldext needs fixing still)
This commit is contained in:
Salvatore Filippone
2012-02-05 13:41:35 +00:00
parent d069551ca7
commit 9c8ada8c2b
10 changed files with 74 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/pargen/ppde.f90
+1 -3
View File
@@ -92,7 +92,6 @@ program ppde
integer(psb_ipk_) :: iter, itmax,itrace, istopc, irst
integer(psb_long_int_k_) :: amatsize, precsize, descsize, d2size
real(psb_dpk_) :: err, eps
integer(psb_mpik_) :: iict
! other variables
integer(psb_ipk_) :: info, i
character(len=20) :: name,ch_err
@@ -101,8 +100,7 @@ program ppde
info=psb_success_
call psb_init(iict)
ictxt = iict
call psb_init(ictxt)
call psb_info(ictxt,iam,np)
write(0,*) 'Fromt init/info',iam,np
if (iam < 0) then