Fix interface issues of clone_settings

amgprec/amg_c_ainv_solver.F90

@@ -92,7 +92,7 @@ module amg_c_ainv_solver
        & amg_c_base_solver_type, psb_dpk_, amg_c_ainv_solver_type, psb_ipk_
       Implicit None
       class(amg_c_ainv_solver_type), intent(inout) :: sv
-      class(amg_c_base_solver_type), allocatable, intent(inout) :: svout
+      class(amg_c_base_solver_type), intent(inout) :: svout
       integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_c_ainv_solver_clone_settings
   end interface

amgprec/amg_c_invk_solver.f90

@@ -80,7 +80,7 @@ module amg_c_invk_solver
        & amg_c_base_solver_type, psb_spk_, amg_c_invk_solver_type, psb_ipk_
       Implicit None
       class(amg_c_invk_solver_type), intent(inout) :: sv
-      class(amg_c_base_solver_type), allocatable, intent(inout) :: svout
+      class(amg_c_base_solver_type), intent(inout) :: svout
       integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_c_invk_solver_clone_settings
   end interface

amgprec/amg_c_invt_solver.f90

@@ -80,7 +80,7 @@ module amg_c_invt_solver
        & amg_c_base_solver_type, psb_spk_, amg_c_invt_solver_type, psb_ipk_
       Implicit None
       class(amg_c_invt_solver_type), intent(inout) :: sv
-      class(amg_c_base_solver_type), allocatable, intent(inout) :: svout
+      class(amg_c_base_solver_type), intent(inout) :: svout
       integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_c_invt_solver_clone_settings
   end interface

amgprec/amg_c_jac_smoother.f90

@@ -204,7 +204,7 @@ module amg_c_jac_smoother
       import :: amg_c_jac_smoother_type, psb_spk_, &
            & amg_c_base_smoother_type, psb_ipk_
       class(amg_c_jac_smoother_type), intent(inout)  :: sm
-      class(amg_c_base_smoother_type), allocatable, intent(inout) :: smout
+      class(amg_c_base_smoother_type), intent(inout) :: smout
       integer(psb_ipk_), intent(out)                :: info
     end subroutine amg_c_jac_smoother_clone_settings
   end interface

amgprec/amg_d_ainv_solver.F90

@@ -92,7 +92,7 @@ module amg_d_ainv_solver
        & amg_d_base_solver_type, psb_dpk_, amg_d_ainv_solver_type, psb_ipk_
       Implicit None
       class(amg_d_ainv_solver_type), intent(inout) :: sv
-      class(amg_d_base_solver_type), allocatable, intent(inout) :: svout
+      class(amg_d_base_solver_type), intent(inout) :: svout
       integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_d_ainv_solver_clone_settings
   end interface

amgprec/amg_d_invk_solver.f90

@@ -80,7 +80,7 @@ module amg_d_invk_solver
        & amg_d_base_solver_type, psb_dpk_, amg_d_invk_solver_type, psb_ipk_
       Implicit None
       class(amg_d_invk_solver_type), intent(inout) :: sv
-      class(amg_d_base_solver_type), allocatable, intent(inout) :: svout
+      class(amg_d_base_solver_type), intent(inout) :: svout
       integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_d_invk_solver_clone_settings
   end interface

amgprec/amg_d_invt_solver.f90

@@ -80,7 +80,7 @@ module amg_d_invt_solver
        & amg_d_base_solver_type, psb_dpk_, amg_d_invt_solver_type, psb_ipk_
       Implicit None
       class(amg_d_invt_solver_type), intent(inout) :: sv
-      class(amg_d_base_solver_type), allocatable, intent(inout) :: svout
+      class(amg_d_base_solver_type), intent(inout) :: svout
       integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_d_invt_solver_clone_settings
   end interface

amgprec/amg_d_jac_smoother.f90

@@ -204,7 +204,7 @@ module amg_d_jac_smoother
       import :: amg_d_jac_smoother_type, psb_dpk_, &
            & amg_d_base_smoother_type, psb_ipk_
       class(amg_d_jac_smoother_type), intent(inout)  :: sm
-      class(amg_d_base_smoother_type), allocatable, intent(inout) :: smout
+      class(amg_d_base_smoother_type), intent(inout) :: smout
       integer(psb_ipk_), intent(out)                :: info
     end subroutine amg_d_jac_smoother_clone_settings
   end interface

amgprec/amg_d_poly_smoother.f90

@@ -193,7 +193,7 @@ module amg_d_poly_smoother
       import :: amg_d_poly_smoother_type, psb_dpk_, &
            & amg_d_base_smoother_type, psb_ipk_
       class(amg_d_poly_smoother_type), intent(inout) :: sm
-      class(amg_d_base_smoother_type), allocatable, intent(inout) :: smout
+      class(amg_d_base_smoother_type), intent(inout) :: smout
       integer(psb_ipk_), intent(out)                :: info
     end subroutine amg_d_poly_smoother_clone_settings
   end interface

