Fix interface issues of clone_settings

amgprec/amg_c_ainv_solver.F90

@@ -91,9 +91,9 @@ module amg_c_ainv_solver
       import :: psb_desc_type, psb_cspmat_type,  psb_c_base_sparse_mat, &
        & 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_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
+      integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_c_ainv_solver_clone_settings
   end interface
 

amgprec/amg_c_invk_solver.f90

@@ -79,9 +79,9 @@ module amg_c_invk_solver
       import :: psb_desc_type, psb_cspmat_type,  psb_c_base_sparse_mat, &
        & 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_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
+      integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_c_invk_solver_clone_settings
   end interface
 

amgprec/amg_c_invt_solver.f90

@@ -79,9 +79,9 @@ module amg_c_invt_solver
       import :: psb_desc_type, psb_cspmat_type,  psb_c_base_sparse_mat, &
        & 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_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
+      integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_c_invt_solver_clone_settings
   end interface
 

amgprec/amg_c_jac_smoother.f90

@@ -203,8 +203,8 @@ module amg_c_jac_smoother
     subroutine amg_c_jac_smoother_clone_settings(sm,smout,info)
       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_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

@@ -91,9 +91,9 @@ module amg_d_ainv_solver
       import :: psb_desc_type, psb_dspmat_type,  psb_d_base_sparse_mat, &
        & 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_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
+      integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_d_ainv_solver_clone_settings
   end interface
 

amgprec/amg_d_invk_solver.f90

@@ -79,9 +79,9 @@ module amg_d_invk_solver
       import :: psb_desc_type, psb_dspmat_type,  psb_d_base_sparse_mat, &
        & 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_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
+      integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_d_invk_solver_clone_settings
   end interface
 

amgprec/amg_d_invt_solver.f90

@@ -79,9 +79,9 @@ module amg_d_invt_solver
       import :: psb_desc_type, psb_dspmat_type,  psb_d_base_sparse_mat, &
        & 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_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
+      integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_d_invt_solver_clone_settings
   end interface
 

amgprec/amg_d_jac_smoother.f90

@@ -203,8 +203,8 @@ module amg_d_jac_smoother
     subroutine amg_d_jac_smoother_clone_settings(sm,smout,info)
       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_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

@@ -192,8 +192,8 @@ module amg_d_poly_smoother
     subroutine amg_d_poly_smoother_clone_settings(sm,smout,info)
       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_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

@@ -91,9 +91,9 @@ module amg_s_ainv_solver
       import :: psb_desc_type, psb_sspmat_type,  psb_s_base_sparse_mat, &
        & 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_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
+      integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_s_ainv_solver_clone_settings
   end interface
 

amgprec/amg_s_invk_solver.f90

@@ -79,9 +79,9 @@ module amg_s_invk_solver
       import :: psb_desc_type, psb_sspmat_type,  psb_s_base_sparse_mat, &
        & 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_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
+      integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_s_invk_solver_clone_settings
   end interface
 

amgprec/amg_s_invt_solver.f90

@@ -79,9 +79,9 @@ module amg_s_invt_solver
       import :: psb_desc_type, psb_sspmat_type,  psb_s_base_sparse_mat, &
        & 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_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
+      integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_s_invt_solver_clone_settings
   end interface
 

amgprec/amg_s_jac_smoother.f90

@@ -203,8 +203,8 @@ module amg_s_jac_smoother
     subroutine amg_s_jac_smoother_clone_settings(sm,smout,info)
       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_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

@@ -192,8 +192,8 @@ module amg_s_poly_smoother
     subroutine amg_s_poly_smoother_clone_settings(sm,smout,info)
       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_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

@@ -91,9 +91,9 @@ module amg_z_ainv_solver
       import :: psb_desc_type, psb_zspmat_type,  psb_z_base_sparse_mat, &
        & 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_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
+      integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_z_ainv_solver_clone_settings
   end interface
 

amgprec/amg_z_invk_solver.f90

@@ -79,9 +79,9 @@ module amg_z_invk_solver
       import :: psb_desc_type, psb_zspmat_type,  psb_z_base_sparse_mat, &
        & 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_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
+      integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_z_invk_solver_clone_settings
   end interface
 

amgprec/amg_z_invt_solver.f90

@@ -79,9 +79,9 @@ module amg_z_invt_solver
       import :: psb_desc_type, psb_zspmat_type,  psb_z_base_sparse_mat, &
        & 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_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
