From f97ff39cc38cca494a2d7fb39b7b5e19efbfe476 Mon Sep 17 00:00:00 2001
From: Michele Martone <michele.martone@ipp.mpg.de>
Date: Fri, 19 Nov 2010 11:22:47 +0000
Subject: [PATCH] psblas3: fix for conditional compiling of RSB type module.

---
 test/serial/d_matgen.f03 | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/test/serial/d_matgen.f03 b/test/serial/d_matgen.f03
index 7e7cce9d..4b6f59f3 100644
--- a/test/serial/d_matgen.f03
+++ b/test/serial/d_matgen.f03
@@ -7,7 +7,9 @@ program d_matgen
   use psb_d_cxx_mat_mod
   use psb_d_cyy_mat_mod
   use psb_d_czz_mat_mod
+#ifdef HAVE_LIBRSB
   use psb_d_rsb_mat_mod
+#endif
   implicit none
 
   ! input parameters
@@ -33,7 +35,9 @@ program d_matgen
   integer            :: iter, itmax,itrace, istopc, irst
   integer(psb_long_int_k_) :: amatsize, precsize, descsize
   real(psb_dpk_)   :: err, eps
+#ifdef HAVE_LIBRSB
   type(psb_d_rsb_sparse_mat) :: arsb
+#endif
   type(psb_d_cyy_sparse_mat) :: acyy
   type(psb_d_czz_sparse_mat) :: aczz
   type(psb_d_cxx_sparse_mat) :: acxx
@@ -44,7 +48,9 @@ program d_matgen
 
   info=psb_success_
 
+#ifdef HAVE_LIBRSB
   info=rsb_init()
+#endif
   if(info/=psb_success_)info=psb_err_from_subroutine_
   if(info/=psb_success_)goto 9999
 
@@ -73,7 +79,9 @@ program d_matgen
   !call create_matrix(idim,a,b,x,desc_a,ictxt,afmt,info,acyy)  
   !call create_matrix(idim,a,b,x,desc_a,ictxt,afmt,info,aczz)  
   !call create_matrix(idim,a,b,x,desc_a,ictxt,afmt,info,acxx)  
+#ifdef HAVE_LIBRSB
   call create_matrix(idim,a,b,x,desc_a,ictxt,afmt,info,arsb)  
+#endif
   call psb_barrier(ictxt)
   t2 = psb_wtime() - t1
   if(info /= psb_success_) then