amgprec/amg_s_ainv_solver.F90

@@ -92,7 +92,7 @@ module amg_s_ainv_solver
        & amg_s_base_solver_type, psb_dpk_, amg_s_ainv_solver_type, psb_ipk_
       Implicit None
       class(amg_s_ainv_solver_type), intent(inout) :: sv
-      class(amg_s_base_solver_type), allocatable, intent(inout) :: svout
+      class(amg_s_base_solver_type), intent(inout) :: svout
       integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_s_ainv_solver_clone_settings
   end interface

amgprec/amg_s_invk_solver.f90

@@ -80,7 +80,7 @@ module amg_s_invk_solver
        & amg_s_base_solver_type, psb_spk_, amg_s_invk_solver_type, psb_ipk_
       Implicit None
       class(amg_s_invk_solver_type), intent(inout) :: sv
-      class(amg_s_base_solver_type), allocatable, intent(inout) :: svout
+      class(amg_s_base_solver_type), intent(inout) :: svout
       integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_s_invk_solver_clone_settings
   end interface

amgprec/amg_s_invt_solver.f90

@@ -80,7 +80,7 @@ module amg_s_invt_solver
        & amg_s_base_solver_type, psb_spk_, amg_s_invt_solver_type, psb_ipk_
       Implicit None
       class(amg_s_invt_solver_type), intent(inout) :: sv
-      class(amg_s_base_solver_type), allocatable, intent(inout) :: svout
+      class(amg_s_base_solver_type), intent(inout) :: svout
       integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_s_invt_solver_clone_settings
   end interface

amgprec/amg_s_jac_smoother.f90

@@ -204,7 +204,7 @@ module amg_s_jac_smoother
       import :: amg_s_jac_smoother_type, psb_spk_, &
            & amg_s_base_smoother_type, psb_ipk_
       class(amg_s_jac_smoother_type), intent(inout)  :: sm
-      class(amg_s_base_smoother_type), allocatable, intent(inout) :: smout
+      class(amg_s_base_smoother_type), intent(inout) :: smout
       integer(psb_ipk_), intent(out)                :: info
     end subroutine amg_s_jac_smoother_clone_settings
   end interface

amgprec/amg_s_poly_smoother.f90

@@ -193,7 +193,7 @@ module amg_s_poly_smoother
       import :: amg_s_poly_smoother_type, psb_spk_, &
            & amg_s_base_smoother_type, psb_ipk_
       class(amg_s_poly_smoother_type), intent(inout) :: sm
-      class(amg_s_base_smoother_type), allocatable, intent(inout) :: smout
+      class(amg_s_base_smoother_type), intent(inout) :: smout
       integer(psb_ipk_), intent(out)                :: info
     end subroutine amg_s_poly_smoother_clone_settings
   end interface

amgprec/amg_z_ainv_solver.F90

@@ -92,7 +92,7 @@ module amg_z_ainv_solver
        & amg_z_base_solver_type, psb_dpk_, amg_z_ainv_solver_type, psb_ipk_
       Implicit None
       class(amg_z_ainv_solver_type), intent(inout) :: sv
-      class(amg_z_base_solver_type), allocatable, intent(inout) :: svout
+      class(amg_z_base_solver_type), intent(inout) :: svout
       integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_z_ainv_solver_clone_settings
   end interface

amgprec/amg_z_invk_solver.f90

@@ -80,7 +80,7 @@ module amg_z_invk_solver
        & amg_z_base_solver_type, psb_dpk_, amg_z_invk_solver_type, psb_ipk_
       Implicit None
       class(amg_z_invk_solver_type), intent(inout) :: sv
-      class(amg_z_base_solver_type), allocatable, intent(inout) :: svout
+      class(amg_z_base_solver_type), intent(inout) :: svout
       integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_z_invk_solver_clone_settings
   end interface

amgprec/amg_z_invt_solver.f90

@@ -80,7 +80,7 @@ module amg_z_invt_solver
        & amg_z_base_solver_type, psb_dpk_, amg_z_invt_solver_type, psb_ipk_
       Implicit None
       class(amg_z_invt_solver_type), intent(inout) :: sv
-      class(amg_z_base_solver_type), allocatable, intent(inout) :: svout
+      class(amg_z_base_solver_type), intent(inout) :: svout
       integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_z_invt_solver_clone_settings
   end interface

amgprec/amg_z_jac_smoother.f90

@@ -204,7 +204,7 @@ module amg_z_jac_smoother
       import :: amg_z_jac_smoother_type, psb_dpk_, &
            & amg_z_base_smoother_type, psb_ipk_
       class(amg_z_jac_smoother_type), intent(inout)  :: sm
-      class(amg_z_base_smoother_type), allocatable, intent(inout) :: smout
+      class(amg_z_base_smoother_type), intent(inout) :: smout
       integer(psb_ipk_), intent(out)                :: info
     end subroutine amg_z_jac_smoother_clone_settings
   end interface