From 2e751931127b772c0348a210a341b09853534d91 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 3 Dec 2013 18:30:38 +0000
Subject: [PATCH] psblas3:  base/serial/impl/psb_c_csc_impl.f90 
 base/serial/impl/psb_d_csc_impl.f90  base/serial/impl/psb_s_csc_impl.f90 
 base/serial/impl/psb_z_csc_impl.f90

Fix early return from getptn and getrow.
---
 base/serial/impl/psb_c_csc_impl.f90 | 11 +++++++++--
 base/serial/impl/psb_d_csc_impl.f90 | 11 +++++++++--
 base/serial/impl/psb_s_csc_impl.f90 | 11 +++++++++--
 base/serial/impl/psb_z_csc_impl.f90 | 11 +++++++++--
 4 files changed, 36 insertions(+), 8 deletions(-)

diff --git a/base/serial/impl/psb_c_csc_impl.f90 b/base/serial/impl/psb_c_csc_impl.f90
index 25919bc9..f3de12a8 100644
--- a/base/serial/impl/psb_c_csc_impl.f90
+++ b/base/serial/impl/psb_c_csc_impl.f90
@@ -1615,7 +1615,10 @@ subroutine psb_c_csc_csgetptn(imin,imax,a,nz,ia,ja,info,&
     jmax_ = a%get_ncols()
   endif
 
-  if ((imax<imin).or.(jmax_<jmin_)) return
+  if ((imax<imin).or.(jmax_<jmin_)) then 
+    nz = 0
+    return
+  end if
 
   if (present(append)) then
     append_=append
@@ -1805,7 +1808,11 @@ subroutine psb_c_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
     jmax_ = a%get_ncols()
   endif
 
-  if ((imax<imin).or.(jmax_<jmin_)) return
+
+  if ((imax<imin).or.(jmax_<jmin_)) then 
+    nz = 0
+    return
+  end if
 
   if (present(append)) then
     append_=append
diff --git a/base/serial/impl/psb_d_csc_impl.f90 b/base/serial/impl/psb_d_csc_impl.f90
index b1280ce7..c6b390ae 100644
--- a/base/serial/impl/psb_d_csc_impl.f90
+++ b/base/serial/impl/psb_d_csc_impl.f90
@@ -1615,7 +1615,10 @@ subroutine psb_d_csc_csgetptn(imin,imax,a,nz,ia,ja,info,&
     jmax_ = a%get_ncols()
   endif
 
-  if ((imax<imin).or.(jmax_<jmin_)) return
+  if ((imax<imin).or.(jmax_<jmin_)) then 
+    nz = 0
+    return
+  end if
 
   if (present(append)) then
     append_=append
@@ -1805,7 +1808,11 @@ subroutine psb_d_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
     jmax_ = a%get_ncols()
   endif
 
-  if ((imax<imin).or.(jmax_<jmin_)) return
+
+  if ((imax<imin).or.(jmax_<jmin_)) then 
+    nz = 0
+    return
+  end if
 
   if (present(append)) then
     append_=append
diff --git a/base/serial/impl/psb_s_csc_impl.f90 b/base/serial/impl/psb_s_csc_impl.f90
index fb21e669..5fefa575 100644
--- a/base/serial/impl/psb_s_csc_impl.f90
+++ b/base/serial/impl/psb_s_csc_impl.f90
@@ -1615,7 +1615,10 @@ subroutine psb_s_csc_csgetptn(imin,imax,a,nz,ia,ja,info,&
     jmax_ = a%get_ncols()
   endif
 
-  if ((imax<imin).or.(jmax_<jmin_)) return
+  if ((imax<imin).or.(jmax_<jmin_)) then 
+    nz = 0
+    return
+  end if
 
   if (present(append)) then
     append_=append
@@ -1805,7 +1808,11 @@ subroutine psb_s_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
     jmax_ = a%get_ncols()
   endif
 
-  if ((imax<imin).or.(jmax_<jmin_)) return
+
+  if ((imax<imin).or.(jmax_<jmin_)) then 
+    nz = 0
+    return
+  end if
 
   if (present(append)) then
     append_=append
diff --git a/base/serial/impl/psb_z_csc_impl.f90 b/base/serial/impl/psb_z_csc_impl.f90
index 74996aaa..7ffcf8fb 100644
--- a/base/serial/impl/psb_z_csc_impl.f90
+++ b/base/serial/impl/psb_z_csc_impl.f90
@@ -1615,7 +1615,10 @@ subroutine psb_z_csc_csgetptn(imin,imax,a,nz,ia,ja,info,&
     jmax_ = a%get_ncols()
   endif
 
-  if ((imax<imin).or.(jmax_<jmin_)) return
+  if ((imax<imin).or.(jmax_<jmin_)) then 
+    nz = 0
+    return
+  end if
 
   if (present(append)) then
     append_=append
@@ -1805,7 +1808,11 @@ subroutine psb_z_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
     jmax_ = a%get_ncols()
   endif
 
-  if ((imax<imin).or.(jmax_<jmin_)) return
+
+  if ((imax<imin).or.(jmax_<jmin_)) then 
+    nz = 0
+    return
+  end if
 
   if (present(append)) then
     append_=append