Added L versions of one/zero constants.

8 years ago · 79a136bab7
parent bb96330459
commit 79a136bab7
1 changed files with 2 additions and 0 deletions
--- 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