mld2p4-2:

Fixed epstol into d_epstol.

mlprec/mld_dilu0_fact.f90

@@ -437,7 +437,7 @@ contains
         !     
         ! Check the pivot size
         !     
-        if (abs(dia) < epstol) then
+        if (abs(dia) < d_epstol) then
           !
           ! Too small pivot: unstable factorization
           !     

mlprec/mld_diluk_fact.f90

@@ -940,7 +940,7 @@ contains
     !     
     ! Check the pivot size
     !
-    if (abs(d(i)) < epstol) then
+    if (abs(d(i)) < d_epstol) then
       !
       ! Too small pivot: unstable factorization
       !     

mlprec/mld_dilut_fact.f90

@@ -1015,7 +1015,7 @@ contains
         widx      = idxs(idxp)
         witem     = row(widx)
         d(i)      = witem
-        if (abs(d(i)) < epstol) then
+        if (abs(d(i)) < d_epstol) then
           !
           ! Too small pivot: unstable factorization
           !     

mlprec/mld_dprecbld.f90

@@ -186,9 +186,7 @@ subroutine mld_dprecbld(a,desc_a,p,info)
     end select
     call mld_check_def(p%precv(1)%iprcparm(mld_smoother_sweeps_),&
          & 'Jacobi sweeps',1,is_legal_jac_sweeps)
-!!$
+
-!!$    call mld_baseprec_bld(p%precv(1)%base_a,p%precv(1)%base_desc,&
-!!$         & p%precv(1)%prec,info)
     !
     !  Test version for beginning of OO stuff. 
     ! 

mlprec/mld_silut_fact.f90

@@ -1008,7 +1008,7 @@ contains
         widx      = idxs(idxp)
         witem     = row(widx)
         d(i)      = witem
-        if (abs(d(i)) < epstol) then
+        if (abs(d(i)) < s_epstol) then
           !
           ! Too small pivot: unstable factorization
           !     

mlprec/mld_zilu0_fact.f90

@@ -428,7 +428,7 @@ contains
       !     
       ! Check the pivot size
       !     
-      if (abs(dia) < epstol) then
+      if (abs(dia) < d_epstol) then
         !
         ! Too small pivot: unstable factorization
         !     

mlprec/mld_ziluk_fact.f90

@@ -931,7 +931,7 @@ contains
     !     
     ! Check the pivot size
     !
-    if (abs(d(i)) < epstol) then
+    if (abs(d(i)) < d_epstol) then
       !
       ! Too small pivot: unstable factorization
       !     

mlprec/mld_zilut_fact.f90

@@ -1009,7 +1009,7 @@ contains
         widx      = idxs(idxp)
         witem     = row(widx)
         d(i)      = witem
-        if (abs(d(i)) < epstol) then
+        if (abs(d(i)) < d_epstol) then
           !
           ! Too small pivot: unstable factorization
           !