From c1778c802ff4e8eb27567e2447c92c7ee944cee9 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 23 Oct 2007 09:43:49 +0000 Subject: [PATCH] Fixed wrong comment. --- mlprec/mld_diluk_fct.f90 | 2 +- mlprec/mld_ziluk_fct.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/mlprec/mld_diluk_fct.f90 b/mlprec/mld_diluk_fct.f90 index 81907350..54b9d1a7 100644 --- 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) diff --git a/mlprec/mld_ziluk_fct.f90 b/mlprec/mld_ziluk_fct.f90 index 75eb685b..eb9980af 100644 --- 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)