psblas3

psb_base_linmap_mod.f90 psb_desc_type.f90 psb_linmap_mod.f90 Internal cosmetic changes.
13 years ago · 4fd3247f92
parent 05ed51b1a4
commit 4fd3247f92
3 changed files with 10 additions and 12 deletions
--- a/base/modules/psb_base_linmap_mod.f90
+++ b/base/modules/psb_base_linmap_mod.f90
@ -140,7 +140,7 @@ contains
    use psb_descriptor_type
    use psb_mat_mod, only : psb_move_alloc
    implicit none 
-    type(psb_base_linmap_type) :: mapin,mapout
+    type(psb_base_linmap_type), intent(inout) :: mapin,mapout
    integer(psb_ipk_), intent(out)            :: info 
    
    mapout%kind = mapin%kind
--- a/base/modules/psb_linmap_mod.f90
+++ b/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