+      integer(psb_ipk_), intent(out)                 :: info
     end subroutine amg_z_invt_solver_clone_settings
   end interface
 

amgprec/amg_z_jac_smoother.f90

@@ -203,8 +203,8 @@ module amg_z_jac_smoother
     subroutine amg_z_jac_smoother_clone_settings(sm,smout,info)
       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_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

amgprec/impl/smoother/amg_c_jac_smoother_clone_settings.f90

@@ -41,7 +41,7 @@ subroutine amg_c_jac_smoother_clone_settings(sm,smout,info)
   use amg_c_jac_smoother, amg_protect_name =>  amg_c_jac_smoother_clone_settings
   Implicit None
   ! Arguments
-  class(amg_c_jac_smoother_type), intent(inout)              :: sm
+  class(amg_c_jac_smoother_type), intent(inout)  :: sm
   class(amg_c_base_smoother_type), intent(inout) :: smout
   integer(psb_ipk_), intent(out)                 :: info
   integer(psb_ipk_)  :: err_act

amgprec/impl/smoother/amg_d_jac_smoother_clone_settings.f90

@@ -41,7 +41,7 @@ subroutine amg_d_jac_smoother_clone_settings(sm,smout,info)
   use amg_d_jac_smoother, amg_protect_name =>  amg_d_jac_smoother_clone_settings
   Implicit None
   ! Arguments
-  class(amg_d_jac_smoother_type), intent(inout)              :: sm
+  class(amg_d_jac_smoother_type), intent(inout)  :: sm
   class(amg_d_base_smoother_type), intent(inout) :: smout
   integer(psb_ipk_), intent(out)                 :: info
   integer(psb_ipk_)  :: err_act

amgprec/impl/smoother/amg_d_poly_smoother_clone_settings.f90

@@ -41,7 +41,7 @@ subroutine amg_d_poly_smoother_clone_settings(sm,smout,info)
   use amg_d_poly_smoother, amg_protect_name =>  amg_d_poly_smoother_clone_settings
   Implicit None
   ! Arguments
-  class(amg_d_poly_smoother_type), intent(inout)              :: sm
+  class(amg_d_poly_smoother_type), intent(inout) :: sm
   class(amg_d_base_smoother_type), intent(inout) :: smout
   integer(psb_ipk_), intent(out)                 :: info
   integer(psb_ipk_)  :: err_act

amgprec/impl/smoother/amg_s_jac_smoother_clone_settings.f90

@@ -41,7 +41,7 @@ subroutine amg_s_jac_smoother_clone_settings(sm,smout,info)
   use amg_s_jac_smoother, amg_protect_name =>  amg_s_jac_smoother_clone_settings
   Implicit None
   ! Arguments
-  class(amg_s_jac_smoother_type), intent(inout)              :: sm
+  class(amg_s_jac_smoother_type), intent(inout)  :: sm
   class(amg_s_base_smoother_type), intent(inout) :: smout
   integer(psb_ipk_), intent(out)                 :: info
   integer(psb_ipk_)  :: err_act

amgprec/impl/smoother/amg_s_poly_smoother_clone_settings.f90

@@ -41,7 +41,7 @@ subroutine amg_s_poly_smoother_clone_settings(sm,smout,info)
   use amg_s_poly_smoother, amg_protect_name =>  amg_s_poly_smoother_clone_settings
   Implicit None
   ! Arguments
-  class(amg_s_poly_smoother_type), intent(inout)              :: sm
+  class(amg_s_poly_smoother_type), intent(inout) :: sm
   class(amg_s_base_smoother_type), intent(inout) :: smout
   integer(psb_ipk_), intent(out)                 :: info
   integer(psb_ipk_)  :: err_act

amgprec/impl/smoother/amg_z_jac_smoother_clone_settings.f90

@@ -41,7 +41,7 @@ subroutine amg_z_jac_smoother_clone_settings(sm,smout,info)
   use amg_z_jac_smoother, amg_protect_name =>  amg_z_jac_smoother_clone_settings
   Implicit None
   ! Arguments
-  class(amg_z_jac_smoother_type), intent(inout)              :: sm
+  class(amg_z_jac_smoother_type), intent(inout)  :: sm
   class(amg_z_base_smoother_type), intent(inout) :: smout
   integer(psb_ipk_), intent(out)                 :: info
   integer(psb_ipk_)  :: err_act