change name generic for kernel

Author: jalvesz

example/linalg/example_solve_custom.f90

@@ -3,7 +3,7 @@ module custom_solver
     use stdlib_sparse
     use stdlib_linalg_iterative_solvers, only: linop_dp, &
                     solver_workspace_dp, &
-                    solve_pccg_generic, &
+                    solve_pccg_kernel, &
                     size_wksp_pccg
     implicit none
 contains
@@ -56,7 +56,7 @@ subroutine solve_pccg_custom(A,b,x,di,tol,maxiter,restart,workspace)
         where(abs(diagonal)>epsilon(0.d0)) diagonal = 1._dp/diagonal
         !-------------------------
         ! main call to the solver
-        call solve_pccg_generic(op,M,b,x,tol_,maxiter_,workspace_)
+        call solve_pccg_kernel(op,M,b,x,tol_,maxiter_,workspace_)
 
         !-------------------------
         ! internal memory cleanup

src/stdlib_linalg_iterative_solvers.fypp

@@ -57,9 +57,9 @@ module stdlib_linalg_iterative_solvers
         #:endfor
     end interface
 
-    interface solve_cg_generic
+    interface solve_cg_kernel
         #:for k, t, s in R_KINDS_TYPES
-        module subroutine solve_cg_generic_${s}$(A,b,x,tol,maxiter,workspace)
+        module subroutine solve_cg_kernel_${s}$(A,b,x,tol,maxiter,workspace)
             class(linop_${s}$), intent(in) :: A
             ${t}$, intent(in) :: b(:)
             ${t}$, intent(inout) :: x(:)
@@ -69,7 +69,7 @@ module stdlib_linalg_iterative_solvers
         end subroutine
         #:endfor
     end interface
-    public :: solve_cg_generic
+    public :: solve_cg_kernel
 
     interface solve_cg
         #:for matrix in MATRIX_TYPES
@@ -93,9 +93,9 @@ module stdlib_linalg_iterative_solvers
     end interface
     public :: solve_cg
 
-    interface solve_pccg_generic
+    interface solve_pccg_kernel
         #:for k, t, s in R_KINDS_TYPES
-        module subroutine solve_pccg_generic_${s}$(A,M,b,x,tol,maxiter,workspace)
+        module subroutine solve_pccg_kernel_${s}$(A,M,b,x,tol,maxiter,workspace)
             class(linop_${s}$), intent(in) :: A
             class(linop_${s}$), intent(in) :: M !> preconditionner
             ${t}$, intent(in) :: b(:)
@@ -106,7 +106,7 @@ module stdlib_linalg_iterative_solvers
         end subroutine
         #:endfor
     end interface
-    public :: solve_pccg_generic
+    public :: solve_pccg_kernel
 
     interface solve_pccg
         #:for matrix in MATRIX_TYPES

src/stdlib_linalg_iterative_solvers_cg.fypp

@@ -14,7 +14,7 @@ submodule(stdlib_linalg_iterative_solvers) stdlib_linalg_iterative_cg
 contains
 
     #:for k, t, s in R_KINDS_TYPES
-    module subroutine solve_cg_generic_${s}$(A,b,x,tol,maxiter,workspace)
+    module subroutine solve_cg_kernel_${s}$(A,b,x,tol,maxiter,workspace)
         class(linop_${s}$), intent(in) :: A
         ${t}$, intent(in) :: b(:), tol
         ${t}$, intent(inout) :: x(:)
@@ -112,7 +112,7 @@ contains
         ! main call to the solver
         if(restart_) x = zero_${s}$
         x = merge( b, x, di_ ) !> copy dirichlet load conditions encoded in B and indicated by di
-        call solve_cg_generic(op,b,x,tol_,maxiter_,workspace_)
+        call solve_cg_kernel(op,b,x,tol_,maxiter_,workspace_)
 
         !-------------------------
         ! internal memory cleanup

src/stdlib_linalg_iterative_solvers_pccg.fypp

@@ -21,7 +21,7 @@ submodule(stdlib_linalg_iterative_solvers) stdlib_linalg_iterative_pccg
 contains
 
     #:for k, t, s in R_KINDS_TYPES
-    module subroutine solve_pccg_generic_${s}$(A,M,b,x,tol,maxiter,workspace)
+    module subroutine solve_pccg_kernel_${s}$(A,M,b,x,tol,maxiter,workspace)
         class(linop_${s}$), intent(in) :: A
         class(linop_${s}$), intent(in) :: M !> preconditionner
         ${t}$, intent(in) :: b(:), tol
@@ -180,7 +180,7 @@ contains
         ! main call to the solver
         if(restart_) x = zero_${s}$
         x = merge( b, x, di_ ) !> copy dirichlet load conditions encoded in B and indicated by di
-        call solve_pccg_generic(op,M_,b,x,tol_,maxiter_,workspace_)
+        call solve_pccg_kernel(op,M_,b,x,tol_,maxiter_,workspace_)
 
         !-------------------------
         ! internal memory cleanup