psblas3

psb_base_linmap_mod.f90
 psb_desc_type.f90
 psb_linmap_mod.f90

Internal cosmetic changes.

base/modules/psb_base_linmap_mod.f90

@@ -140,8 +140,8 @@ contains
     use psb_descriptor_type
     use psb_mat_mod, only : psb_move_alloc
     implicit none 
-    type(psb_base_linmap_type) :: mapin,mapout
-    integer(psb_ipk_), intent(out)       :: info 
+    type(psb_base_linmap_type), intent(inout) :: mapin,mapout
+    integer(psb_ipk_), intent(out)            :: info 
     
     mapout%kind = mapin%kind
     call psb_move_alloc(mapin%iaggr,mapout%iaggr,info)

base/modules/psb_desc_type.f90

@@ -199,16 +199,16 @@ module psb_descriptor_type
 
 
   type psb_desc_type
-    integer(psb_ipk_), allocatable  :: halo_index(:)
-    integer(psb_ipk_), allocatable  :: ext_index(:)
-    integer(psb_ipk_), allocatable  :: ovrlap_index(:)
-    integer(psb_ipk_), allocatable  :: ovrlap_elem(:,:)
-    integer(psb_ipk_), allocatable  :: ovr_mst_idx(:)
-    integer(psb_ipk_), allocatable  :: bnd_elem(:)
+    integer(psb_ipk_), allocatable   :: halo_index(:)
+    integer(psb_ipk_), allocatable   :: ext_index(:)
+    integer(psb_ipk_), allocatable   :: ovrlap_index(:)
+    integer(psb_ipk_), allocatable   :: ovrlap_elem(:,:)
+    integer(psb_ipk_), allocatable   :: ovr_mst_idx(:)
+    integer(psb_ipk_), allocatable   :: bnd_elem(:)
     class(psb_indx_map), allocatable :: indxmap
-    integer(psb_ipk_), allocatable  :: lprm(:)
+    integer(psb_ipk_), allocatable   :: lprm(:)
     type(psb_desc_type), pointer     :: base_desc => null()
-    integer(psb_ipk_), allocatable  :: idx_space(:)
+    integer(psb_ipk_), allocatable   :: idx_space(:)
   contains
     procedure, pass(desc) :: is_ok           => psb_is_ok_desc
     procedure, pass(desc) :: is_valid        => psb_is_valid_desc

base/modules/psb_linmap_mod.f90

@@ -38,8 +38,6 @@
 module psb_linmap_mod
 
   use psb_const_mod
-!!$  use psb_descriptor_type
-!!$  use psb_linmap_type_mod
   use psb_s_linmap_mod
   use psb_d_linmap_mod
   use psb_c_linmap_mod