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

[UPDATE] Removed work/aux buffer from vector routines that use psb_x_vect_type encapsulation for data exchange

Browse Source
This commit is contained in:
Stack-1
2026-03-19 17:36:44 +01:00
parent dc61cbb0a2
commit 461a6a325f
143 changed files with 3051 additions and 3129 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/impl/psb_s_nullprec_impl.f90
+1 -2
View File
@@ -29,7 +29,7 @@
! POSSIBILITY OF SUCH DAMAGE.
!
!
subroutine psb_s_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
subroutine psb_s_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans)
use psb_base_mod
use psb_s_nullprec, psb_protect_name => psb_s_null_apply_vect
implicit none
@@ -40,7 +40,6 @@ subroutine psb_s_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
type(psb_s_vect_type),intent(inout) :: y
integer(psb_ipk_), intent(out) :: info
character(len=1), optional :: trans
real(psb_spk_),intent(inout), optional, target :: work(:)
integer(psb_ipk_) :: err_act, nrow, ierr(5)
character(len=20) :: name='c_null_prec_apply'