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

psblas3:

Browse Source 
test/fileread/df_sample.f90
Fix bad use of keyword argument.
This commit is contained in:
Salvatore Filippone
2015-09-09 10:11:37 +00:00
parent 866fcc02d0
commit 56934747f4
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/fileread/df_sample.f90
+1 -1
View File
@@ -152,7 +152,7 @@ program df_sample
call psb_gelp('N',perm(1:m_problem),&
& b_col_glob(1:m_problem),info)
write(fnout,'(a,i3.3,a)') 'amat-',iam,'-gps.mtx'
call aux_a%print(fname=fnout)
call aux_a%print(fnout)
write(fnout,'(a,i3.3,a)') 'rhs-',iam,'-gps.mtx'
call mm_array_write(b_col_glob(1:m_problem),'GPS RHS',info,filename=fnout)
else