Fixed wrong comment.

17 years ago · c1778c802f
parent 4e91e8d2c6
commit c1778c802f
2 changed files with 2 additions and 2 deletions
--- a/mlprec/mld_diluk_fct.f90
+++ b/mlprec/mld_diluk_fct.f90
@ -210,7 +210,7 @@ contains
      if (debug) write(0,*)'LUINT: input Copy done'
      ! Do an elimination step on current row
      ! Turns out we only need to keep track of levels
-      ! for the upper triangle, hence no uplevs variable.
+      ! for the upper triangle, hence no lowlevs variable.
      !
      call iluk_fact(fill_in,i,m,row,rowlevs,heap,&
           & d,uia1,uia2,uaspk,uplevs,nidx,idxs)
--- a/mlprec/mld_ziluk_fct.f90
+++ b/mlprec/mld_ziluk_fct.f90
@ -210,7 +210,7 @@ contains
      if (debug) write(0,*)'LUINT: input Copy done'
      ! Do an elimination step on current row
      ! Turns out we only need to keep track of levels
-      ! for the upper triangle, hence no uplevs variable.
+      ! for the upper triangle, hence no lowlevs variable.
      !
      call iluk_fact(fill_in,i,m,row,rowlevs,heap,&
           & d,uia1,uia2,uaspk,uplevs,nidx,idxs)