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-matasb:

Browse Source 
base/modules/psb_base_mat_mod.f90
 base/modules/psb_d_base_mat_mod.f90
 base/modules/psb_d_base_vect_mod.f90
 base/modules/psb_d_mat_mod.f90
 base/serial/impl/psb_d_mat_impl.F90
 base/tools/psb_dins.f90
 base/tools/psb_dspasb.f90

Mods to get imaging application up & running
This commit is contained in:
Salvatore Filippone
2014-08-29 15:17:00 +00:00
parent 047d928ed5
commit cf679ebc1a
7 changed files with 26 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_d_mat_impl.F90
+12 -1
View File
@@ -1917,12 +1917,14 @@ subroutine psb_d_transc_2mat(a,b)
end subroutine psb_d_transc_2mat
subroutine psb_d_asb(a)
subroutine psb_d_asb(a,mold)
use psb_d_mat_mod, psb_protect_name => psb_d_asb
use psb_error_mod
implicit none
class(psb_dspmat_type), intent(inout) :: a
class(psb_d_base_sparse_mat), optional, intent(in) :: mold
class(psb_d_base_sparse_mat), allocatable :: tmp
integer(psb_ipk_) :: err_act, info
character(len=20) :: name='reinit'
@@ -1934,6 +1936,15 @@ subroutine psb_d_asb(a)
endif
call a%a%asb()
if (present(mold)) then
if (.not.same_type_as(a%a,mold)) then
allocate(tmp,mold=mold)
call tmp%mv_from_fmt(a%a,info)
call a%a%free()
call move_alloc(tmp,a%a)
end if
end if
call psb_erractionrestore(err_act)
return