fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 19:02:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas2:

Browse Source 
test/fileread/cf_sample.f90
 test/fileread/df_sample.f90
 test/fileread/sf_sample.f90
 test/fileread/zf_sample.f90
 util/Makefile
 util/psb_hbio_mod.f90
 util/psb_mmio_mod.f90
 util/psb_read_mat_mod.f90

First step to fixing MM/HB I/O: fixed MM_VET_READ.
This commit is contained in:
Salvatore Filippone
2008-07-21 16:52:33 +00:00
parent 929dba43a0
commit e8f6804783
8 changed files with 310 additions and 257 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/fileread/cf_sample.f90
+1 -1
View File
@@ -108,7 +108,7 @@ program cf_sample
if(rhs_file /= 'NONE') then
! reading an rhs
call read_rhs(rhs_file,aux_b,ictxt)
call read_rhs(rhs_file,aux_b,info,ictxt)
end if
if (psb_size(aux_b,dim=1)==m_problem) then
test/fileread/df_sample.f90
+1 -1
View File
@@ -108,7 +108,7 @@ program df_sample
if(rhs_file /= 'NONE') then
! reading an rhs
call read_rhs(rhs_file,aux_b,ictxt)
call read_rhs(rhs_file,aux_b,info,ictxt)
end if
if (psb_size(aux_b,dim=1)==m_problem) then
test/fileread/sf_sample.f90
+1 -1
View File
@@ -108,7 +108,7 @@ program sf_sample
if(rhs_file /= 'NONE') then
! reading an rhs
call read_rhs(rhs_file,aux_b,ictxt)
call read_rhs(rhs_file,aux_b,info,ictxt)
end if
if (psb_size(aux_b,dim=1)==m_problem) then
test/fileread/zf_sample.f90
+1 -1
View File
@@ -108,7 +108,7 @@ program zf_sample
if(rhs_file /= 'NONE') then
! reading an rhs
call read_rhs(rhs_file,aux_b,ictxt)
call read_rhs(rhs_file,aux_b,info,ictxt)
end if
if (psb_size(aux_b,dim=1)==m_problem) then