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

psblas3:

Browse Source 
configure.ac
 configure
 test/fileread/df_sample.f90
 util/psb_d_renum_impl.F90
 util/psb_renum_mod.f90

Further test machinery.
This commit is contained in:
Salvatore Filippone
2011-11-21 16:08:43 +00:00
parent ad61accbb0
commit 1faa6563eb
5 changed files with 39 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/fileread/df_sample.f90
+2 -2
View File
@@ -38,7 +38,7 @@ program df_sample
implicit none
! input parameters
character(len=40) :: kmethd, ptype, mtrx_file, rhs_file
character(len=40) :: kmethd, ptype, mtrx_file, rhs_file,renum
! sparse matrices
type(psb_dspmat_type) :: a, aux_a
@@ -140,7 +140,7 @@ program df_sample
m_problem = aux_a%get_nrows()
call psb_bcast(ictxt,m_problem)
call psb_mat_renum(psb_mat_renum_gps_,aux_a,info,perm)
call psb_mat_renum(psb_mat_renum_amd_,aux_a,info,perm)
! At this point aux_b may still be unallocated
if (psb_size(aux_b,dim=1) == m_problem) then