From 0e4bccd1c29f71aabfb1e60956006d8c8b7b2be1 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 18 Apr 2012 16:12:19 +0000
Subject: [PATCH] psblas3:  base/tools/psb_cspins.f90 
 base/tools/psb_dspins.f90  base/tools/psb_sspins.f90 
 base/tools/psb_zspins.f90

Fixed to use method form of is_asb on desc.
---
 base/tools/psb_cspins.f90 | 4 ++--
 base/tools/psb_dspins.f90 | 4 ++--
 base/tools/psb_sspins.f90 | 4 ++--
 base/tools/psb_zspins.f90 | 4 ++--
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/base/tools/psb_cspins.f90 b/base/tools/psb_cspins.f90
index 3a6f2e48..ef0407c2 100644
--- a/base/tools/psb_cspins.f90
+++ b/base/tools/psb_cspins.f90
@@ -119,7 +119,7 @@ subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
     local_ = .false.
   endif
 
-  if (psb_is_bld_desc(desc_a)) then 
+  if (desc_a%is_bld()) then 
 
     if (local_) then
       info = psb_err_invalid_a_and_cd_state_
@@ -158,7 +158,7 @@ subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
       end if
     endif
 
-  else if (psb_is_asb_desc(desc_a)) then 
+  else if (desc_a%is_asb()) then 
 
     if (local_) then
       call a%csput(nz,ia,ja,val,ione,nrow,ione,ncol,info)
diff --git a/base/tools/psb_dspins.f90 b/base/tools/psb_dspins.f90
index cebe90de..b7a9bc7d 100644
--- a/base/tools/psb_dspins.f90
+++ b/base/tools/psb_dspins.f90
@@ -119,7 +119,7 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
     local_ = .false.
   endif
 
-  if (psb_is_bld_desc(desc_a)) then 
+  if (desc_a%is_bld()) then 
 
     if (local_) then
       info = psb_err_invalid_a_and_cd_state_
@@ -158,7 +158,7 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
       end if
     endif
 
-  else if (psb_is_asb_desc(desc_a)) then 
+  else if (desc_a%is_asb()) then 
 
     if (local_) then
       call a%csput(nz,ia,ja,val,ione,nrow,ione,ncol,info)
diff --git a/base/tools/psb_sspins.f90 b/base/tools/psb_sspins.f90
index 761c6595..85ee0a27 100644
--- a/base/tools/psb_sspins.f90
+++ b/base/tools/psb_sspins.f90
@@ -119,7 +119,7 @@ subroutine psb_sspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
     local_ = .false.
   endif
 
-  if (psb_is_bld_desc(desc_a)) then 
+  if (desc_a%is_bld()) then 
 
     if (local_) then
       info = psb_err_invalid_a_and_cd_state_
@@ -158,7 +158,7 @@ subroutine psb_sspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
       end if
     endif
 
-  else if (psb_is_asb_desc(desc_a)) then 
+  else if (desc_a%is_asb()) then 
 
     if (local_) then
       call a%csput(nz,ia,ja,val,ione,nrow,ione,ncol,info)
diff --git a/base/tools/psb_zspins.f90 b/base/tools/psb_zspins.f90
index 747b62a7..ecdcb311 100644
--- a/base/tools/psb_zspins.f90
+++ b/base/tools/psb_zspins.f90
@@ -119,7 +119,7 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
     local_ = .false.
   endif
 
-  if (psb_is_bld_desc(desc_a)) then 
+  if (desc_a%is_bld()) then 
 
     if (local_) then
       info = psb_err_invalid_a_and_cd_state_
@@ -158,7 +158,7 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
       end if
     endif
 
-  else if (psb_is_asb_desc(desc_a)) then 
+  else if (desc_a%is_asb()) then 
 
     if (local_) then
       call a%csput(nz,ia,ja,val,ione,nrow,ione,ncol,info)