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

psblas3:

Browse Source 
Makefile
 base/modules/psb_d_mat_mod.f90
 util/Makefile
 util/psb_d_renum_impl.F90
 util/psb_gps_mod.f90
 util/psb_renum_mod.f90
 util/psb_util_mod.f90

Defined renum interface.
This commit is contained in:
Salvatore Filippone
2011-07-26 14:13:04 +00:00
parent 1ad1e72933
commit a4544daae9
6 changed files with 66 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_d_mat_mod.f90
+9 -1
View File
@@ -120,6 +120,7 @@ module psb_d_mat_mod
generic, public :: cp_from => d_cp_from
procedure, pass(a) :: d_cp_to => psb_d_cp_to
generic, public :: cp_to => d_cp_to
procedure, pass(a) :: extract => psb_d_extract
procedure, pass(a) :: d_transp_1mat => psb_d_transp_1mat
procedure, pass(a) :: d_transp_2mat => psb_d_transp_2mat
generic, public :: transp => d_transp_1mat, d_transp_2mat
@@ -955,5 +956,12 @@ contains
end function psb_d_get_nz_row
subroutine psb_d_extract(a,b)
implicit none
class(psb_dspmat_type), intent(inout) :: a
class(psb_d_base_sparse_mat), allocatable, intent(out) :: b
call move_alloc(a%a,b)
end subroutine psb_d_extract
end module psb_d_mat_mod