From 338dda176211a7062cb7f07cff68d82ff50c2005 Mon Sep 17 00:00:00 2001
From: Michele Martone <michele.martone@ipp.mpg.de>
Date: Mon, 18 Apr 2011 16:16:04 +0000
Subject: [PATCH] mld2p4: if compiling with rsb and uncommenting an #undef, rsb
 will override the input-specified matrix format.

---
 tests/fileread/df_sample.F90 | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/tests/fileread/df_sample.F90 b/tests/fileread/df_sample.F90
index a1762437..3762959b 100644
--- a/tests/fileread/df_sample.F90
+++ b/tests/fileread/df_sample.F90
@@ -104,6 +104,8 @@ program df_sample
   real(psb_dpk_)   :: err, eps
 #ifdef HAVE_LIBRSB
   type(psb_d_rsb_sparse_mat) :: arsb
+  type(psb_d_csr_sparse_mat) :: acsr
+  !class(psb_d_base_sparse_mat)   :: mold
 #endif
 
   character(len=5)   :: afmt
@@ -245,6 +247,10 @@ program df_sample
     call psb_matdist(aux_a, a,  ictxt, &
          & desc_a,b_col_glob,b_col,info,fmt=afmt,parts=part_block)
   end if
+#ifdef HAVE_LIBRSB
+  call a%cscnv(info,mold=arsb)
+  !call a%cscnv(info,mold=acsr)
+#endif
 
   call psb_geall(x_col,desc_a,info)
   x_col(:) =0.0