Skip to content

Commit b3b5f43

Browse files
committed
explicit use of private/public
1 parent 8519e1b commit b3b5f43

File tree

1 file changed

+5
-0
lines changed

1 file changed

+5
-0
lines changed

example/linalg/example_solve_custom.f90

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,11 @@ module custom_solver
77
stdlib_size_wksp_pcg
88
use stdlib_optval, only: optval
99
implicit none
10+
private
11+
public :: solve_pcg_custom
12+
1013
contains
14+
1115
subroutine solve_pcg_custom(A,b,x,di,tol,maxiter,restart,workspace)
1216
type(CSR_dp_type), intent(in) :: A
1317
real(dp), intent(in) :: b(:)
@@ -107,6 +111,7 @@ end module custom_solver
107111

108112
program example_solve_custom
109113
use custom_solver
114+
use stdlib_kinds, only: int8, dp
110115
use stdlib_sparse, only: CSR_dp_type, COO_dp_type, dense2coo, coo2csr
111116
implicit none
112117

0 commit comments

Comments
 (0)