psblas-399:

base/modules/psb_c_tools_mod.f90
 base/modules/psb_d_tools_mod.f90
 base/modules/psb_s_tools_mod.f90
 base/modules/psb_z_tools_mod.f90

fix interface of bldext

base/modules/psb_c_tools_mod.f90

@@ -227,9 +227,9 @@ Module psb_c_tools_mod
            & psb_c_base_vect_type, psb_c_vect_type, &
            & psb_cspmat_type, psb_c_base_sparse_mat
       integer(psb_ipk_), intent(in)                     :: novr
-      Type(psb_cspmat_type), Intent(inout)       :: a
+      Type(psb_cspmat_type), Intent(in)        :: a
-      Type(psb_desc_type), Intent(in), target :: desc_a
+      Type(psb_desc_type), Intent(inout), target :: desc_a
-      Type(psb_desc_type), Intent(out)        :: desc_ov
+      Type(psb_desc_type), Intent(out)           :: desc_ov
       integer(psb_ipk_), intent(out)                    :: info
       integer(psb_ipk_), intent(in),optional            :: extype
     end Subroutine psb_ccdbldext

base/modules/psb_d_tools_mod.f90

@@ -227,9 +227,9 @@ Module psb_d_tools_mod
            & psb_d_base_vect_type, psb_d_vect_type, &
            & psb_dspmat_type, psb_d_base_sparse_mat
       integer(psb_ipk_), intent(in)                     :: novr
-      Type(psb_dspmat_type), Intent(inout)       :: a
+      Type(psb_dspmat_type), Intent(in)        :: a
-      Type(psb_desc_type), Intent(in), target :: desc_a
+      Type(psb_desc_type), Intent(inout), target :: desc_a
-      Type(psb_desc_type), Intent(out)        :: desc_ov
+      Type(psb_desc_type), Intent(out)           :: desc_ov
       integer(psb_ipk_), intent(out)                    :: info
       integer(psb_ipk_), intent(in),optional            :: extype
     end Subroutine psb_dcdbldext

base/modules/psb_s_tools_mod.f90

@@ -227,9 +227,9 @@ Module psb_s_tools_mod
            & psb_s_base_vect_type, psb_s_vect_type, &
            & psb_sspmat_type, psb_s_base_sparse_mat
       integer(psb_ipk_), intent(in)                     :: novr
-      Type(psb_sspmat_type), Intent(inout)       :: a
+      Type(psb_sspmat_type), Intent(in)        :: a
-      Type(psb_desc_type), Intent(in), target :: desc_a
+      Type(psb_desc_type), Intent(inout), target :: desc_a
-      Type(psb_desc_type), Intent(out)        :: desc_ov
+      Type(psb_desc_type), Intent(out)           :: desc_ov
       integer(psb_ipk_), intent(out)                    :: info
       integer(psb_ipk_), intent(in),optional            :: extype
     end Subroutine psb_scdbldext

base/modules/psb_z_tools_mod.f90

@@ -227,9 +227,9 @@ Module psb_z_tools_mod
            & psb_z_base_vect_type, psb_z_vect_type, &
            & psb_zspmat_type, psb_z_base_sparse_mat
       integer(psb_ipk_), intent(in)                     :: novr
-      Type(psb_zspmat_type), Intent(inout)       :: a
+      Type(psb_zspmat_type), Intent(in)        :: a
-      Type(psb_desc_type), Intent(in), target :: desc_a
+      Type(psb_desc_type), Intent(inout), target :: desc_a
-      Type(psb_desc_type), Intent(out)        :: desc_ov
+      Type(psb_desc_type), Intent(out)           :: desc_ov
       integer(psb_ipk_), intent(out)                    :: info
       integer(psb_ipk_), intent(in),optional            :: extype
     end Subroutine psb_zcdbldext