*** empty log message ***

13 years ago · 4352c62788
parent f80e8ecd7c
commit 4352c62788
1 changed files with 4 additions and 1 deletions
--- 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
  !