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

Fixed headers for html documentation.

Browse Source
stopcriterion
Salvatore Filippone 17 years ago
parent e4135c4b44
commit 182664e76a
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File

5
mlprec/mld_dmlprec_aply.f90
Unescape Escape View File

@ -97,7 +97,7 @@
! baseprecv(ilev)%av(mld_sm_pr_t_) - The smoother prolongator transpose. ! baseprecv(ilev)%av(mld_sm_pr_t_) - The smoother prolongator transpose.
! It maps vectors (ilev-1) ---> (ilev). ! It maps vectors (ilev-1) ---> (ilev).
! baseprecv(ilev)%d - real(kind(1.d0)), dimension(:), allocatable. ! baseprecv(ilev)%d - real(kind(1.d0)), dimension(:), allocatable.
! The diagonal entries of the U factor in the ILU ! The diagonal entries of the U factor in the ILU
! factorization of A(ilev). ! factorization of A(ilev).
! baseprecv(ilev)%desc_data - type(psb_desc_type). ! baseprecv(ilev)%desc_data - type(psb_desc_type).
! The communication descriptor associated to the base ! The communication descriptor associated to the base
@ -222,7 +222,8 @@ subroutine mld_dmlprec_aply(alpha,baseprecv,x,beta,y,desc_data,trans,work,info)
! Multiplicative multilevel (multiplicative among the levels, additive inside ! Multiplicative multilevel (multiplicative among the levels, additive inside
! each level) ! each level)
! !
! Pre/post-smoothing versions ! Pre/post-smoothing versions.
! Note that transpose switches pre <-> post.
! !
select case(baseprecv(2)%iprcparm(mld_smooth_pos_)) select case(baseprecv(2)%iprcparm(mld_smooth_pos_))

5
mlprec/mld_zmlprec_aply.f90
Unescape Escape View File

@ -97,7 +97,7 @@
! baseprecv(ilev)%av(mld_sm_pr_t_) - The smoother prolongator transpose. ! baseprecv(ilev)%av(mld_sm_pr_t_) - The smoother prolongator transpose.
! It maps vectors (ilev-1) ---> (ilev). ! It maps vectors (ilev-1) ---> (ilev).
! baseprecv(ilev)%d - complex(kind(1.d0)), dimension(:), allocatable. ! baseprecv(ilev)%d - complex(kind(1.d0)), dimension(:), allocatable.
! The diagonal entries of the U factor in the ILU ! The diagonal entries of the U factor in the ILU
! factorization of A(ilev). ! factorization of A(ilev).
! baseprecv(ilev)%desc_data - type(psb_desc_type). ! baseprecv(ilev)%desc_data - type(psb_desc_type).
! The communication descriptor associated to the base ! The communication descriptor associated to the base
@ -222,7 +222,8 @@ subroutine mld_zmlprec_aply(alpha,baseprecv,x,beta,y,desc_data,trans,work,info)
! Multiplicative multilevel (multiplicative among the levels, additive inside ! Multiplicative multilevel (multiplicative among the levels, additive inside
! each level) ! each level)
! !
! Pre/post-smoothing versions ! Pre/post-smoothing versions.
! Note that transpose switches pre <-> post.
! !
select case(baseprecv(2)%iprcparm(mld_smooth_pos_)) select case(baseprecv(2)%iprcparm(mld_smooth_pos_))

Write Preview
Loading…
Cancel
Save