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

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2011-07-26 11:25:45 +00:00
parent 80690b0f28
commit f8df315f48
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_d_csc_impl.f90
+1 -1
View File
@@ -833,7 +833,7 @@ subroutine psb_d_csc_cssm(alpha,a,x,beta,y,info,trans)
if (size(x,1)<m) then
info = 36
call psb_errpush(info,name,i_err=(/3,n,0,0,0/))
call psb_errpush(info,name,i_err=(/3,m,0,0,0/))
goto 9999
end if