fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
psblas3-type-indexed
Salvatore Filippone 19 years ago
parent f26e98de35
commit e97cd11ce0
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File

5
src/psblas/psb_ddot.f90
Unescape Escape View File

@ -62,7 +62,6 @@ function psb_ddot(x, y,desc_a, info, jx, jy)
! locals ! locals
integer :: int_err(5), icontxt, nprow, npcol, myrow, mycol,& 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 & 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)) :: dot_local
real(kind(1.d0)) :: ddot real(kind(1.d0)) :: ddot
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
@ -222,7 +221,6 @@ function psb_ddotv(x, y,desc_a, info)
! locals ! locals
integer :: int_err(5), icontxt, nprow, npcol, myrow, mycol,& 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 & 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)) :: dot_local
real(kind(1.d0)) :: ddot real(kind(1.d0)) :: ddot
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
@ -366,7 +364,6 @@ subroutine psb_ddotvs(res, x, y,desc_a, info)
! locals ! locals
integer :: int_err(5), icontxt, nprow, npcol, myrow, mycol,& 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 & 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)) :: dot_local
real(kind(1.d0)) :: ddot real(kind(1.d0)) :: ddot
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
@ -513,7 +510,7 @@ subroutine psb_dmdots(res, x, y, desc_a, info)
! locals ! locals
integer :: int_err(5), icontxt, nprow, npcol, myrow, mycol,& 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 & 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 real(kind(1.d0)) :: ddot
character(len=20) :: name, ch_err character(len=20) :: name, ch_err

Write Preview
Loading…
Cancel
Save