diff --git a/samples/advanced/MixedPrec/Makefile b/samples/advanced/MixedPrec/Makefile index 3e9a970b..8a24ed17 100644 --- a/samples/advanced/MixedPrec/Makefile +++ b/samples/advanced/MixedPrec/Makefile @@ -26,7 +26,7 @@ dir: (if test ! -d $(EXEDIR); then mkdir $(EXEDIR); fi) amg_d_pde3d: amg_d_pde3d.o amg_d_genpde_mod.o $(DGEN3D) $(PSBMIXED) data_input.o - $(FLINK) $(LINKOPT) amg_d_pde3d.o amg_d_genpde_mod.o $(DGEN3D) data_input.o \ + $(FLINK) $(LINKOPT) amg_d_pde3d.o amg_d_genpde_mod.o $(DGEN3D) $(PSBMIXED) data_input.o \ -o amg_d_pde3d $(AMG_LIBS) $(PSBLAS_LIBS) $(AMG_LDLIBS) $(LDLIBS) /bin/mv amg_d_pde3d $(EXEDIR) diff --git a/samples/advanced/MixedPrec/amg_d_pde3d.F90 b/samples/advanced/MixedPrec/amg_d_pde3d.F90 index 2911b576..d69d97d7 100644 --- a/samples/advanced/MixedPrec/amg_d_pde3d.F90 +++ b/samples/advanced/MixedPrec/amg_d_pde3d.F90 @@ -93,6 +93,7 @@ program amg_d_pde3d ! sparse matrix and preconditioner type(psb_dspmat_type) :: a + type(psb_sspmat_type) :: asingle type(amg_dprec_type) :: prec ! descriptor type(psb_desc_type) :: desc_a @@ -286,6 +287,7 @@ program amg_d_pde3d goto 9999 end select + call psb_d2s_cscnv(a,asingle,info,type=afmt) call psb_barrier(ctxt) tpgen = psb_wtime() - t1