fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-07 07:04:57 +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
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