From f48e9487b5906c186c65a4462e462a9a210ee5c5 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 26 Mar 2012 15:32:46 +0000 Subject: [PATCH] mld2p4-2: mlprec/mld_c_prec_type.f90 mlprec/mld_d_prec_type.f90 mlprec/mld_s_prec_type.f90 mlprec/mld_z_prec_type.f90 When nlev=1 make sure to start dump from 1. --- mlprec/mld_c_prec_type.f90 | 2 +- mlprec/mld_d_prec_type.f90 | 2 +- mlprec/mld_s_prec_type.f90 | 2 +- mlprec/mld_z_prec_type.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mlprec/mld_c_prec_type.f90 b/mlprec/mld_c_prec_type.f90 index a39eef0b..925ceb1a 100644 --- a/mlprec/mld_c_prec_type.f90 +++ b/mlprec/mld_c_prec_type.f90 @@ -565,7 +565,7 @@ contains if (present(istart)) then il1 = max(1,istart) else - il1 = 2 + il1 = min(2,iln) end if if (present(iend)) then iln = min(iln, iend) diff --git a/mlprec/mld_d_prec_type.f90 b/mlprec/mld_d_prec_type.f90 index 74b4a1f7..e5bd564d 100644 --- a/mlprec/mld_d_prec_type.f90 +++ b/mlprec/mld_d_prec_type.f90 @@ -565,7 +565,7 @@ contains if (present(istart)) then il1 = max(1,istart) else - il1 = 2 + il1 = min(2,iln) end if if (present(iend)) then iln = min(iln, iend) diff --git a/mlprec/mld_s_prec_type.f90 b/mlprec/mld_s_prec_type.f90 index 5972a517..c8e590ec 100644 --- a/mlprec/mld_s_prec_type.f90 +++ b/mlprec/mld_s_prec_type.f90 @@ -565,7 +565,7 @@ contains if (present(istart)) then il1 = max(1,istart) else - il1 = 2 + il1 = min(2,iln) end if if (present(iend)) then iln = min(iln, iend) diff --git a/mlprec/mld_z_prec_type.f90 b/mlprec/mld_z_prec_type.f90 index cd29b8af..d3ea486a 100644 --- a/mlprec/mld_z_prec_type.f90 +++ b/mlprec/mld_z_prec_type.f90 @@ -565,7 +565,7 @@ contains if (present(istart)) then il1 = max(1,istart) else - il1 = 2 + il1 = min(2,iln) end if if (present(iend)) then iln = min(iln, iend)