From 66a9d5e50add1f91082ad840da0257b8016602b0 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Sat, 4 Jan 2025 09:44:58 +0100
Subject: [PATCH] Interface psb_sizeof_X size computation

---
 base/modules/penv/psi_penv_mod.F90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/base/modules/penv/psi_penv_mod.F90 b/base/modules/penv/psi_penv_mod.F90
index 148032ad..53c54da4 100644
--- a/base/modules/penv/psi_penv_mod.F90
+++ b/base/modules/penv/psi_penv_mod.F90
@@ -711,9 +711,9 @@ contains
       subroutine psi_c_diffadd(p1, p2, val) &
            & bind(c,name="psi_c_diffadd")
         use iso_c_binding
-        import :: psb_mpk_
+        import :: psb_mpk_, psb_epk_
         type(c_ptr), value :: p1, p2
-        integer(psb_mpk_) :: val
+        integer(psb_epk_) :: val
       end subroutine psi_c_diffadd
     end interface