fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

mld2p4:

Browse Source 
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
4 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File

1
mlprec/impl/mld_c_bld_mlhier_aggsize.f90
Unescape Escape View File

@ -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)

1
mlprec/impl/mld_d_bld_mlhier_aggsize.f90
Unescape Escape View File

@ -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)

1
mlprec/impl/mld_s_bld_mlhier_aggsize.f90
Unescape Escape View File

@ -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)

1
mlprec/impl/mld_z_bld_mlhier_aggsize.f90
Unescape Escape View File

@ -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)

Write Preview
Loading…
Cancel
Save