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 in  MLPREC_APLY: clarify usage of sweeps_pre and sweeps_post

mlprec/impl/mld_cmlprec_aply.f90

@@ -696,20 +696,13 @@ contains
       write(debug_unit,*) me,' inner_mult at level ',level
     end if
 
-    if ((level < nlev).or.(nlev == 1)) then
     sweeps_post = p%precv(level)%parms%sweeps_post
     sweeps_pre  = p%precv(level)%parms%sweeps_pre
-    else
-      sweeps_post = p%precv(level-1)%parms%sweeps_post
-      sweeps_pre  = p%precv(level-1)%parms%sweeps_pre
-    endif
-
     pre  = ((sweeps_pre>0).and.(trans=='N')).or.((sweeps_post>0).and.(trans/='N'))
     post = ((sweeps_post>0).and.(trans=='N')).or.((sweeps_pre>0).and.(trans/='N'))
 
     
     if (level < nlev) then 
-
       !
       ! Apply the first smoother
       !

mlprec/impl/mld_dmlprec_aply.f90

@@ -696,20 +696,13 @@ contains
       write(debug_unit,*) me,' inner_mult at level ',level
     end if
 
-    if ((level < nlev).or.(nlev == 1)) then
     sweeps_post = p%precv(level)%parms%sweeps_post
     sweeps_pre  = p%precv(level)%parms%sweeps_pre
-    else
-      sweeps_post = p%precv(level-1)%parms%sweeps_post
-      sweeps_pre  = p%precv(level-1)%parms%sweeps_pre
-    endif
-
     pre  = ((sweeps_pre>0).and.(trans=='N')).or.((sweeps_post>0).and.(trans/='N'))
     post = ((sweeps_post>0).and.(trans=='N')).or.((sweeps_pre>0).and.(trans/='N'))
 
     
     if (level < nlev) then 
-
       !
       ! Apply the first smoother
       !

mlprec/impl/mld_smlprec_aply.f90

@@ -696,20 +696,13 @@ contains
       write(debug_unit,*) me,' inner_mult at level ',level
     end if
 
-    if ((level < nlev).or.(nlev == 1)) then
     sweeps_post = p%precv(level)%parms%sweeps_post
     sweeps_pre  = p%precv(level)%parms%sweeps_pre
-    else
-      sweeps_post = p%precv(level-1)%parms%sweeps_post
-      sweeps_pre  = p%precv(level-1)%parms%sweeps_pre
-    endif
-
     pre  = ((sweeps_pre>0).and.(trans=='N')).or.((sweeps_post>0).and.(trans/='N'))
     post = ((sweeps_post>0).and.(trans=='N')).or.((sweeps_pre>0).and.(trans/='N'))
 
     
     if (level < nlev) then 
-
       !
       ! Apply the first smoother
       !

mlprec/impl/mld_zmlprec_aply.f90

@@ -696,20 +696,13 @@ contains
       write(debug_unit,*) me,' inner_mult at level ',level
     end if
 
-    if ((level < nlev).or.(nlev == 1)) then
     sweeps_post = p%precv(level)%parms%sweeps_post
     sweeps_pre  = p%precv(level)%parms%sweeps_pre
-    else
-      sweeps_post = p%precv(level-1)%parms%sweeps_post
-      sweeps_pre  = p%precv(level-1)%parms%sweeps_pre
-    endif
-
     pre  = ((sweeps_pre>0).and.(trans=='N')).or.((sweeps_post>0).and.(trans/='N'))
     post = ((sweeps_post>0).and.(trans=='N')).or.((sweeps_pre>0).and.(trans/='N'))
 
     
     if (level < nlev) then 
-
       !
       ! Apply the first smoother
       !