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.
stopcriterion
Salvatore Filippone 9 years ago
parent fc01b84746
commit 7291145200

@ -198,7 +198,6 @@ subroutine mld_c_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,inf
! Now set the smoother/solver parts. ! Now set the smoother/solver parts.
if (info == psb_success_) then if (info == psb_success_) then
if (i ==1) 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) allocate(precv(i)%sm,source=base_sm,stat=info)
else if (i < newsz) then else if (i < newsz) then
allocate(precv(i)%sm,source=med_sm,stat=info) allocate(precv(i)%sm,source=med_sm,stat=info)

@ -198,7 +198,6 @@ subroutine mld_d_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,inf
! Now set the smoother/solver parts. ! Now set the smoother/solver parts.
if (info == psb_success_) then if (info == psb_success_) then
if (i ==1) 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) allocate(precv(i)%sm,source=base_sm,stat=info)
else if (i < newsz) then else if (i < newsz) then
allocate(precv(i)%sm,source=med_sm,stat=info) allocate(precv(i)%sm,source=med_sm,stat=info)

@ -198,7 +198,6 @@ subroutine mld_s_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,inf
! Now set the smoother/solver parts. ! Now set the smoother/solver parts.
if (info == psb_success_) then if (info == psb_success_) then
if (i ==1) 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) allocate(precv(i)%sm,source=base_sm,stat=info)
else if (i < newsz) then else if (i < newsz) then
allocate(precv(i)%sm,source=med_sm,stat=info) allocate(precv(i)%sm,source=med_sm,stat=info)

@ -198,7 +198,6 @@ subroutine mld_z_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,inf
! Now set the smoother/solver parts. ! Now set the smoother/solver parts.
if (info == psb_success_) then if (info == psb_success_) then
if (i ==1) 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) allocate(precv(i)%sm,source=base_sm,stat=info)
else if (i < newsz) then else if (i < newsz) then
allocate(precv(i)%sm,source=med_sm,stat=info) allocate(precv(i)%sm,source=med_sm,stat=info)

Loading…
Cancel
Save