psblas3-submodules:

base/modules/psb_base_mat_mod.f90

No IMPORT in module subroutines.

base/modules/psb_base_mat_mod.f90

@@ -230,7 +230,6 @@ module psb_base_mat_mod
   !
   interface 
     module function psb_base_get_nz_row(idx,a) result(res)
-      import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat
       integer(psb_ipk_), intent(in)                    :: idx
       class(psb_base_sparse_mat), intent(in) :: a
       integer(psb_ipk_) :: res
@@ -245,7 +244,6 @@ module psb_base_mat_mod
   !
   interface 
     module function psb_base_get_nzeros(a) result(res)
-      import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat
       class(psb_base_sparse_mat), intent(in) :: a
       integer(psb_ipk_) :: res
     end function psb_base_get_nzeros
@@ -260,7 +258,6 @@ module psb_base_mat_mod
   !    
   interface 
     module function psb_base_get_size(a) result(res)
-      import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat
       class(psb_base_sparse_mat), intent(in) :: a
       integer(psb_ipk_) :: res
     end function psb_base_get_size
@@ -273,7 +270,6 @@ module psb_base_mat_mod
   !    
   interface 
     module subroutine psb_base_reinit(a,clear)
-      import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat
       class(psb_base_sparse_mat), intent(inout) :: a   
       logical, intent(in), optional :: clear
     end subroutine psb_base_reinit
@@ -292,7 +288,6 @@ module psb_base_mat_mod
   !    
   interface 
     module subroutine psb_base_sparse_print(iout,a,iv,head,ivr,ivc)
-      import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat
       integer(psb_ipk_), intent(in)               :: iout
       class(psb_base_sparse_mat), intent(in) :: a   
       integer(psb_ipk_), intent(in), optional     :: iv(:)
@@ -332,7 +327,6 @@ module psb_base_mat_mod
   interface 
     module subroutine psb_base_csgetptn(imin,imax,a,nz,ia,ja,info,&
          & jmin,jmax,iren,append,nzin,rscale,cscale)
-      import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat
       class(psb_base_sparse_mat), intent(in) :: a
       integer(psb_ipk_), intent(in)                  :: imin,imax
       integer(psb_ipk_), intent(out)                 :: nz
@@ -362,7 +356,6 @@ module psb_base_mat_mod
   !           
   interface 
     module subroutine psb_base_get_neigh(a,idx,neigh,n,info,lev)
-      import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat
       class(psb_base_sparse_mat), intent(in) :: a   
       integer(psb_ipk_), intent(in)                :: idx 
       integer(psb_ipk_), intent(out)               :: n   
@@ -384,7 +377,6 @@ module psb_base_mat_mod
   !
   interface 
     module subroutine  psb_base_allocate_mnnz(m,n,a,nz) 
-      import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat
       integer(psb_ipk_), intent(in) :: m,n
       class(psb_base_sparse_mat), intent(inout) :: a
       integer(psb_ipk_), intent(in), optional  :: nz
@@ -402,7 +394,6 @@ module psb_base_mat_mod
   !
   interface 
     module subroutine psb_base_reallocate_nz(nz,a) 
-      import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat
       integer(psb_ipk_), intent(in) :: nz
       class(psb_base_sparse_mat), intent(inout) :: a
     end subroutine psb_base_reallocate_nz
@@ -415,7 +406,6 @@ module psb_base_mat_mod
   !
   interface 
     module subroutine psb_base_free(a) 
-      import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat
       class(psb_base_sparse_mat), intent(inout) :: a
     end subroutine psb_base_free
   end interface
@@ -429,7 +419,6 @@ module psb_base_mat_mod
   !
   interface 
     module subroutine psb_base_trim(a) 
-      import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat
       class(psb_base_sparse_mat), intent(inout) :: a
     end subroutine psb_base_trim
   end interface