From 4352c62788fa80f139c04b20ac42d80c0f0298c5 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 25 Nov 2011 17:54:02 +0000 Subject: [PATCH] *** empty log message *** --- base/modules/psb_const_mod.F90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/base/modules/psb_const_mod.F90 b/base/modules/psb_const_mod.F90 index 5db8533b..b8b82c60 100644 --- a/base/modules/psb_const_mod.F90 +++ b/base/modules/psb_const_mod.F90 @@ -75,7 +75,10 @@ module psb_const_mod real(psb_dpk_), parameter :: d_epstol=1.1d-16 ! Unit roundoff. real(psb_spk_), parameter :: s_epstol=5.e-8 ! Is this right? character, parameter :: psb_all_='A', psb_topdef_=' ' - + logical, parameter :: psb_s_is_complex_ = .false. + logical, parameter :: psb_d_is_complex_ = .false. + logical, parameter :: psb_c_is_complex_ = .true. + logical, parameter :: psb_z_is_complex_ = .true. ! ! Sparse matrix constants !