From 577174c253ed21b429104a7a304b7c1a3b9ac86a Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 17 Jun 2016 11:41:30 +0000 Subject: [PATCH] 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 Indentation fixes. --- mlprec/impl/mld_cmlprec_aply.f90 | 3 ++- mlprec/impl/mld_dmlprec_aply.f90 | 3 ++- mlprec/impl/mld_smlprec_aply.f90 | 3 ++- mlprec/impl/mld_zmlprec_aply.f90 | 3 ++- 4 files changed, 8 insertions(+), 4 deletions(-) diff --git a/mlprec/impl/mld_cmlprec_aply.f90 b/mlprec/impl/mld_cmlprec_aply.f90 index b5574bcb..c9c43415 100644 --- a/mlprec/impl/mld_cmlprec_aply.f90 +++ b/mlprec/impl/mld_cmlprec_aply.f90 @@ -772,7 +772,8 @@ contains if (p%precv(level)%parms%ml_type == mld_wcycle_ml_) then ! On second call will use output y2l as initial guess - if (info == psb_success_) call inner_ml_aply(level+1,p,mlprec_wrk,trans,work,info) + if (info == psb_success_) & + & call inner_ml_aply(level+1,p,mlprec_wrk,trans,work,info) endif if (info /= psb_success_) then diff --git a/mlprec/impl/mld_dmlprec_aply.f90 b/mlprec/impl/mld_dmlprec_aply.f90 index 85220a1d..04f42e59 100644 --- a/mlprec/impl/mld_dmlprec_aply.f90 +++ b/mlprec/impl/mld_dmlprec_aply.f90 @@ -772,7 +772,8 @@ contains if (p%precv(level)%parms%ml_type == mld_wcycle_ml_) then ! On second call will use output y2l as initial guess - if (info == psb_success_) call inner_ml_aply(level+1,p,mlprec_wrk,trans,work,info) + if (info == psb_success_) & + & call inner_ml_aply(level+1,p,mlprec_wrk,trans,work,info) endif if (info /= psb_success_) then diff --git a/mlprec/impl/mld_smlprec_aply.f90 b/mlprec/impl/mld_smlprec_aply.f90 index b7783cbf..cdb5be9f 100644 --- a/mlprec/impl/mld_smlprec_aply.f90 +++ b/mlprec/impl/mld_smlprec_aply.f90 @@ -772,7 +772,8 @@ contains if (p%precv(level)%parms%ml_type == mld_wcycle_ml_) then ! On second call will use output y2l as initial guess - if (info == psb_success_) call inner_ml_aply(level+1,p,mlprec_wrk,trans,work,info) + if (info == psb_success_) & + & call inner_ml_aply(level+1,p,mlprec_wrk,trans,work,info) endif if (info /= psb_success_) then diff --git a/mlprec/impl/mld_zmlprec_aply.f90 b/mlprec/impl/mld_zmlprec_aply.f90 index 16e5c992..89e6cf8c 100644 --- a/mlprec/impl/mld_zmlprec_aply.f90 +++ b/mlprec/impl/mld_zmlprec_aply.f90 @@ -772,7 +772,8 @@ contains if (p%precv(level)%parms%ml_type == mld_wcycle_ml_) then ! On second call will use output y2l as initial guess - if (info == psb_success_) call inner_ml_aply(level+1,p,mlprec_wrk,trans,work,info) + if (info == psb_success_) & + & call inner_ml_aply(level+1,p,mlprec_wrk,trans,work,info) endif if (info /= psb_success_) then