Add constants for 2-byte integers

base/modules/psb_const_mod.F90

@@ -103,7 +103,7 @@ module psb_const_mod
   
   integer(psb_ipk_), save      :: psb_sizeof_sp
   integer(psb_ipk_), save      :: psb_sizeof_dp
-  integer(psb_ipk_), save      :: psb_sizeof_i2p
+  integer(psb_ipk_), save      :: psb_sizeof_i2p = 2
   integer(psb_ipk_), save      :: psb_sizeof_mp  = 4
   integer(psb_ipk_), save      :: psb_sizeof_ep  = 8
 
@@ -152,6 +152,8 @@ module psb_const_mod
   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, imone=-1
+  integer(psb_i2pk_), parameter  :: i2zero=0, i2one=1
+  integer(psb_i2pk_), parameter  :: i2two=2, i2three=3, i2mone=-1
 
   integer(psb_ipk_), parameter   :: psb_root_=0
   real(psb_spk_), parameter      :: szero=0.0_psb_spk_, sone=1.0_psb_spk_