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

Fixed name strings in Xdot

Browse Source
This commit is contained in:
Salvatore Filippone
2018-02-15 08:02:05 +00:00
parent 273fd7ac44
commit d98dec4a4a
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/psblas/psb_cdot.f90
+1 -1
View File
@@ -67,7 +67,7 @@ function psb_cdot_vect(x, y, desc_a,info) result(res)
& err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m, nr
character(len=20) :: name, ch_err
name='psb_sdot'
name='psb_cdot_vect'
res = czero
if (psb_errstatus_fatal()) return
info=psb_success_
base/psblas/psb_ddot.f90
+1 -1
View File
@@ -67,7 +67,7 @@ function psb_ddot_vect(x, y, desc_a,info) result(res)
& err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m, nr
character(len=20) :: name, ch_err
name='psb_sdot'
name='psb_ddot_vect'
res = dzero
if (psb_errstatus_fatal()) return
info=psb_success_
base/psblas/psb_sdot.f90
+1 -1
View File
@@ -67,7 +67,7 @@ function psb_sdot_vect(x, y, desc_a,info) result(res)
& err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m, nr
character(len=20) :: name, ch_err
name='psb_sdot'
name='psb_sdot_vect'
res = szero
if (psb_errstatus_fatal()) return
info=psb_success_
base/psblas/psb_zdot.f90
+1 -1
View File
@@ -67,7 +67,7 @@ function psb_zdot_vect(x, y, desc_a,info) result(res)
& err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m, nr
character(len=20) :: name, ch_err
name='psb_sdot'
name='psb_zdot_vect'
res = zzero
if (psb_errstatus_fatal()) return
info=psb_success_