From 725e39586dc6b6ad0ce9e3bd5b89af32b9ceea31 Mon Sep 17 00:00:00 2001 From: sfilippone Date: Fri, 21 Feb 2025 15:22:51 +0100 Subject: [PATCH] Fix TLU solver_bld and CUDA test program to print format. --- samples/cuda/amg_dexample_cuda.F90 | 2 ++ samples/newslv/amg_d_tlu_solver_impl.f90 | 4 +++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/samples/cuda/amg_dexample_cuda.F90 b/samples/cuda/amg_dexample_cuda.F90 index 548a7819..4eb5e218 100644 --- a/samples/cuda/amg_dexample_cuda.F90 +++ b/samples/cuda/amg_dexample_cuda.F90 @@ -1312,6 +1312,8 @@ program amg_dexample_cuda write(*,'("Total memory occupation for A : ",i12)')amatsize write(*,'("Total memory occupation for DESC_A : ",i12)')descsize write(*,'("Total memory occupation for PREC : ",i12)')precsize + write(*,'("Storage format for A: ",a)') trim(a%get_fmt()) + write(*,'("Storage format for DESC_A: ",a)') trim(desc_a%get_fmt()) end if call psb_gefree(b, desc_A,info) diff --git a/samples/newslv/amg_d_tlu_solver_impl.f90 b/samples/newslv/amg_d_tlu_solver_impl.f90 index 6593ce9a..fe039227 100644 --- a/samples/newslv/amg_d_tlu_solver_impl.f90 +++ b/samples/newslv/amg_d_tlu_solver_impl.f90 @@ -44,7 +44,7 @@ ! we are simply giving a new name to ILU(0). ! ! -subroutine amg_d_tlu_solver_bld(a,desc_a,sv,info,b,amold,vmold) +subroutine amg_d_tlu_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold) use psb_base_mod use amg_d_tlu_solver, amg_protect_name => amg_d_tlu_solver_bld @@ -59,6 +59,8 @@ subroutine amg_d_tlu_solver_bld(a,desc_a,sv,info,b,amold,vmold) type(psb_dspmat_type), intent(in), target, optional :: b class(psb_d_base_sparse_mat), intent(in), optional :: amold class(psb_d_base_vect_type), intent(in), optional :: vmold + class(psb_i_base_vect_type), intent(in), optional :: imold + ! Local variables integer :: n_row,n_col, nrow_a, nztota integer :: np,me,i, err_act, debug_unit, debug_level