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

psb_geabs corrected version with test

Browse Source
This commit is contained in:
Cirdans-Home
2020-02-18 09:20:30 +01:00
parent f5709a2254
commit 63885c36c7
9 changed files with 8 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/serial/psb_c_base_vect_mod.f90
+1 -1
View File
@@ -2770,7 +2770,7 @@ contains
if (x%is_dev()) call x%sync()
if (allocated(x%v)) then
call y%axpby(min(x%get_nrows(),y%get_nrows()),czero,x,cone,info)
call y%axpby(min(x%get_nrows(),y%get_nrows()),cone,x,czero,info)
call y%absval()
end if
base/modules/serial/psb_d_base_vect_mod.f90
+1 -1
View File
@@ -2828,7 +2828,7 @@ contains
if (x%is_dev()) call x%sync()
if (allocated(x%v)) then
call y%axpby(min(x%get_nrows(),y%get_nrows()),dzero,x,done,info)
call y%axpby(min(x%get_nrows(),y%get_nrows()),done,x,dzero,info)
call y%absval()
end if
base/modules/serial/psb_s_base_vect_mod.f90
+1 -1
View File
@@ -2828,7 +2828,7 @@ contains
if (x%is_dev()) call x%sync()
if (allocated(x%v)) then
call y%axpby(min(x%get_nrows(),y%get_nrows()),szero,x,sone,info)
call y%axpby(min(x%get_nrows(),y%get_nrows()),sone,x,szero,info)
call y%absval()
end if
base/modules/serial/psb_z_base_vect_mod.f90
+1 -1
View File
@@ -2770,7 +2770,7 @@ contains
if (x%is_dev()) call x%sync()
if (allocated(x%v)) then
call y%axpby(min(x%get_nrows(),y%get_nrows()),zzero,x,zone,info)
call y%axpby(min(x%get_nrows(),y%get_nrows()),zone,x,zzero,info)
call y%absval()
end if
base/psblas/psb_cabs_vect.f90
+1 -1
View File
@@ -92,7 +92,7 @@ subroutine psb_cabs_vect(x,y,desc_a,info)
end if
if(desc_a%get_local_rows() > 0) then
call y%absval(x)
call x%absval(y)
end if
call psb_erractionrestore(err_act)
base/psblas/psb_dabs_vect.f90
+1 -1
View File
@@ -92,7 +92,7 @@ subroutine psb_dabs_vect(x,y,desc_a,info)
end if
if(desc_a%get_local_rows() > 0) then
call y%absval(x)
call x%absval(y)
end if
call psb_erractionrestore(err_act)
base/psblas/psb_sabs_vect.f90
+1 -1
View File
@@ -92,7 +92,7 @@ subroutine psb_sabs_vect(x,y,desc_a,info)
end if
if(desc_a%get_local_rows() > 0) then
call y%absval(x)
call x%absval(y)
end if
call psb_erractionrestore(err_act)
base/psblas/psb_zabs_vect.f90
+1 -1
View File
@@ -92,7 +92,7 @@ subroutine psb_zabs_vect(x,y,desc_a,info)
end if
if(desc_a%get_local_rows() > 0) then
call y%absval(x)
call x%absval(y)
end if
call psb_erractionrestore(err_act)
test/kernel/vecoperation.f90
-1
View File
@@ -214,7 +214,6 @@ program vecoperation
call psb_geabs(x,absz,desc_a,info)
if (iam == psb_root_) then
write(psb_out_unit,'("info = ",I1)')info
vz = absz%get_vect()
write(psb_out_unit,'("|x| = ",es12.1)')vz(:)
end if