From 4de41865e86ecf5288f6b782ba851fd0611b342c Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 14 Jan 2009 09:44:01 +0000 Subject: [PATCH] mld2p4: Fixed warning message in multilevel reallocation. --- mlprec/mld_cprecbld.f90 | 4 +--- mlprec/mld_dprecbld.f90 | 4 +--- mlprec/mld_sprecbld.f90 | 4 +--- mlprec/mld_zprecbld.f90 | 4 +--- 4 files changed, 4 insertions(+), 12 deletions(-) diff --git a/mlprec/mld_cprecbld.f90 b/mlprec/mld_cprecbld.f90 index 46b5054d..e01ccc01 100644 --- a/mlprec/mld_cprecbld.f90 +++ b/mlprec/mld_cprecbld.f90 @@ -240,9 +240,7 @@ subroutine mld_cprecbld(a,desc_a,p,info) & newsz write(debug_unit,*) trim(name),& &': to level ',& - & iszv - write(debug_unit,*) trim(name),& - &': coincide.' + & iszv,' coincide.' write(debug_unit,*) trim(name),& &': Number of levels actually used :',newsz write(debug_unit,*) diff --git a/mlprec/mld_dprecbld.f90 b/mlprec/mld_dprecbld.f90 index 94f00f8f..f1c30b30 100644 --- a/mlprec/mld_dprecbld.f90 +++ b/mlprec/mld_dprecbld.f90 @@ -240,9 +240,7 @@ subroutine mld_dprecbld(a,desc_a,p,info) & newsz write(debug_unit,*) trim(name),& &': to level ',& - & iszv - write(debug_unit,*) trim(name),& - &': coincide.' + & iszv,' coincide.' write(debug_unit,*) trim(name),& &': Number of levels actually used :',newsz write(debug_unit,*) diff --git a/mlprec/mld_sprecbld.f90 b/mlprec/mld_sprecbld.f90 index 250fbda5..9283537d 100644 --- a/mlprec/mld_sprecbld.f90 +++ b/mlprec/mld_sprecbld.f90 @@ -240,9 +240,7 @@ subroutine mld_sprecbld(a,desc_a,p,info) & newsz write(debug_unit,*) trim(name),& &': to level ',& - & iszv - write(debug_unit,*) trim(name),& - &': coincide.' + & iszv,' coincide.' write(debug_unit,*) trim(name),& &': Number of levels actually used :',newsz write(debug_unit,*) diff --git a/mlprec/mld_zprecbld.f90 b/mlprec/mld_zprecbld.f90 index 43cc08fb..f17bcd24 100644 --- a/mlprec/mld_zprecbld.f90 +++ b/mlprec/mld_zprecbld.f90 @@ -240,9 +240,7 @@ subroutine mld_zprecbld(a,desc_a,p,info) & newsz write(debug_unit,*) trim(name),& &': to level ',& - & iszv - write(debug_unit,*) trim(name),& - &': coincide.' + & iszv,' coincide.' write(debug_unit,*) trim(name),& &': Number of levels actually used :',newsz write(debug_unit,*)