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

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2012-05-05 19:11:27 +00:00
parent 4fd3247f92
commit 7fdd0ef65b
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_base_linmap_mod.f90
+10 -10
View File
@@ -83,38 +83,38 @@ contains
end subroutine base_set_kind
function base_is_ok(map) result(this)
function base_is_ok(map) result(res)
use psb_descriptor_type
implicit none
class(psb_base_linmap_type), intent(in) :: map
logical :: this
this = .false.
logical :: res
res = .false.
select case(map%get_kind())
case (psb_map_aggr_)
if (.not.associated(map%p_desc_X)) return
if (.not.associated(map%p_desc_Y)) return
this = map%p_desc_X%is_ok().and.map%p_desc_Y%is_ok()
res = map%p_desc_X%is_ok().and.map%p_desc_Y%is_ok()
case(psb_map_gen_linear_)
this = map%desc_X%is_ok().and.map%desc_Y%is_ok()
res = map%desc_X%is_ok().and.map%desc_Y%is_ok()
end select
end function base_is_ok
function base_is_asb(map) result(this)
function base_is_asb(map) result(res)
use psb_descriptor_type
implicit none
class(psb_base_linmap_type), intent(in) :: map
logical :: this
this = .false.
logical :: res
res = .false.
select case(map%get_kind())
case (psb_map_aggr_)
if (.not.associated(map%p_desc_X)) return
if (.not.associated(map%p_desc_Y)) return
this = map%p_desc_X%is_asb().and.map%p_desc_Y%is_asb()
res = map%p_desc_X%is_asb().and.map%p_desc_Y%is_asb()
case(psb_map_gen_linear_)
this = map%desc_X%is_asb().and.map%desc_Y%is_asb()
res = map%desc_X%is_asb().and.map%desc_Y%is_asb()
end select
end function base_is_asb