fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
test/kernel/d_file_spmv.f90
 test/kernel/s_file_spmv.f90
 util/psb_mmio_mod.F90
 util/psb_mmio_mod.f90

ifdef for workaround for Intel generics bug.
This commit is contained in:
Salvatore Filippone
2014-06-11 11:49:46 +00:00
parent cfaa9995ed
commit 97c5475d28
3 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/kernel/d_file_spmv.f90
+1 -1
View File
@@ -117,7 +117,7 @@ program d_file_spmv
call mm_mat_read(aux_a,info,iunit=iunit,filename=mtrx_file)
if (info == psb_success_) then
if (rhs_file /= 'NONE') then
call mm_vet_read(aux_b,info,iunit=iunit,filename=rhs_file)
call mm_array_read(aux_b,info,iunit=iunit,filename=rhs_file)
end if
end if
test/kernel/s_file_spmv.f90
+1 -1
View File
@@ -117,7 +117,7 @@ program s_file_spmv
call mm_mat_read(aux_a,info,iunit=iunit,filename=mtrx_file)
if (info == psb_success_) then
if (rhs_file /= 'NONE') then
call mm_vet_read(aux_b,info,iunit=iunit,filename=rhs_file)
call mm_array_read(aux_b,info,iunit=iunit,filename=rhs_file)
end if
end if