From 7291145200b607227c1f101f9bdb38135006a52a Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 23 May 2016 13:49:38 +0000 Subject: [PATCH] mld2p4: mlprec/impl/mld_c_bld_mlhier_aggsize.f90 mlprec/impl/mld_d_bld_mlhier_aggsize.f90 mlprec/impl/mld_s_bld_mlhier_aggsize.f90 mlprec/impl/mld_z_bld_mlhier_aggsize.f90 Fixed code comments. --- mlprec/impl/mld_c_bld_mlhier_aggsize.f90 | 1 - mlprec/impl/mld_d_bld_mlhier_aggsize.f90 | 1 - mlprec/impl/mld_s_bld_mlhier_aggsize.f90 | 1 - mlprec/impl/mld_z_bld_mlhier_aggsize.f90 | 1 - 4 files changed, 4 deletions(-) diff --git a/mlprec/impl/mld_c_bld_mlhier_aggsize.f90 b/mlprec/impl/mld_c_bld_mlhier_aggsize.f90 index f968245e..6d1cb106 100644 --- a/mlprec/impl/mld_c_bld_mlhier_aggsize.f90 +++ b/mlprec/impl/mld_c_bld_mlhier_aggsize.f90 @@ -198,7 +198,6 @@ subroutine mld_c_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,inf ! Now set the smoother/solver parts. if (info == psb_success_) then if (i ==1) then - ! This is a workaround for a bug in gfortran 4.7.2 allocate(precv(i)%sm,source=base_sm,stat=info) else if (i < newsz) then allocate(precv(i)%sm,source=med_sm,stat=info) diff --git a/mlprec/impl/mld_d_bld_mlhier_aggsize.f90 b/mlprec/impl/mld_d_bld_mlhier_aggsize.f90 index 0004f073..dd5d90da 100644 --- a/mlprec/impl/mld_d_bld_mlhier_aggsize.f90 +++ b/mlprec/impl/mld_d_bld_mlhier_aggsize.f90 @@ -198,7 +198,6 @@ subroutine mld_d_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,inf ! Now set the smoother/solver parts. if (info == psb_success_) then if (i ==1) then - ! This is a workaround for a bug in gfortran 4.7.2 allocate(precv(i)%sm,source=base_sm,stat=info) else if (i < newsz) then allocate(precv(i)%sm,source=med_sm,stat=info) diff --git a/mlprec/impl/mld_s_bld_mlhier_aggsize.f90 b/mlprec/impl/mld_s_bld_mlhier_aggsize.f90 index e3c412b1..cfaed271 100644 --- a/mlprec/impl/mld_s_bld_mlhier_aggsize.f90 +++ b/mlprec/impl/mld_s_bld_mlhier_aggsize.f90 @@ -198,7 +198,6 @@ subroutine mld_s_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,inf ! Now set the smoother/solver parts. if (info == psb_success_) then if (i ==1) then - ! This is a workaround for a bug in gfortran 4.7.2 allocate(precv(i)%sm,source=base_sm,stat=info) else if (i < newsz) then allocate(precv(i)%sm,source=med_sm,stat=info) diff --git a/mlprec/impl/mld_z_bld_mlhier_aggsize.f90 b/mlprec/impl/mld_z_bld_mlhier_aggsize.f90 index 4ca37459..ba40b7db 100644 --- a/mlprec/impl/mld_z_bld_mlhier_aggsize.f90 +++ b/mlprec/impl/mld_z_bld_mlhier_aggsize.f90 @@ -198,7 +198,6 @@ subroutine mld_z_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,inf ! Now set the smoother/solver parts. if (info == psb_success_) then if (i ==1) then - ! This is a workaround for a bug in gfortran 4.7.2 allocate(precv(i)%sm,source=base_sm,stat=info) else if (i < newsz) then allocate(precv(i)%sm,source=med_sm,stat=info)