Fixed comment on trans=N: we now handle trans=T correctly in multiple

Jacobi sweeps.
17 years ago · 1a00c98ae8
parent 38ff0f0373
commit 1a00c98ae8
2 changed files with 0 additions and 3 deletions
--- a/mlprec/mld_dsub_aply.f90
+++ b/mlprec/mld_dsub_aply.f90
@ -214,7 +214,6 @@ subroutine mld_dsub_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
    ! Apply prec%iprcparm(smooth_sweeps_) sweeps of a block-Jacobi solver
    ! to compute an approximate solution of a linear system.
    !
-    ! Note: trans is always 'N' here.
    !

    if (size(prec%av) < mld_ap_nd_) then 
--- a/mlprec/mld_zsub_aply.f90
+++ b/mlprec/mld_zsub_aply.f90
@ -215,8 +215,6 @@ subroutine mld_zsub_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
    ! Apply prec%iprcparm(smooth_sweeps_) sweeps of a block-Jacobi solver
    ! to compute an approximate solution of a linear system.
    !
-    ! Note: trans is always 'N' here.
-    !

    if (size(prec%av) < mld_ap_nd_) then 
      info = 4011