From 97a40d2493bcef3ceb29f26fc5870e02a2c4dd3f Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 2 Oct 2013 07:31:54 +0000
Subject: [PATCH] psblas3:   psb_desc_mod

First changes for indxmap checks.
---
 base/modules/psb_desc_mod.f90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/base/modules/psb_desc_mod.f90 b/base/modules/psb_desc_mod.f90
index a5a62978..4878e59e 100644
--- a/base/modules/psb_desc_mod.f90
+++ b/base/modules/psb_desc_mod.f90
@@ -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