Fixed missing declarat.

8 years ago · e72e25f5e7
parent 48fd24a4d3
commit e72e25f5e7
4 changed files with 4 additions and 4 deletions
--- a/base/tools/psb_cspalloc.f90
+++ b/base/tools/psb_cspalloc.f90
@ -53,7 +53,7 @@ subroutine psb_cspalloc(a, desc_a, info, nnz)
  !locals
  integer(psb_ipk_) :: ictxt, np, me, err_act
-  integer(psb_ipk_) :: loc_row,loc_col, nnz_
+  integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype
  integer(psb_lpk_) :: m, n
  integer(psb_ipk_) :: debug_level, debug_unit
  character(len=20)   :: name
--- a/base/tools/psb_dspalloc.f90
+++ b/base/tools/psb_dspalloc.f90
@ -53,7 +53,7 @@ subroutine psb_dspalloc(a, desc_a, info, nnz)
  !locals
  integer(psb_ipk_) :: ictxt, np, me, err_act
-  integer(psb_ipk_) :: loc_row,loc_col, nnz_
+  integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype
  integer(psb_lpk_) :: m, n
  integer(psb_ipk_) :: debug_level, debug_unit
  character(len=20)   :: name
--- a/base/tools/psb_sspalloc.f90
+++ b/base/tools/psb_sspalloc.f90
@ -53,7 +53,7 @@ subroutine psb_sspalloc(a, desc_a, info, nnz)
  !locals
  integer(psb_ipk_) :: ictxt, np, me, err_act
-  integer(psb_ipk_) :: loc_row,loc_col, nnz_
+  integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype
  integer(psb_lpk_) :: m, n
  integer(psb_ipk_) :: debug_level, debug_unit
  character(len=20)   :: name
--- a/base/tools/psb_zspalloc.f90
+++ b/base/tools/psb_zspalloc.f90
@ -53,7 +53,7 @@ subroutine psb_zspalloc(a, desc_a, info, nnz)
  !locals
  integer(psb_ipk_) :: ictxt, np, me, err_act
-  integer(psb_ipk_) :: loc_row,loc_col, nnz_
+  integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype
  integer(psb_lpk_) :: m, n
  integer(psb_ipk_) :: debug_level, debug_unit
  character(len=20)   :: name