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

psblas3:

Browse Source 
psb_desc_mod

First changes for indxmap checks.
This commit is contained in:
Salvatore Filippone
2013-10-02 07:31:54 +00:00
parent e81dacc0d6
commit 97a40d2493
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_desc_mod.f90
+4 -4
View File
@@ -419,7 +419,7 @@ contains
integer(psb_ipk_) :: val
class(psb_desc_type), intent(in) :: desc
if (psb_is_ok_desc(desc)) then
if (allocated(desc%indxmap)) then
val = desc%indxmap%get_lr()
else
val = -1
@@ -431,7 +431,7 @@ contains
integer(psb_ipk_) :: val
class(psb_desc_type), intent(in) :: desc
if (psb_is_ok_desc(desc)) then
if (allocated(desc%indxmap)) then
val = desc%indxmap%get_lc()
else
val = -1
@@ -443,7 +443,7 @@ contains
integer(psb_ipk_) :: val
class(psb_desc_type), intent(in) :: desc
if (psb_is_ok_desc(desc)) then
if (allocated(desc%indxmap)) then
val = desc%indxmap%get_gr()
else
val = -1
@@ -456,7 +456,7 @@ contains
integer(psb_ipk_) :: val
class(psb_desc_type), intent(in) :: desc
if (psb_is_ok_desc(desc)) then
if (allocated(desc%indxmap)) then
val = desc%indxmap%get_gc()
else
val = -1