Interface psb_sizeof_X size computation

1 week ago · 66a9d5e50a
parent c83137cf78
commit 66a9d5e50a
1 changed files with 2 additions and 2 deletions
--- 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