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

psblas3:

Browse Source 
base/serial/impl/psb_c_base_mat_impl.f90
 base/serial/impl/psb_d_base_mat_impl.f90
 base/serial/impl/psb_s_base_mat_impl.f90
 base/serial/impl/psb_z_base_mat_impl.f90

Silly bug in missing erraction restore.
This commit is contained in:
Salvatore Filippone
2011-06-20 15:32:06 +00:00
parent 37da6ac05e
commit 362f77e652
4 changed files with 0 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_base_mat_impl.f90
-2
View File
@@ -810,7 +810,6 @@ subroutine psb_c_base_cssm(alpha,a,x,beta,y,info,trans,scale,d)
end if
return
call psb_erractionrestore(err_act)
return
@@ -941,7 +940,6 @@ subroutine psb_c_base_cssv(alpha,a,x,beta,y,info,trans,scale,d)
end if
return
call psb_erractionrestore(err_act)
return
base/serial/impl/psb_d_base_mat_impl.f90
-2
View File
@@ -810,7 +810,6 @@ subroutine psb_d_base_cssm(alpha,a,x,beta,y,info,trans,scale,d)
end if
return
call psb_erractionrestore(err_act)
return
@@ -941,7 +940,6 @@ subroutine psb_d_base_cssv(alpha,a,x,beta,y,info,trans,scale,d)
end if
return
call psb_erractionrestore(err_act)
return
base/serial/impl/psb_s_base_mat_impl.f90
-2
View File
@@ -810,7 +810,6 @@ subroutine psb_s_base_cssm(alpha,a,x,beta,y,info,trans,scale,d)
end if
return
call psb_erractionrestore(err_act)
return
@@ -941,7 +940,6 @@ subroutine psb_s_base_cssv(alpha,a,x,beta,y,info,trans,scale,d)
end if
return
call psb_erractionrestore(err_act)
return
base/serial/impl/psb_z_base_mat_impl.f90
-2
View File
@@ -811,7 +811,6 @@ subroutine psb_z_base_cssm(alpha,a,x,beta,y,info,trans,scale,d)
end if
return
call psb_erractionrestore(err_act)
return
@@ -942,7 +941,6 @@ subroutine psb_z_base_cssv(alpha,a,x,beta,y,info,trans,scale,d)
end if
return
call psb_erractionrestore(err_act)
return