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

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2006-03-17 18:19:07 +00:00
parent f26e98de35
commit e97cd11ce0
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/psblas/psb_ddot.f90
+1 -4
View File
@@ -62,7 +62,6 @@ function psb_ddot(x, y,desc_a, info, jx, jy)
! locals
integer :: int_err(5), icontxt, nprow, npcol, myrow, mycol,&
& err_act, n, iix, jjx, temp(2), ix, ijx, iy, ijy, iiy, jjy, i, m, j, k
real(kind(1.d0)),pointer :: tmpx(:)
real(kind(1.D0)) :: dot_local
real(kind(1.d0)) :: ddot
character(len=20) :: name, ch_err
@@ -222,7 +221,6 @@ function psb_ddotv(x, y,desc_a, info)
! locals
integer :: int_err(5), icontxt, nprow, npcol, myrow, mycol,&
& err_act, n, iix, jjx, temp(2), ix, jx, iy, jy, iiy, jjy, i, m, j, k
real(kind(1.d0)),pointer :: tmpx(:)
real(kind(1.D0)) :: dot_local
real(kind(1.d0)) :: ddot
character(len=20) :: name, ch_err
@@ -366,7 +364,6 @@ subroutine psb_ddotvs(res, x, y,desc_a, info)
! locals
integer :: int_err(5), icontxt, nprow, npcol, myrow, mycol,&
& err_act, n, iix, jjx, temp(2), ix, ijx, iy, ijy, iiy, jjy, i, m, j, k
real(kind(1.d0)),pointer :: tmpx(:)
real(kind(1.D0)) :: dot_local
real(kind(1.d0)) :: ddot
character(len=20) :: name, ch_err
@@ -513,7 +510,7 @@ subroutine psb_dmdots(res, x, y, desc_a, info)
! locals
integer :: int_err(5), icontxt, nprow, npcol, myrow, mycol,&
& err_act, n, iix, jjx, temp(2), ix, ijx, iy, ijy, iiy, jjy, i, m, j, k
real(kind(1.d0)),pointer :: dot_local(:)
real(kind(1.d0)),allocatable :: dot_local(:)
real(kind(1.d0)) :: ddot
character(len=20) :: name, ch_err