mld2p4:

Fixed warning message in multilevel reallocation.

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
+             & iszv,' coincide.'
-        write(debug_unit,*) trim(name),&
-             &':          coincide.'
         write(debug_unit,*) trim(name),&
              &': Number of levels actually used :',newsz
         write(debug_unit,*)

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
+             & iszv,' coincide.'
-        write(debug_unit,*) trim(name),&
-             &':          coincide.'
         write(debug_unit,*) trim(name),&
              &': Number of levels actually used :',newsz
         write(debug_unit,*)

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
+             & iszv,' coincide.'
-        write(debug_unit,*) trim(name),&
-             &':          coincide.'
         write(debug_unit,*) trim(name),&
              &': Number of levels actually used :',newsz
         write(debug_unit,*)

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
+             & iszv,' coincide.'
-        write(debug_unit,*) trim(name),&
-             &':          coincide.'
         write(debug_unit,*) trim(name),&
              &': Number of levels actually used :',newsz
         write(debug_unit,*)