Skip to content
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.

Commit eeddf7c

Browse files
committedMay 17, 2025·
change precond ldl name
1 parent 8068f2d commit eeddf7c

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed
 

‎src/stdlib_linalg_iterative_solvers_pccg.fypp

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -149,11 +149,11 @@ contains
149149
#:endif
150150
L = A !> copy A structure to L
151151
call ssor( A , one_${s}$ , L, diagonal )
152-
M_%apply => precond_ldl
152+
M_%apply => precond_ldlt
153153
case(pc_ldlt)
154154
L = A !> copy A structure to L
155155
call ldlt( A , L, diagonal )
156-
M_%apply => precond_ldl
156+
M_%apply => precond_ldlt
157157
case default
158158
M_%apply => precond_none
159159
end select
@@ -222,7 +222,7 @@ contains
222222
${t}$, intent(in) :: beta
223223
y = merge( zero_${s}$, diagonal * x, di_ ) !> inverted diagonal
224224
end subroutine
225-
subroutine precond_ldl(x,y,alpha,beta)
225+
subroutine precond_ldlt(x,y,alpha,beta)
226226
${t}$, intent(in) :: x(:)
227227
${t}$, intent(inout) :: y(:)
228228
${t}$, intent(in) :: alpha

0 commit comments

Comments
 (0)
Please sign in to comment.