From 10b802743e9a91b82b71becc24ca5ad8eb3f41b8 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Sat, 14 Sep 2019 16:41:36 +0100
Subject: [PATCH] Change constant name to psb_c_Xpk_

---
 base/modules/psb_cbind_const_mod.F90 | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/base/modules/psb_cbind_const_mod.F90 b/base/modules/psb_cbind_const_mod.F90
index 0f144352..2b4bdf69 100644
--- a/base/modules/psb_cbind_const_mod.F90
+++ b/base/modules/psb_cbind_const_mod.F90
@@ -33,20 +33,20 @@
 module psb_cbind_const_mod
   use iso_c_binding 
   
-  integer, parameter :: psb_c_mpk = c_int32_t
+  integer, parameter :: psb_c_mpk_ = c_int32_t
 #if defined(IPK4) &&  defined(LPK4)
-  integer, parameter :: psb_c_ipk = c_int32_t
-  integer, parameter :: psb_c_lpk = c_int32_t
+  integer, parameter :: psb_c_ipk_ = c_int32_t
+  integer, parameter :: psb_c_lpk_ = c_int32_t
 #elif defined(IPK4) &&  defined(LPK8)
-  integer, parameter :: psb_c_ipk = c_int32_t
-  integer, parameter :: psb_c_lpk = c_int64_t
+  integer, parameter :: psb_c_ipk_ = c_int32_t
+  integer, parameter :: psb_c_lpk_ = c_int64_t
 #elif defined(IPK8) &&  defined(LPK8)
-  integer, parameter :: psb_c_ipk = c_int64_t
-  integer, parameter :: psb_c_lpk = c_int64_t
+  integer, parameter :: psb_c_ipk_ = c_int64_t
+  integer, parameter :: psb_c_lpk_ = c_int64_t
 #else
-  integer, parameter :: psb_c_ipk = -1
-  integer, parameter :: psb_c_lpk = -1
+  integer, parameter :: psb_c_ipk_ = -1
+  integer, parameter :: psb_c_lpk_ = -1
 #endif
-  integer, parameter :: psb_c_epk = c_int64_t
+  integer, parameter :: psb_c_epk_ = c_int64_t
 
 end module psb_cbind_const_mod