Skip to content

Commit 07b97ce

Browse files
committed
change internal procedure names for custom example
1 parent 0b01dbd commit 07b97ce

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

example/linalg/example_solve_custom.f90

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -34,9 +34,9 @@ subroutine solve_pccg_custom(A,b,x,di,tol,maxiter,restart,workspace)
3434
norm_sq0 = 0.d0
3535
!-------------------------
3636
! internal memory setup
37-
op%apply => my_matvec
37+
op%apply => my_apply
3838
op%inner_product => my_dot
39-
M%apply => jacobi_preconditionner
39+
M%apply => my_jacobi_preconditionner
4040
if(present(di))then
4141
di_ => di
4242
else
@@ -70,12 +70,12 @@ subroutine solve_pccg_custom(A,b,x,di,tol,maxiter,restart,workspace)
7070
workspace_ => null()
7171
contains
7272

73-
subroutine my_matvec(x,y)
73+
subroutine my_apply(x,y)
7474
real(dp), intent(in) :: x(:)
7575
real(dp), intent(inout) :: y(:)
7676
call spmv( A , x, y )
7777
end subroutine
78-
subroutine jacobi_preconditionner(x,y)
78+
subroutine my_jacobi_preconditionner(x,y)
7979
real(dp), intent(in) :: x(:)
8080
real(dp), intent(inout) :: y(:)
8181
y = diagonal * x

0 commit comments

Comments
 (0)