psblas3:

fix for conditional compiling of RSB type module.

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