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

Browse Source
This commit is contained in:
Salvatore Filippone
2011-03-31 14:12:38 +00:00
parent dbbbcf5fc7
commit 3bf487d6e4
3 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_dfree.f90
+3 -3
View File
@@ -106,9 +106,9 @@ end subroutine psb_dfree
! frees a dense matrix structure
!
! Arguments:
! x():) - real, allocatable The dense matrix to be freed.
! desc_a - type(psb_desc_type). The communication descriptor.
! info - integer. Return code
! x(:) - real, allocatable The dense matrix to be freed.
! desc_a - type(psb_desc_type). The communication descriptor.
! info - integer. Return code
subroutine psb_dfreev(x, desc_a, info)
use psb_base_mod, psb_protect_name => psb_dfreev
implicit none