From db22e832ee6938f5de6bb845a49a8c85557550e7 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 27 Feb 2020 13:00:01 +0000 Subject: [PATCH] Add constants for 2-byte integers --- base/modules/psb_const_mod.F90 | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/base/modules/psb_const_mod.F90 b/base/modules/psb_const_mod.F90 index 92def010..648a1669 100644 --- a/base/modules/psb_const_mod.F90 +++ b/base/modules/psb_const_mod.F90 @@ -103,9 +103,9 @@ 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_mp = 4 - integer(psb_ipk_), save :: psb_sizeof_ep = 8 + integer(psb_ipk_), save :: psb_sizeof_i2p = 2 + integer(psb_ipk_), save :: psb_sizeof_mp = 4 + integer(psb_ipk_), save :: psb_sizeof_ep = 8 #if defined(IPK4) && defined(LPK4) integer(psb_ipk_), save :: psb_sizeof_ip = 4 @@ -145,13 +145,15 @@ module psb_const_mod ! Handy & miscellaneous constants ! integer(psb_epk_), parameter :: ezero=0, eone=1 - integer(psb_epk_), parameter :: etwo=2, ethree=3,emone=-1 + integer(psb_epk_), parameter :: etwo=2, ethree=3, emone=-1 integer(psb_mpk_), parameter :: mzero=0, mone=1 - integer(psb_mpk_), parameter :: mtwo=2, mthree=3,mmone=-1 + integer(psb_mpk_), parameter :: mtwo=2, mthree=3, mmone=-1 integer(psb_lpk_), parameter :: lzero=0, lone=1 - integer(psb_lpk_), parameter :: ltwo=2, lthree=3,lmone=-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,imone=-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_