psblas3:

base/modules/psb_const_mod.F90 Cleanup unused constants.
13 years ago · 4b85cd831a
parent 42b83a54a5
commit 4b85cd831a
1 changed files with 3 additions and 14 deletions
--- a/base/modules/psb_const_mod.F90
+++ b/base/modules/psb_const_mod.F90
@ -79,25 +79,14 @@ module psb_const_mod
  logical, parameter             :: psb_d_is_complex_ = .false.
  logical, parameter             :: psb_c_is_complex_ = .true.
  logical, parameter             :: psb_z_is_complex_ = .true.
+
+
  !
  ! Sparse matrix constants
  !

  !
-  !
-  !     Queries into spmat%info
-  !     
-  integer, parameter :: psb_nztotreq_=1, psb_nzrowreq_=2
-  integer, parameter :: psb_nzsizereq_=3
-  !
-  !     Entries and values for  spmat%info
-  !     
-  integer, parameter :: psb_nnz_=1
-  integer, parameter :: psb_del_bnd_=7, psb_srtd_=8
-  integer, parameter :: psb_state_=9
-  integer, parameter :: psb_upd_pnt_=10
-  integer, parameter :: psb_dupl_=11,  psb_upd_=12
-  integer, parameter :: psb_ifasize_=16
+  ! State of matrices.
  !
  integer, parameter :: psb_invalid_ = -1 
  integer, parameter :: psb_spmat_null_=0, psb_spmat_bld_=1