diff --git a/util/psb_blockpart_mod.f90 b/util/psb_blockpart_mod.f90
index cbf921c6..b3288ac0 100644
--- a/util/psb_blockpart_mod.f90
+++ b/util/psb_blockpart_mod.f90
@@ -38,9 +38,9 @@ contains
 
     implicit none
 
-    integer  global_indx, n, np
-    integer  nv
-    integer  pv(*)
+    integer, intent(in)  ::  global_indx, n, np
+    integer, intent(out) ::  nv
+    integer, intent(out) ::  pv(*)
     integer  dim_block
     integer  ib1, ib2, ipv