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

Corrected error in inv_vect implementation

Browse Source
This commit is contained in:
cirdans-home
2019-11-22 09:46:53 +01:00
parent c1f3b2d9d4
commit d4fc54e75a
5 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/psblas/Makefile
+1 -2
View File
@@ -12,8 +12,7 @@ OBJS= psb_ddot.o psb_damax.o psb_dasum.o psb_daxpby.o\
psb_cnrm2.o psb_cnrmi.o psb_cspmm.o psb_cspsm.o \
psb_cmlt_vect.o psb_dmlt_vect.o psb_zmlt_vect.o psb_smlt_vect.o\
psb_cdiv_vect.o psb_ddiv_vect.o psb_zdiv_vect.o psb_sdiv_vect.o\
psb_cinv_vect.o psb_dinv_vect.o psb_zinv_vect.o psb_sinv_vect.o
psb_cinv_vect.o psb_dinv_vect.o psb_zinv_vect.o psb_sinv_vect.o\
LIBDIR=..
INCDIR=..
base/psblas/psb_cinv_vect.f90
+2 -2
View File
@@ -92,7 +92,7 @@ subroutine psb_cinv_vect(x,y,desc_a,info)
end if
if(desc_a%get_local_rows() > 0) then
call y%div(x,info)
call y%inv(x,info)
end if
call psb_erractionrestore(err_act)
@@ -166,7 +166,7 @@ subroutine psb_cinv_vect_check(x,y,desc_a,info,flag)
end if
if(desc_a%get_local_rows() > 0) then
call y%div(x,info,flag)
call y%inv(x,info,flag)
end if
call psb_erractionrestore(err_act)
base/psblas/psb_dinv_vect.f90
+2 -2
View File
@@ -92,7 +92,7 @@ subroutine psb_dinv_vect(x,y,desc_a,info)
end if
if(desc_a%get_local_rows() > 0) then
call y%div(x,info)
call y%inv(x,info)
end if
call psb_erractionrestore(err_act)
@@ -166,7 +166,7 @@ subroutine psb_dinv_vect_check(x,y,desc_a,info,flag)
end if
if(desc_a%get_local_rows() > 0) then
call y%div(x,info,flag)
call y%inv(x,info,flag)
end if
call psb_erractionrestore(err_act)
base/psblas/psb_sinv_vect.f90
+2 -2
View File
@@ -92,7 +92,7 @@ subroutine psb_sinv_vect(x,y,desc_a,info)
end if
if(desc_a%get_local_rows() > 0) then
call y%div(x,info)
call y%inv(x,info)
end if
call psb_erractionrestore(err_act)
@@ -166,7 +166,7 @@ subroutine psb_sinv_vect_check(x,y,desc_a,info,flag)
end if
if(desc_a%get_local_rows() > 0) then
call y%div(x,info,flag)
call y%inv(x,info,flag)
end if
call psb_erractionrestore(err_act)
base/psblas/psb_zinv_vect.f90
+2 -2
View File
@@ -92,7 +92,7 @@ subroutine psb_zinv_vect(x,y,desc_a,info)
end if
if(desc_a%get_local_rows() > 0) then
call y%div(x,info)
call y%inv(x,info)
end if
call psb_erractionrestore(err_act)
@@ -166,7 +166,7 @@ subroutine psb_zinv_vect_check(x,y,desc_a,info,flag)
end if
if(desc_a%get_local_rows() > 0) then
call y%div(x,info,flag)
call y%inv(x,info,flag)
end if
call psb_erractionrestore(err_act)