From 80185463ea54d48409da70d14b0f78df0d45a026 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 28 Oct 2022 12:50:53 +0200 Subject: [PATCH] Fix bug in KRM prec_descr --- amgprec/amg_c_krm_solver.f90 | 2 +- amgprec/amg_d_krm_solver.f90 | 2 +- amgprec/amg_s_krm_solver.f90 | 2 +- amgprec/amg_z_krm_solver.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/amgprec/amg_c_krm_solver.f90 b/amgprec/amg_c_krm_solver.f90 index 645e10bd..4b8b1faa 100644 --- a/amgprec/amg_c_krm_solver.f90 +++ b/amgprec/amg_c_krm_solver.f90 @@ -473,7 +473,7 @@ contains end if write(iout_,*) trim(prefix_), ' method: ',sv%method write(iout_,*) trim(prefix_), ' kprec: ',sv%kprec - call sv%prec%descr(iout_,info,prefix='KRM : '//prefix_) + call sv%prec%descr(info,iout_,prefix='KRM : '//prefix_) write(iout_,*) trim(prefix_), ' itmax: ',sv%itmax write(iout_,*) trim(prefix_), ' eps: ',sv%eps diff --git a/amgprec/amg_d_krm_solver.f90 b/amgprec/amg_d_krm_solver.f90 index eaa92f09..9bb48a9e 100644 --- a/amgprec/amg_d_krm_solver.f90 +++ b/amgprec/amg_d_krm_solver.f90 @@ -473,7 +473,7 @@ contains end if write(iout_,*) trim(prefix_), ' method: ',sv%method write(iout_,*) trim(prefix_), ' kprec: ',sv%kprec - call sv%prec%descr(iout_,info,prefix='KRM : '//prefix_) + call sv%prec%descr(info,iout_,prefix='KRM : '//prefix_) write(iout_,*) trim(prefix_), ' itmax: ',sv%itmax write(iout_,*) trim(prefix_), ' eps: ',sv%eps diff --git a/amgprec/amg_s_krm_solver.f90 b/amgprec/amg_s_krm_solver.f90 index 22a09885..fcabfd13 100644 --- a/amgprec/amg_s_krm_solver.f90 +++ b/amgprec/amg_s_krm_solver.f90 @@ -473,7 +473,7 @@ contains end if write(iout_,*) trim(prefix_), ' method: ',sv%method write(iout_,*) trim(prefix_), ' kprec: ',sv%kprec - call sv%prec%descr(iout_,info,prefix='KRM : '//prefix_) + call sv%prec%descr(info,iout_,prefix='KRM : '//prefix_) write(iout_,*) trim(prefix_), ' itmax: ',sv%itmax write(iout_,*) trim(prefix_), ' eps: ',sv%eps diff --git a/amgprec/amg_z_krm_solver.f90 b/amgprec/amg_z_krm_solver.f90 index 83bc2074..da539732 100644 --- a/amgprec/amg_z_krm_solver.f90 +++ b/amgprec/amg_z_krm_solver.f90 @@ -473,7 +473,7 @@ contains end if write(iout_,*) trim(prefix_), ' method: ',sv%method write(iout_,*) trim(prefix_), ' kprec: ',sv%kprec - call sv%prec%descr(iout_,info,prefix='KRM : '//prefix_) + call sv%prec%descr(info,iout_,prefix='KRM : '//prefix_) write(iout_,*) trim(prefix_), ' itmax: ',sv%itmax write(iout_,*) trim(prefix_), ' eps: ',sv%eps