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

@@ -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

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

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

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