fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-07 07:04:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

Invoke D2S in main sample program

Browse Source
This commit is contained in:
sfilippone
2026-09-09 15:34:49 +02:00
parent 5433634f7d
commit dccb20652d
2 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/advanced/MixedPrec/Makefile
+1 -1
View File
@@ -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)
samples/advanced/MixedPrec/amg_d_pde3d.F90
+2
View File
@@ -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