mld2p4-2:

mlprec/impl/mld_cmlprec_aply.f90 mlprec/impl/mld_dmlprec_aply.f90 mlprec/impl/mld_smlprec_aply.f90 mlprec/impl/mld_zmlprec_aply.f90 Fix comments.
9 years ago · ad069fe0bf
parent 577174c253
commit ad069fe0bf
4 changed files with 4 additions and 4 deletions
--- a/mlprec/impl/mld_cmlprec_aply.f90
+++ b/mlprec/impl/mld_cmlprec_aply.f90
@ -1552,7 +1552,7 @@ contains
      end if

      !
-      ! Apply the prolongator
+      ! Apply the prolongator and add correction.
      !  
      call psb_map_Y2X(cone,mlprec_wrk(level+1)%y2l,&
           & cone,mlprec_wrk(level)%y2l,&
--- a/mlprec/impl/mld_dmlprec_aply.f90
+++ b/mlprec/impl/mld_dmlprec_aply.f90
@ -1552,7 +1552,7 @@ contains
      end if

      !
-      ! Apply the prolongator
+      ! Apply the prolongator and add correction.
      !  
      call psb_map_Y2X(done,mlprec_wrk(level+1)%y2l,&
           & done,mlprec_wrk(level)%y2l,&
--- a/mlprec/impl/mld_smlprec_aply.f90
+++ b/mlprec/impl/mld_smlprec_aply.f90
@ -1552,7 +1552,7 @@ contains
      end if

      !
-      ! Apply the prolongator
+      ! Apply the prolongator and add correction.
      !  
      call psb_map_Y2X(sone,mlprec_wrk(level+1)%y2l,&
           & sone,mlprec_wrk(level)%y2l,&
--- a/mlprec/impl/mld_zmlprec_aply.f90
+++ b/mlprec/impl/mld_zmlprec_aply.f90
@ -1552,7 +1552,7 @@ contains
      end if

      !
-      ! Apply the prolongator
+      ! Apply the prolongator and add correction.
      !  
      call psb_map_Y2X(zone,mlprec_wrk(level+1)%y2l,&
           & zone,mlprec_wrk(level)%y2l,&