fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 04:42:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed INTENT of dummy arguments.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-07-19 14:35:51 +00:00
parent bc944b16dd
commit 386ba10060
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
util/psb_blockpart_mod.f90
+3 -3
View File
@@ -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