From dccb20652deb7f4d02de0555f8efb38213dcd03b Mon Sep 17 00:00:00 2001 From: sfilippone Date: Wed, 9 Sep 2026 15:34:49 +0200 Subject: [PATCH] Invoke D2S in main sample program --- samples/advanced/MixedPrec/Makefile | 2 +- samples/advanced/MixedPrec/amg_d_pde3d.F90 | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) 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