diff --git a/base/modules/psb_const_mod.F90 b/base/modules/psb_const_mod.F90 index 3b3f07f4..6c7d0e3e 100644 --- a/base/modules/psb_const_mod.F90 +++ b/base/modules/psb_const_mod.F90 @@ -99,6 +99,8 @@ module psb_const_mod ! ! Handy & miscellaneous constants ! + integer(psb_lpk_), parameter :: lzero=0, lone=1 + integer(psb_lpk_), parameter :: ltwo=2, lthree=3,lmone=-1 integer(psb_ipk_), parameter :: izero=0, ione=1 integer(psb_ipk_), parameter :: itwo=2, ithree=3,mone=-1 integer(psb_ipk_), parameter :: psb_root_=0