From c622e413a2bf9b5182c47f101297ca6168a40610 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 30 Nov 2011 10:37:01 +0000 Subject: [PATCH] psblas3: base/modules/psb_const_mod.F90 Take out obsolete constants. --- base/modules/psb_const_mod.F90 | 5 ----- 1 file changed, 5 deletions(-) diff --git a/base/modules/psb_const_mod.F90 b/base/modules/psb_const_mod.F90 index 871b15c1..88739139 100644 --- a/base/modules/psb_const_mod.F90 +++ b/base/modules/psb_const_mod.F90 @@ -106,11 +106,6 @@ module psb_const_mod integer, parameter :: psb_upd_srch_ = 98764 integer, parameter :: psb_upd_perm_ = 98765 integer, parameter :: psb_upd_dflt_ = psb_upd_srch_ - ! Mark a COO matrix with sorted entries. - integer, parameter :: psb_isrtdcoo_ = 98761 - integer, parameter :: psb_maxjdrows_=8, psb_minjdrows_=4 - integer, parameter :: psb_dbleint_=2 - character(len=5) :: psb_fidef_='CSR' #if defined(HAVE_ISO_FORTRAN_ENV) integer, save :: psb_err_unit = error_unit