mirror of
https://github.com/sfilippone/amg4psblas.git
synced 2026-10-19 04:12:11 +00:00
mld2p4-2:
mlprec/impl/mld_caggrmat_smth_asb.f90 mlprec/impl/mld_daggrmat_smth_asb.f90 mlprec/impl/mld_saggrmat_smth_asb.f90 mlprec/impl/mld_zaggrmat_smth_asb.f90 Fixed misspelling.
This commit is contained in:
@@ -191,7 +191,7 @@ subroutine mld_caggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_rest
|
||||
|
||||
if (debug_level >= psb_debug_outer_) &
|
||||
& write(debug_unit,*) me,' ',trim(name),&
|
||||
& ' Initial copies sone.'
|
||||
& ' Initial copies done.'
|
||||
|
||||
if (filter_mat) then
|
||||
!
|
||||
|
||||
@@ -191,7 +191,7 @@ subroutine mld_daggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_rest
|
||||
|
||||
if (debug_level >= psb_debug_outer_) &
|
||||
& write(debug_unit,*) me,' ',trim(name),&
|
||||
& ' Initial copies sone.'
|
||||
& ' Initial copies done.'
|
||||
|
||||
if (filter_mat) then
|
||||
!
|
||||
|
||||
@@ -191,7 +191,7 @@ subroutine mld_saggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_rest
|
||||
|
||||
if (debug_level >= psb_debug_outer_) &
|
||||
& write(debug_unit,*) me,' ',trim(name),&
|
||||
& ' Initial copies sone.'
|
||||
& ' Initial copies done.'
|
||||
|
||||
if (filter_mat) then
|
||||
!
|
||||
|
||||
@@ -191,7 +191,7 @@ subroutine mld_zaggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_rest
|
||||
|
||||
if (debug_level >= psb_debug_outer_) &
|
||||
& write(debug_unit,*) me,' ',trim(name),&
|
||||
& ' Initial copies sone.'
|
||||
& ' Initial copies done.'
|
||||
|
||||
if (filter_mat) then
|
||||
!
|
||||
|
||||
Reference in New Issue
Block a user