Merge branch 'MixedI8' of https://github.com/sfilippone/psblas3 into MixedI8

8 years ago · 9fea488aef
parent 51b1d4ade8 79a136bab7
commit 9fea488aef
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