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

psblas:

Browse Source 
base/modules/psb_desc_mod.F90
 base/tools/psb_ccdbldext.F90
 base/tools/psb_cd_set_bld.f90
 base/tools/psb_dcdbldext.F90
 base/tools/psb_scdbldext.F90
 base/tools/psb_zcdbldext.F90

Move reinit to set_bld, take it out from BLDEXT.
This commit is contained in:
Salvatore Filippone
2015-07-23 12:00:29 +00:00
parent 271739f31a
commit 31d74c235f
6 changed files with 2 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_desc_mod.F90
+1
View File
@@ -1070,6 +1070,7 @@ contains
end subroutine psb_cd_clone
Subroutine psb_cd_get_recv_idx(tmp,desc,data,info,toglob)
use psb_error_mod
base/tools/psb_ccdbldext.F90
-1
View File
@@ -177,7 +177,6 @@ Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info, extype)
! in a separate method.
call psb_cd_switch_ovl_indxmap(desc_ov,info)
end if
if (info == 0) call desc_ov%indxmap%reinit(info)
if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info)
if (info /= 0) goto 9999
base/tools/psb_cd_set_bld.f90
+1 -4
View File
@@ -39,7 +39,6 @@ subroutine psb_cd_set_ovl_bld(desc,info)
if (info == psb_success_) then
if (desc%indxmap%row_extendable()) then
call desc%indxmap%set_state(psb_desc_ovl_bld_)
!!$ desc%matrix_data(psb_dec_type_) = psb_desc_ovl_bld_
else
info = psb_err_invalid_cd_state_
end if
@@ -70,10 +69,8 @@ subroutine psb_cd_set_bld(desc,info)
call psb_info(ictxt, me, np)
if (debug) write(psb_err_unit,*) me,'Entered CDSETBLD'
if (psb_is_asb_desc(desc)) then
end if
if (desc%is_asb()) call psb_cd_reinit(desc,info)
!!$ desc%matrix_data(psb_dec_type_) = psb_desc_bld_
call desc%indxmap%set_state(psb_desc_bld_)
if (debug) write(psb_err_unit,*) me,'SET_BLD: done'
base/tools/psb_dcdbldext.F90
-1
View File
@@ -177,7 +177,6 @@ Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info, extype)
! in a separate method.
call psb_cd_switch_ovl_indxmap(desc_ov,info)
end if
if (info == 0) call desc_ov%indxmap%reinit(info)
if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info)
if (info /= 0) goto 9999
base/tools/psb_scdbldext.F90
-1
View File
@@ -177,7 +177,6 @@ Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info, extype)
! in a separate method.
call psb_cd_switch_ovl_indxmap(desc_ov,info)
end if
if (info == 0) call desc_ov%indxmap%reinit(info)
if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info)
if (info /= 0) goto 9999
base/tools/psb_zcdbldext.F90
-1
View File
@@ -177,7 +177,6 @@ Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info, extype)
! in a separate method.
call psb_cd_switch_ovl_indxmap(desc_ov,info)
end if
if (info == 0) call desc_ov%indxmap%reinit(info)
if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info)
if (info /= 0) goto 9999