From 79a136bab7cf7bf331b28c9b6002be977e4c2a2b Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 23 Feb 2018 17:02:30 +0000
Subject: [PATCH] Added L versions of one/zero constants.

---
 base/modules/psb_const_mod.F90 | 2 ++
 1 file changed, 2 insertions(+)

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