fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 21:02:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
fix for conditional compiling of RSB type module.
This commit is contained in:
Michele Martone
2010-11-19 11:22:47 +00:00
parent 9b39e26a99
commit f97ff39cc3
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/serial/d_matgen.f03
+8
View File
@@ -7,7 +7,9 @@ program d_matgen
use psb_d_cxx_mat_mod use psb_d_cxx_mat_mod
use psb_d_cyy_mat_mod use psb_d_cyy_mat_mod
use psb_d_czz_mat_mod use psb_d_czz_mat_mod
#ifdef HAVE_LIBRSB
use psb_d_rsb_mat_mod use psb_d_rsb_mat_mod
#endif
implicit none implicit none
! input parameters ! input parameters
@@ -33,7 +35,9 @@ program d_matgen
integer :: iter, itmax,itrace, istopc, irst integer :: iter, itmax,itrace, istopc, irst
integer(psb_long_int_k_) :: amatsize, precsize, descsize integer(psb_long_int_k_) :: amatsize, precsize, descsize
real(psb_dpk_) :: err, eps real(psb_dpk_) :: err, eps
#ifdef HAVE_LIBRSB
type(psb_d_rsb_sparse_mat) :: arsb type(psb_d_rsb_sparse_mat) :: arsb
#endif
type(psb_d_cyy_sparse_mat) :: acyy type(psb_d_cyy_sparse_mat) :: acyy
type(psb_d_czz_sparse_mat) :: aczz type(psb_d_czz_sparse_mat) :: aczz
type(psb_d_cxx_sparse_mat) :: acxx type(psb_d_cxx_sparse_mat) :: acxx
@@ -44,7 +48,9 @@ program d_matgen
info=psb_success_ info=psb_success_
#ifdef HAVE_LIBRSB
info=rsb_init() info=rsb_init()
#endif
if(info/=psb_success_)info=psb_err_from_subroutine_ if(info/=psb_success_)info=psb_err_from_subroutine_
if(info/=psb_success_)goto 9999 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,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,aczz)
!call create_matrix(idim,a,b,x,desc_a,ictxt,afmt,info,acxx) !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) call create_matrix(idim,a,b,x,desc_a,ictxt,afmt,info,arsb)
#endif
call psb_barrier(ictxt) call psb_barrier(ictxt)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1
if(info /= psb_success_) then if(info /= psb_success_) then