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

psblas3:

Browse Source 
base/modules/psb_c_psblas_mod.f90
 base/modules/psb_c_tools_mod.f90
 base/modules/psb_d_psblas_mod.f90
 base/modules/psb_d_tools_mod.f90
 base/modules/psb_s_psblas_mod.f90
 base/modules/psb_s_tools_mod.f90
 base/modules/psb_serial_mod.f90
 base/modules/psb_z_psblas_mod.f90
 base/modules/psb_z_tools_mod.f90
 base/modules/psi_mod.f90
 base/serial/impl/psb_c_csc_impl.f90
 base/serial/impl/psb_c_csr_impl.f90
 base/serial/impl/psb_d_csc_impl.f90
 base/serial/impl/psb_d_csr_impl.f90
 base/serial/impl/psb_s_csc_impl.f90
 base/serial/impl/psb_s_csr_impl.f90
 base/serial/impl/psb_z_csc_impl.f90
 base/serial/impl/psb_z_csr_impl.f90

Second batch of fixes for unused variables.
This commit is contained in:
Salvatore Filippone
2011-03-09 11:53:45 +00:00
parent f093a14c8a
commit a291147ae3
18 changed files with 284 additions and 284 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_d_csc_impl.f90
+11 -11
View File
@@ -585,7 +585,7 @@ subroutine psb_d_csc_cssv(alpha,a,x,beta,y,info,trans)
character, optional, intent(in) :: trans
character :: trans_
integer :: i,j,k,m,n, nnz, ir, jc
integer :: i,j,k,m, nnz, ir, jc
real(psb_dpk_) :: acc
real(psb_dpk_), allocatable :: tmp(:)
logical :: tra
@@ -617,7 +617,7 @@ subroutine psb_d_csc_cssv(alpha,a,x,beta,y,info,trans)
if (size(x,1)<m) then
info = 36
call psb_errpush(info,name,i_err=(/3,n,0,0,0/))
call psb_errpush(info,name,i_err=(/3,m,0,0,0/))
goto 9999
end if
@@ -2130,7 +2130,7 @@ subroutine psb_d_cp_csc_from_coo(a,b,info)
integer, allocatable :: itemp(:)
!locals
logical :: rwshr_
Integer :: nza, nr, i,j,irw, idl,err_act, nc
Integer :: nza, nr, i,j,irw, err_act, nc
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name
@@ -2157,7 +2157,7 @@ subroutine psb_d_cp_csc_to_coo(a,b,info)
integer, allocatable :: itemp(:)
!locals
logical :: rwshr_
Integer :: nza, nr, nc,i,j,irw, idl,err_act
Integer :: nza, nr, nc,i,j,irw, err_act
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name
@@ -2200,7 +2200,7 @@ subroutine psb_d_mv_csc_to_coo(a,b,info)
integer, allocatable :: itemp(:)
!locals
logical :: rwshr_
Integer :: nza, nr, nc,i,j,irw, idl,err_act
Integer :: nza, nr, nc,i,j,irw, err_act
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name
@@ -2244,7 +2244,7 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
integer, allocatable :: itemp(:)
!locals
logical :: rwshr_
Integer :: nza, nr, i,j,irw, idl,err_act, nc, icl
Integer :: nza, nr, i,j,irw, err_act, nc, icl
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name
@@ -2289,7 +2289,7 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
if (i >= icl) exit inner
if (i > nc) then
write(debug_unit,*) trim(name),&
& 'Strange situation: i>nr ',i,nc,j,nza,icl,idl
& 'Strange situation: i>nr ',i,nc,j,nza,icl
exit outer
end if
a%icp(i+1) = a%icp(i)
@@ -2337,7 +2337,7 @@ subroutine psb_d_mv_csc_to_fmt(a,b,info)
!locals
type(psb_d_coo_sparse_mat) :: tmp
logical :: rwshr_
Integer :: nza, nr, i,j,irw, idl,err_act, nc
Integer :: nza, nr, i,j,irw, err_act, nc
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name
@@ -2377,7 +2377,7 @@ subroutine psb_d_cp_csc_to_fmt(a,b,info)
!locals
type(psb_d_coo_sparse_mat) :: tmp
logical :: rwshr_
Integer :: nza, nr, i,j,irw, idl,err_act, nc
Integer :: nza, nr, i,j,irw, err_act, nc
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name
@@ -2417,7 +2417,7 @@ subroutine psb_d_mv_csc_from_fmt(a,b,info)
!locals
type(psb_d_coo_sparse_mat) :: tmp
logical :: rwshr_
Integer :: nza, nr, i,j,irw, idl,err_act, nc
Integer :: nza, nr, i,j,irw, err_act, nc
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name
@@ -2458,7 +2458,7 @@ subroutine psb_d_cp_csc_from_fmt(a,b,info)
!locals
type(psb_d_coo_sparse_mat) :: tmp
logical :: rwshr_
Integer :: nza, nr, i,j,irw, idl,err_act, nc
Integer :: nza, nr, i,j,irw, err_act, nc
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name