From dfc261cf341787f4eb2e68e7f0e20e80ba5155a5 Mon Sep 17 00:00:00 2001 From: sfilippone Date: Thu, 12 Sep 2024 18:45:20 +0200 Subject: [PATCH] Modify error message in smth_bld --- amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90 | 2 +- amgprec/impl/aggregator/amg_caggrmat_smth_bld.f90 | 2 +- amgprec/impl/aggregator/amg_d_parmatch_smth_bld.F90 | 2 +- amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90 | 2 +- amgprec/impl/aggregator/amg_daggrmat_smth_bld.f90 | 2 +- amgprec/impl/aggregator/amg_s_parmatch_smth_bld.F90 | 2 +- amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90 | 2 +- amgprec/impl/aggregator/amg_saggrmat_smth_bld.f90 | 2 +- amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90 | 2 +- amgprec/impl/aggregator/amg_zaggrmat_smth_bld.f90 | 2 +- 10 files changed, 10 insertions(+), 10 deletions(-) diff --git a/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90 b/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90 index 612c2953..8ac86dc6 100644 --- a/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90 +++ b/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90 @@ -300,7 +300,7 @@ subroutine amg_caggrmat_minnrg_bld(a,desc_a,ilaggr,nlaggr,parms,& !!$ endif !!$ enddo !!$ if (jd == -1) then -!!$ write(0,*) 'Wrong input: we need the diagonal!!!!', i +!!$ write(0,*) name,': Warning: there is no diagonal element', i !!$ else !!$ acsrf%val(jd)=acsrf%val(jd)-tmp !!$ end if diff --git a/amgprec/impl/aggregator/amg_caggrmat_smth_bld.f90 b/amgprec/impl/aggregator/amg_caggrmat_smth_bld.f90 index c4a85b05..67fce476 100644 --- a/amgprec/impl/aggregator/amg_caggrmat_smth_bld.f90 +++ b/amgprec/impl/aggregator/amg_caggrmat_smth_bld.f90 @@ -230,7 +230,7 @@ subroutine amg_caggrmat_smth_bld(a,desc_a,ilaggr,nlaggr,parms,& enddo if (jd == -1) then - write(0,*) 'Wrong input: we need the diagonal!!!!', i + write(0,*) name,': Warning: there is no diagonal element', i else acsrf%val(jd)=acsrf%val(jd)-tmp end if diff --git a/amgprec/impl/aggregator/amg_d_parmatch_smth_bld.F90 b/amgprec/impl/aggregator/amg_d_parmatch_smth_bld.F90 index 2ad6388d..b20b2fa8 100644 --- a/amgprec/impl/aggregator/amg_d_parmatch_smth_bld.F90 +++ b/amgprec/impl/aggregator/amg_d_parmatch_smth_bld.F90 @@ -246,7 +246,7 @@ subroutine amg_d_parmatch_smth_bld(ag,a,desc_a,ilaggr,nlaggr,parms,& enddo if (jd == -1) then - write(0,*) 'Wrong input: we need the diagonal!!!!', i + write(0,*) name,': Warning: there is no diagonal element', i else acsrf%val(jd)=acsrf%val(jd)-tmp end if diff --git a/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90 b/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90 index f7b21847..510339e7 100644 --- a/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90 +++ b/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90 @@ -300,7 +300,7 @@ subroutine amg_daggrmat_minnrg_bld(a,desc_a,ilaggr,nlaggr,parms,& !!$ endif !!$ enddo !!$ if (jd == -1) then -!!$ write(0,*) 'Wrong input: we need the diagonal!!!!', i +!!$ write(0,*) name,': Warning: there is no diagonal element', i !!$ else !!$ acsrf%val(jd)=acsrf%val(jd)-tmp !!$ end if diff --git a/amgprec/impl/aggregator/amg_daggrmat_smth_bld.f90 b/amgprec/impl/aggregator/amg_daggrmat_smth_bld.f90 index d365bf27..d12f9c6b 100644 --- a/amgprec/impl/aggregator/amg_daggrmat_smth_bld.f90 +++ b/amgprec/impl/aggregator/amg_daggrmat_smth_bld.f90 @@ -230,7 +230,7 @@ subroutine amg_daggrmat_smth_bld(a,desc_a,ilaggr,nlaggr,parms,& enddo if (jd == -1) then - write(0,*) 'Wrong input: we need the diagonal!!!!', i + write(0,*) name,': Warning: there is no diagonal element', i else acsrf%val(jd)=acsrf%val(jd)-tmp end if diff --git a/amgprec/impl/aggregator/amg_s_parmatch_smth_bld.F90 b/amgprec/impl/aggregator/amg_s_parmatch_smth_bld.F90 index a3f79fc5..323853d1 100644 --- a/amgprec/impl/aggregator/amg_s_parmatch_smth_bld.F90 +++ b/amgprec/impl/aggregator/amg_s_parmatch_smth_bld.F90 @@ -246,7 +246,7 @@ subroutine amg_s_parmatch_smth_bld(ag,a,desc_a,ilaggr,nlaggr,parms,& enddo if (jd == -1) then - write(0,*) 'Wrong input: we need the diagonal!!!!', i + write(0,*) name,': Warning: there is no diagonal element', i else acsrf%val(jd)=acsrf%val(jd)-tmp end if diff --git a/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90 b/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90 index 66514a66..a609e382 100644 --- a/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90 +++ b/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90 @@ -300,7 +300,7 @@ subroutine amg_saggrmat_minnrg_bld(a,desc_a,ilaggr,nlaggr,parms,& !!$ endif !!$ enddo !!$ if (jd == -1) then -!!$ write(0,*) 'Wrong input: we need the diagonal!!!!', i +!!$ write(0,*) name,': Warning: there is no diagonal element', i !!$ else !!$ acsrf%val(jd)=acsrf%val(jd)-tmp !!$ end if diff --git a/amgprec/impl/aggregator/amg_saggrmat_smth_bld.f90 b/amgprec/impl/aggregator/amg_saggrmat_smth_bld.f90 index c2eae3a4..b70490ba 100644 --- a/amgprec/impl/aggregator/amg_saggrmat_smth_bld.f90 +++ b/amgprec/impl/aggregator/amg_saggrmat_smth_bld.f90 @@ -230,7 +230,7 @@ subroutine amg_saggrmat_smth_bld(a,desc_a,ilaggr,nlaggr,parms,& enddo if (jd == -1) then - write(0,*) 'Wrong input: we need the diagonal!!!!', i + write(0,*) name,': Warning: there is no diagonal element', i else acsrf%val(jd)=acsrf%val(jd)-tmp end if diff --git a/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90 b/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90 index 89d6d89d..7bafbc18 100644 --- a/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90 +++ b/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90 @@ -300,7 +300,7 @@ subroutine amg_zaggrmat_minnrg_bld(a,desc_a,ilaggr,nlaggr,parms,& !!$ endif !!$ enddo !!$ if (jd == -1) then -!!$ write(0,*) 'Wrong input: we need the diagonal!!!!', i +!!$ write(0,*) name,': Warning: there is no diagonal element', i !!$ else !!$ acsrf%val(jd)=acsrf%val(jd)-tmp !!$ end if diff --git a/amgprec/impl/aggregator/amg_zaggrmat_smth_bld.f90 b/amgprec/impl/aggregator/amg_zaggrmat_smth_bld.f90 index 7b8ed075..11f30589 100644 --- a/amgprec/impl/aggregator/amg_zaggrmat_smth_bld.f90 +++ b/amgprec/impl/aggregator/amg_zaggrmat_smth_bld.f90 @@ -230,7 +230,7 @@ subroutine amg_zaggrmat_smth_bld(a,desc_a,ilaggr,nlaggr,parms,& enddo if (jd == -1) then - write(0,*) 'Wrong input: we need the diagonal!!!!', i + write(0,*) name,': Warning: there is no diagonal element', i else acsrf%val(jd)=acsrf%val(jd)-tmp end if