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.
2026-10-06 22:55:12 +00:00 · 2016-06-17 13:43:37 +00:00
parent 577174c253
commit ad069fe0bf
4 changed files with 4 additions and 4 deletions
@@ -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,&
@@ -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,&
@@ -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,&
@@ -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,&