Fixed INTENT of dummy arguments.

18 years ago · 386ba10060
parent bc944b16dd
commit 386ba10060
1 changed files with 3 additions and 3 deletions
--- 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, intent(in)  ::  global_indx, n, np
-    integer  nv
+    integer, intent(out) ::  nv
-    integer  pv(*)
+    integer, intent(out) ::  pv(*)
    integer  dim_block
    integer  ib1, ib2, ipv