From 0134a48abb94d207e7b152027bca8ae1b6a39c58 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 7 Dec 2012 15:13:20 +0000 Subject: [PATCH] mld2p4-2: mlprec/impl/mld_caggrmat_asb.f90 mlprec/impl/mld_daggrmat_asb.f90 mlprec/impl/mld_saggrmat_asb.f90 mlprec/impl/mld_zaggrmat_asb.f90 Cosmetic fixes. --- mlprec/impl/mld_caggrmat_asb.f90 | 3 ++- mlprec/impl/mld_daggrmat_asb.f90 | 3 ++- mlprec/impl/mld_saggrmat_asb.f90 | 3 ++- mlprec/impl/mld_zaggrmat_asb.f90 | 3 ++- 4 files changed, 8 insertions(+), 4 deletions(-) diff --git a/mlprec/impl/mld_caggrmat_asb.f90 b/mlprec/impl/mld_caggrmat_asb.f90 index 539296de..87b289b9 100644 --- a/mlprec/impl/mld_caggrmat_asb.f90 +++ b/mlprec/impl/mld_caggrmat_asb.f90 @@ -221,7 +221,8 @@ subroutine mld_caggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info) if (info == psb_success_) call op_restr%mv_from(acoo) if (info == psb_success_) call op_restr%cscnv(info,type='csr') if(info /= psb_success_) then - call psb_errpush(psb_err_internal_error_,name,a_err='Converting op_restr to local') + call psb_errpush(psb_err_internal_error_,name,& + & a_err='Converting op_restr to local') goto 9999 end if end if diff --git a/mlprec/impl/mld_daggrmat_asb.f90 b/mlprec/impl/mld_daggrmat_asb.f90 index 77e66446..62dcb739 100644 --- a/mlprec/impl/mld_daggrmat_asb.f90 +++ b/mlprec/impl/mld_daggrmat_asb.f90 @@ -221,7 +221,8 @@ subroutine mld_daggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info) if (info == psb_success_) call op_restr%mv_from(acoo) if (info == psb_success_) call op_restr%cscnv(info,type='csr') if(info /= psb_success_) then - call psb_errpush(psb_err_internal_error_,name,a_err='Converting op_restr to local') + call psb_errpush(psb_err_internal_error_,name,& + & a_err='Converting op_restr to local') goto 9999 end if end if diff --git a/mlprec/impl/mld_saggrmat_asb.f90 b/mlprec/impl/mld_saggrmat_asb.f90 index 0849026a..3610afff 100644 --- a/mlprec/impl/mld_saggrmat_asb.f90 +++ b/mlprec/impl/mld_saggrmat_asb.f90 @@ -221,7 +221,8 @@ subroutine mld_saggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info) if (info == psb_success_) call op_restr%mv_from(acoo) if (info == psb_success_) call op_restr%cscnv(info,type='csr') if(info /= psb_success_) then - call psb_errpush(psb_err_internal_error_,name,a_err='Converting op_restr to local') + call psb_errpush(psb_err_internal_error_,name,& + & a_err='Converting op_restr to local') goto 9999 end if end if diff --git a/mlprec/impl/mld_zaggrmat_asb.f90 b/mlprec/impl/mld_zaggrmat_asb.f90 index 4d5c083d..764bdb50 100644 --- a/mlprec/impl/mld_zaggrmat_asb.f90 +++ b/mlprec/impl/mld_zaggrmat_asb.f90 @@ -221,7 +221,8 @@ subroutine mld_zaggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info) if (info == psb_success_) call op_restr%mv_from(acoo) if (info == psb_success_) call op_restr%cscnv(info,type='csr') if(info /= psb_success_) then - call psb_errpush(psb_err_internal_error_,name,a_err='Converting op_restr to local') + call psb_errpush(psb_err_internal_error_,name,& + & a_err='Converting op_restr to local') goto 9999 end if end if