From 3871b673ec4721ba6fa3f99f928c8bedc511da36 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 5 Nov 2010 11:22:05 +0000 Subject: [PATCH] psblas3: Fix interace problem in test/matgen. --- test/serial/d_matgen.f03 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/test/serial/d_matgen.f03 b/test/serial/d_matgen.f03 index 6fe7da0d..6c3ee512 100644 --- a/test/serial/d_matgen.f03 +++ b/test/serial/d_matgen.f03 @@ -30,8 +30,8 @@ program d_matgen integer :: iter, itmax,itrace, istopc, irst integer(psb_long_int_k_) :: amatsize, precsize, descsize real(psb_dpk_) :: err, eps - class(psb_d_cxx_sparse_mat), allocatable :: acxx - + type(psb_d_cxx_sparse_mat) :: acxx + ! other variables integer :: info, err_act character(len=20) :: name,ch_err @@ -50,7 +50,7 @@ program d_matgen if(psb_get_errstatus() /= 0) goto 9999 call psb_set_errverbosity(2) - + ! ! get parameters ! @@ -144,7 +144,7 @@ contains integer, parameter :: nb=20 real(psb_dpk_), allocatable :: b(:),xv(:) type(psb_desc_type) :: desc_a - class(psb_d_base_sparse_mat), allocatable :: mold + class(psb_d_base_sparse_mat) :: mold integer :: ictxt, info character :: afmt*5 type(psb_dspmat_type) :: a