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

psblas3-typvect:

Browse Source 
base/serial/impl/psb_c_csc_impl.f90
 base/serial/impl/psb_d_csc_impl.f90
 base/serial/impl/psb_s_csc_impl.f90
 base/serial/impl/psb_z_csc_impl.f90

Merged fixes for Cray ICE.
This commit is contained in:
Salvatore Filippone
2011-07-26 11:53:59 +00:00
parent 76fdd859f7
commit 1c446fc051
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_csc_impl.f90
+1 -1
View File
@@ -1158,7 +1158,7 @@ subroutine psb_c_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
base/serial/impl/psb_s_csc_impl.f90
+1 -1
View File
@@ -834,7 +834,7 @@ subroutine psb_s_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
base/serial/impl/psb_z_csc_impl.f90
+1 -1
View File
@@ -1159,7 +1159,7 @@ subroutine psb_z_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