psblas3:

base/comm/psb_cgather.f90 base/comm/psb_chalo.f90 base/comm/psb_covrl.f90 base/comm/psb_cscatter.F90 base/comm/psb_dgather.f90 base/comm/psb_dhalo.f90 base/comm/psb_dovrl.f90 base/comm/psb_dscatter.F90 base/comm/psb_igather.f90 base/comm/psb_ihalo.f90 base/comm/psb_iovrl.f90 base/comm/psb_iscatter.F90 base/comm/psb_sgather.f90 base/comm/psb_shalo.f90 base/comm/psb_sovrl.f90 base/comm/psb_sscatter.F90 base/comm/psb_zgather.f90 base/comm/psb_zhalo.f90 base/comm/psb_zovrl.f90 base/comm/psb_zscatter.F90 base/internals/psi_bld_g2lmap.f90 base/internals/psi_bld_tmphalo.f90 base/internals/psi_bld_tmpovrl.f90 base/internals/psi_compute_size.f90 base/internals/psi_crea_bnd_elem.f90 base/internals/psi_crea_index.f90 base/internals/psi_crea_ovr_elem.f90 base/internals/psi_cswapdata.F90 base/internals/psi_cswaptran.F90 base/internals/psi_desc_index.F90 base/internals/psi_dl_check.f90 base/internals/psi_dswapdata.F90 base/internals/psi_dswaptran.F90 base/internals/psi_exist_ovr_elem.f base/internals/psi_extrct_dl.F90 base/internals/psi_fnd_owner.F90 base/internals/psi_idx_cnv.f90 base/internals/psi_idx_ins_cnv.f90 base/internals/psi_iswapdata.F90 base/internals/psi_iswaptran.F90 base/internals/psi_ldsc_pre_halo.f90 base/internals/psi_list_search.f base/internals/psi_sort_dl.f90 base/internals/psi_sswapdata.F90 base/internals/psi_sswaptran.F90 base/internals/psi_zswapdata.F90 base/internals/psi_zswaptran.F90 base/internals/srtlist.f base/modules/error.f90 base/modules/psb_base_mat_mod.f03 base/modules/psb_base_tools_mod.f90 base/modules/psb_c_base_mat_mod.f03 base/modules/psb_c_csc_mat_mod.f03 base/modules/psb_c_csr_mat_mod.f03 base/modules/psb_c_linmap_mod.f90 base/modules/psb_c_mat_mod.f03 base/modules/psb_c_psblas_mod.f90 base/modules/psb_c_tools_mod.f90 base/modules/psb_check_mod.f90 base/modules/psb_comm_mod.f90 base/modules/psb_const_mod.F90 base/modules/psb_d_base_mat_mod.f03 base/modules/psb_d_csc_mat_mod.f03 base/modules/psb_d_csr_mat_mod.f03 base/modules/psb_d_linmap_mod.f90 base/modules/psb_d_mat_mod.f03 base/modules/psb_d_psblas_mod.f90 base/modules/psb_d_tools_mod.f90 base/modules/psb_desc_type.f90 base/modules/psb_error_mod.F90 base/modules/psb_gps_mod.f90 base/modules/psb_hash_mod.f90 base/modules/psb_ip_reord_mod.f90 base/modules/psb_linmap_mod.f90 base/modules/psb_linmap_type_mod.f90 base/modules/psb_psblas_mod.f90 base/modules/psb_realloc_mod.F90 base/modules/psb_s_base_mat_mod.f03 base/modules/psb_s_csc_mat_mod.f03 base/modules/psb_s_csr_mat_mod.f03 base/modules/psb_s_linmap_mod.f90 base/modules/psb_s_mat_mod.f03 base/modules/psb_s_psblas_mod.f90 base/modules/psb_s_tools_mod.f90 base/modules/psb_serial_mod.f90 base/modules/psb_sort_mod.f90 base/modules/psb_sparse_mod.f90 base/modules/psb_string_mod.f90 base/modules/psb_tools_mod.f90 base/modules/psb_z_base_mat_mod.f03 base/modules/psb_z_csc_mat_mod.f03 base/modules/psb_z_csr_mat_mod.f03 base/modules/psb_z_linmap_mod.f90 base/modules/psb_z_mat_mod.f03 base/modules/psb_z_psblas_mod.f90 base/modules/psb_z_tools_mod.f90 base/modules/psi_mod.f90 base/modules/psi_serial_mod.f90 base/psblas/psb_camax.f90 base/psblas/psb_casum.f90 base/psblas/psb_caxpby.f90 base/psblas/psb_cdot.f90 base/psblas/psb_cnrm2.f90 base/psblas/psb_cnrmi.f90 base/psblas/psb_cspmm.f90 base/psblas/psb_cspsm.f90 base/psblas/psb_damax.f90 base/psblas/psb_dasum.f90 base/psblas/psb_daxpby.f90 base/psblas/psb_ddot.f90 base/psblas/psb_dnrm2.f90 base/psblas/psb_dnrmi.f90 base/psblas/psb_dspmm.f90 base/psblas/psb_dspnrm1.f90 base/psblas/psb_dspsm.f90 base/psblas/psb_samax.f90 base/psblas/psb_sasum.f90 base/psblas/psb_saxpby.f90 base/psblas/psb_sdot.f90 base/psblas/psb_snrm2.f90 base/psblas/psb_snrmi.f90 base/psblas/psb_sspmm.f90 base/psblas/psb_sspsm.f90 base/psblas/psb_sxdot.f90 base/psblas/psb_zamax.f90 base/psblas/psb_zasum.f90 base/psblas/psb_zaxpby.f90 base/psblas/psb_zdot.f90 base/psblas/psb_znrm2.f90 base/psblas/psb_znrmi.f90 base/psblas/psb_zspmm.f90 base/psblas/psb_zspsm.f90 base/serial/aux/cacmp_mod.f90 base/serial/aux/calcmp_mod.f90 base/serial/aux/calsr.f90 base/serial/aux/calsrx.f90 base/serial/aux/camsort_dw.f90 base/serial/aux/camsort_up.f90 base/serial/aux/camsr.f90 base/serial/aux/camsrx.f90 base/serial/aux/casr.f90 base/serial/aux/casrx.f90 base/serial/aux/clcmp_mod.f90 base/serial/aux/clsr.f90 base/serial/aux/clsrx.f90 base/serial/aux/dasr.f90 base/serial/aux/dasrx.f90 base/serial/aux/dmsort_dw.f90 base/serial/aux/dmsort_up.f90 base/serial/aux/dmsr.f90 base/serial/aux/dmsrx.f90 base/serial/aux/dsr.f90 base/serial/aux/dsrx.f90 base/serial/aux/iasr.f90 base/serial/aux/iasrx.f90 base/serial/aux/ibsrch.f base/serial/aux/imsr.f90 base/serial/aux/imsru.f90 base/serial/aux/imsrx.f90 base/serial/aux/isaperm.f base/serial/aux/isr.f90 base/serial/aux/isrx.f90 base/serial/aux/issrch.f base/serial/aux/msort_dw.f90 base/serial/aux/msort_up.f90 base/serial/aux/sasr.f90 base/serial/aux/sasrx.f90 base/serial/aux/smsort_dw.f90 base/serial/aux/smsort_up.f90 base/serial/aux/smsr.f90 base/serial/aux/smsrx.f90 base/serial/aux/ssr.f90 base/serial/aux/ssrx.f90 base/serial/aux/zacmp_mod.f90 base/serial/aux/zalcmp_mod.f90 base/serial/aux/zalsr.f90 base/serial/aux/zalsrx.f90 base/serial/aux/zamsort_dw.f90 base/serial/aux/zamsort_up.f90 base/serial/aux/zamsr.f90 base/serial/aux/zamsrx.f90 base/serial/aux/zasr.f90 base/serial/aux/zasrx.f90 base/serial/aux/zlcmp_mod.f90 base/serial/aux/zlsr.f90 base/serial/aux/zlsrx.f90 base/serial/f77/caxpby.f base/serial/f77/daxpby.f base/serial/f77/saxpby.f base/serial/f77/zaxpby.f base/serial/psb_cnumbmm.f90 base/serial/psb_crwextd.f90 base/serial/psb_csymbmm.f90 base/serial/psb_dnumbmm.f90 base/serial/psb_drwextd.f90 base/serial/psb_dsymbmm.f90 base/serial/psb_lsame.f90 base/serial/psb_snumbmm.f90 base/serial/psb_sort_impl.f90 base/serial/psb_srwextd.f90 base/serial/psb_ssymbmm.f90 base/serial/psb_znumbmm.f90 base/serial/psb_zrwextd.f90 base/serial/psb_zsymbmm.f90 base/serial/psi_impl.f90 base/serial/psi_serial_impl.f90 base/tools/psb_callc.f90 base/tools/psb_casb.f90 base/tools/psb_ccdbldext.F90 base/tools/psb_cd_inloc.f90 base/tools/psb_cd_lstext.f90 base/tools/psb_cd_reinit.f90 base/tools/psb_cd_set_bld.f90 base/tools/psb_cdals.f90 base/tools/psb_cdalv.f90 base/tools/psb_cdcpy.f90 base/tools/psb_cdins.f90 base/tools/psb_cdprt.f90 base/tools/psb_cdren.f90 base/tools/psb_cdrep.f90 base/tools/psb_cfree.f90 base/tools/psb_cins.f90 base/tools/psb_cspalloc.f90 base/tools/psb_cspasb.f90 base/tools/psb_cspfree.f90 base/tools/psb_csphalo.F90 base/tools/psb_cspins.f90 base/tools/psb_csprn.f90 base/tools/psb_dallc.f90 base/tools/psb_dasb.f90 base/tools/psb_dcdbldext.F90 base/tools/psb_dfree.f90 base/tools/psb_dins.f90 base/tools/psb_dspalloc.f90 base/tools/psb_dspasb.f90 base/tools/psb_dspfree.f90 base/tools/psb_dsphalo.F90 base/tools/psb_dspins.f90 base/tools/psb_dsprn.f90 base/tools/psb_get_overlap.f90 base/tools/psb_glob_to_loc.f90 base/tools/psb_ialloc.f90 base/tools/psb_iasb.f90 base/tools/psb_icdasb.F90 base/tools/psb_ifree.f90 base/tools/psb_iins.f90 base/tools/psb_linmap.f90 base/tools/psb_loc_to_glob.f90 base/tools/psb_map.f90 base/tools/psb_sallc.f90 base/tools/psb_sasb.f90 base/tools/psb_scdbldext.F90 base/tools/psb_sfree.f90 base/tools/psb_sins.f90 base/tools/psb_sspalloc.f90 base/tools/psb_sspasb.f90 base/tools/psb_sspfree.f90 base/tools/psb_ssphalo.F90 base/tools/psb_sspins.f90 base/tools/psb_ssprn.f90 base/tools/psb_zallc.f90 base/tools/psb_zasb.f90 base/tools/psb_zcdbldext.F90 base/tools/psb_zfree.f90 base/tools/psb_zins.f90 base/tools/psb_zspalloc.f90 base/tools/psb_zspasb.f90 base/tools/psb_zspfree.f90 base/tools/psb_zsphalo.F90 base/tools/psb_zspins.f90 base/tools/psb_zsprn.f90 krylov/psb_base_inner_krylov_mod.f90 krylov/psb_c_inner_krylov_mod.f90 krylov/psb_cbicg.f90 krylov/psb_ccg.f90 krylov/psb_ccgs.f90 krylov/psb_ccgstab.f90 krylov/psb_ccgstabl.f90 krylov/psb_ckrylov.f90 krylov/psb_crgmres.f90 krylov/psb_d_inner_krylov_mod.f90 krylov/psb_dbicg.f90 krylov/psb_dcg.F90 krylov/psb_dcgs.f90 krylov/psb_dcgstab.F90 krylov/psb_dcgstabl.f90 krylov/psb_dkrylov.f90 krylov/psb_drgmres.f90 krylov/psb_inner_krylov_mod.f90 krylov/psb_krylov_mod.f90 krylov/psb_s_inner_krylov_mod.f90 krylov/psb_sbicg.f90 krylov/psb_scg.F90 krylov/psb_scgs.f90 krylov/psb_scgstab.F90 krylov/psb_scgstabl.f90 krylov/psb_skrylov.f90 krylov/psb_srgmres.f90 krylov/psb_z_inner_krylov_mod.f90 krylov/psb_zbicg.f90 krylov/psb_zcg.F90 krylov/psb_zcgs.f90 krylov/psb_zcgstab.f90 krylov/psb_zcgstabl.f90 krylov/psb_zkrylov.f90 krylov/psb_zrgmres.f90 prec/psb_c_base_prec_mod.f03 prec/psb_c_prec_type.f03 prec/psb_cilu_fct.f90 prec/psb_cprc_aply.f90 prec/psb_cprecbld.f90 prec/psb_cprecinit.f90 prec/psb_cprecset.f90 prec/psb_d_base_prec_mod.f03 prec/psb_d_prec_type.f03 prec/psb_dilu_fct.f90 prec/psb_dprc_aply.f90 prec/psb_dprecbld.f90 prec/psb_dprecinit.f90 prec/psb_dprecset.f90 prec/psb_prec_const_mod.f03 prec/psb_prec_mod.f90 prec/psb_prec_type.f03 prec/psb_s_base_prec_mod.f03 prec/psb_s_prec_type.f03 prec/psb_silu_fct.f90 prec/psb_sprc_aply.f90 prec/psb_sprecbld.f90 prec/psb_sprecinit.f90 prec/psb_sprecset.f90 prec/psb_z_base_prec_mod.f03 prec/psb_z_prec_type.f03 prec/psb_zilu_fct.f90 prec/psb_zprc_aply.f90 prec/psb_zprecbld.f90 prec/psb_zprecinit.f90 prec/psb_zprecset.f90 test/fileread/cf_sample.f90 test/fileread/df_sample.f90 test/fileread/getp.f90 test/fileread/sf_sample.f90 test/fileread/zf_sample.f90 test/pargen/ppde.f90 test/pargen/spde.f90 test/serial/psb_d_cxx_mat_mod.f03 test/util/dhb2mm.f90 test/util/dmm2hb.f90 test/util/zhb2mm.f90 test/util/zmm2hb.f90 util/psb_blockpart_mod.f90 util/psb_hbio_impl.f90 util/psb_hbio_mod.f90 util/psb_mat_dist_impl.f90 util/psb_mat_dist_mod.f90 util/psb_metispart_mod.F90 util/psb_mmio_impl.f90 util/psb_mmio_mod.f90 util/psb_util_mod.f90 Updated copyright statement. Fixed style to use "import :: " statement.
2026-10-20 04:42:08 +00:00 · 2010-09-03 10:11:22 +00:00
parent 111f43a246
commit 2fb20bc173
358 changed files with 1207 additions and 1196 deletions
@@ -1,6 +1,6 @@
 !!$ 
 !!$              Parallel Sparse BLAS  version 3.0
-!!$    (C) Copyright 2010
+!!$    (C) Copyright 2006, 2007, 2008, 2009, 2010
 !!$                       Salvatore Filippone    University of Rome Tor Vergata
 !!$                       Alfredo Buttari        CNRS-IRIT, Toulouse
 !!$ 
@@ -221,32 +221,32 @@ module psb_sort_mod

  interface psb_howmany_heap
    function  psb_howmany_int_heap(heap)
-      import psb_int_heap
+      import :: psb_int_heap
      type(psb_int_heap), intent(in) :: heap
      integer :: psb_howmany_int_heap
    end function psb_howmany_int_heap
    function  psb_howmany_real_idx_heap(heap)
-      import psb_real_idx_heap
+      import :: psb_real_idx_heap
      type(psb_real_idx_heap), intent(in) :: heap
      integer :: psb_howmany_real_idx_heap
    end function psb_howmany_real_idx_heap
    function  psb_howmany_double_idx_heap(heap)
-      import psb_double_idx_heap
+      import :: psb_double_idx_heap
      type(psb_double_idx_heap), intent(in) :: heap
      integer :: psb_howmany_double_idx_heap
    end function psb_howmany_double_idx_heap
    function  psb_howmany_int_idx_heap(heap)
-      import psb_int_idx_heap
+      import :: psb_int_idx_heap
      type(psb_int_idx_heap), intent(in) :: heap
      integer :: psb_howmany_int_idx_heap
    end function psb_howmany_int_idx_heap
    function  psb_howmany_scomplex_idx_heap(heap)
-      import psb_scomplex_idx_heap
+      import :: psb_scomplex_idx_heap
      type(psb_scomplex_idx_heap), intent(in) :: heap
      integer :: psb_howmany_scomplex_idx_heap
    end function psb_howmany_scomplex_idx_heap
    function  psb_howmany_dcomplex_idx_heap(heap)
-      import psb_dcomplex_idx_heap
+      import :: psb_dcomplex_idx_heap
      type(psb_dcomplex_idx_heap), intent(in) :: heap
      integer :: psb_howmany_dcomplex_idx_heap
    end function psb_howmany_dcomplex_idx_heap
@@ -255,37 +255,37 @@ module psb_sort_mod

  interface psb_init_heap
    subroutine psb_init_int_heap(heap,info,dir)
-      import psb_int_heap
+      import :: psb_int_heap
      type(psb_int_heap), intent(inout) :: heap
      integer, intent(out)            :: info
      integer, intent(in), optional   :: dir
    end subroutine psb_init_int_heap
    subroutine psb_init_real_idx_heap(heap,info,dir)
-      import psb_real_idx_heap
+      import :: psb_real_idx_heap
      type(psb_real_idx_heap), intent(inout) :: heap
      integer, intent(out)            :: info
      integer, intent(in), optional   :: dir
    end subroutine psb_init_real_idx_heap
    subroutine psb_init_int_idx_heap(heap,info,dir)
-      import psb_int_idx_heap
+      import :: psb_int_idx_heap
      type(psb_int_idx_heap), intent(inout) :: heap
      integer, intent(out)            :: info
      integer, intent(in), optional   :: dir
    end subroutine psb_init_int_idx_heap
    subroutine psb_init_scomplex_idx_heap(heap,info,dir)
-      import psb_scomplex_idx_heap
+      import :: psb_scomplex_idx_heap
      type(psb_scomplex_idx_heap), intent(inout) :: heap
      integer, intent(out)            :: info
      integer, intent(in), optional   :: dir
    end subroutine psb_init_scomplex_idx_heap
    subroutine psb_init_dcomplex_idx_heap(heap,info,dir)
-      import psb_dcomplex_idx_heap
+      import :: psb_dcomplex_idx_heap
      type(psb_dcomplex_idx_heap), intent(inout) :: heap
      integer, intent(out)            :: info
      integer, intent(in), optional   :: dir
    end subroutine psb_init_dcomplex_idx_heap
    subroutine psb_init_double_idx_heap(heap,info,dir)
-      import psb_double_idx_heap
+      import :: psb_double_idx_heap
      type(psb_double_idx_heap), intent(inout) :: heap
      integer, intent(out)            :: info
      integer, intent(in), optional   :: dir
@@ -295,37 +295,37 @@ module psb_sort_mod

  interface psb_dump_heap
    subroutine psb_dump_int_heap(iout,heap,info)
-      import psb_int_heap
+      import :: psb_int_heap
      type(psb_int_heap), intent(in) :: heap
      integer, intent(out)           :: info
      integer, intent(in)            :: iout
    end subroutine psb_dump_int_heap
    subroutine psb_dump_real_idx_heap(iout,heap,info)
-      import psb_real_idx_heap
+      import :: psb_real_idx_heap
      type(psb_real_idx_heap), intent(in) :: heap
      integer, intent(out)           :: info
      integer, intent(in)            :: iout
    end subroutine psb_dump_real_idx_heap
    subroutine psb_dump_double_idx_heap(iout,heap,info)
-      import psb_double_idx_heap
+      import :: psb_double_idx_heap
      type(psb_double_idx_heap), intent(in) :: heap
      integer, intent(out)           :: info
      integer, intent(in)            :: iout
    end subroutine psb_dump_double_idx_heap
    subroutine psb_dump_int_idx_heap(iout,heap,info)
-      import psb_int_idx_heap
+      import :: psb_int_idx_heap
      type(psb_int_idx_heap), intent(in) :: heap
      integer, intent(out)           :: info
      integer, intent(in)            :: iout
    end subroutine psb_dump_int_idx_heap
    subroutine psb_dump_scomplex_idx_heap(iout,heap,info)
-      import psb_scomplex_idx_heap
+      import :: psb_scomplex_idx_heap
      type(psb_scomplex_idx_heap), intent(in) :: heap
      integer, intent(out)           :: info
      integer, intent(in)            :: iout
    end subroutine psb_dump_scomplex_idx_heap
    subroutine psb_dump_dcomplex_idx_heap(iout,heap,info)
-      import psb_dcomplex_idx_heap
+      import :: psb_dcomplex_idx_heap
      type(psb_dcomplex_idx_heap), intent(in) :: heap
      integer, intent(out)           :: info
      integer, intent(in)            :: iout
@@ -335,41 +335,41 @@ module psb_sort_mod

  interface psb_insert_heap
    subroutine psb_insert_int_heap(key,heap,info)
-      import psb_int_heap
+      import :: psb_int_heap
      integer, intent(in)               :: key
      type(psb_int_heap), intent(inout) :: heap
      integer, intent(out)              :: info
    end subroutine psb_insert_int_heap
    subroutine psb_insert_int_idx_heap(key,index,heap,info)
-      import psb_dpk_, psb_int_idx_heap
+      import :: psb_dpk_, psb_int_idx_heap
      integer, intent(in)                   :: key
      integer, intent(in)                   :: index
      type(psb_int_idx_heap), intent(inout) :: heap
      integer, intent(out)                  :: info
    end subroutine psb_insert_int_idx_heap
    subroutine psb_insert_real_idx_heap(key,index,heap,info)
-      import psb_spk_, psb_real_idx_heap
+      import :: psb_spk_, psb_real_idx_heap
      real(psb_spk_), intent(in)      :: key
      integer, intent(in)               :: index
      type(psb_real_idx_heap), intent(inout) :: heap
      integer, intent(out)              :: info
    end subroutine psb_insert_real_idx_heap
    subroutine psb_insert_double_idx_heap(key,index,heap,info)
-      import psb_dpk_, psb_double_idx_heap
+      import :: psb_dpk_, psb_double_idx_heap
      real(psb_dpk_), intent(in)      :: key
      integer, intent(in)               :: index
      type(psb_double_idx_heap), intent(inout) :: heap
      integer, intent(out)              :: info
    end subroutine psb_insert_double_idx_heap
    subroutine psb_insert_scomplex_idx_heap(key,index,heap,info)
-      import psb_spk_, psb_scomplex_idx_heap
+      import :: psb_spk_, psb_scomplex_idx_heap
      complex(psb_spk_), intent(in)              :: key
      integer, intent(in)                        :: index
      type(psb_scomplex_idx_heap), intent(inout) :: heap
      integer, intent(out)                       :: info
    end subroutine psb_insert_scomplex_idx_heap
    subroutine psb_insert_dcomplex_idx_heap(key,index,heap,info)
-      import psb_dpk_, psb_dcomplex_idx_heap
+      import :: psb_dpk_, psb_dcomplex_idx_heap
      complex(psb_dpk_), intent(in)            :: key
      integer, intent(in)                        :: index
      type(psb_dcomplex_idx_heap), intent(inout) :: heap
@@ -379,37 +379,37 @@ module psb_sort_mod

  interface psb_heap_get_first
    subroutine psb_int_heap_get_first(key,heap,info)
-      import psb_int_heap
+      import :: psb_int_heap
      type(psb_int_heap), intent(inout) :: heap
      integer, intent(out)              :: key,info
    end subroutine psb_int_heap_get_first
    subroutine psb_int_idx_heap_get_first(key,index,heap,info)
-      import psb_int_idx_heap
+      import :: psb_int_idx_heap
      type(psb_int_idx_heap), intent(inout) :: heap
      integer, intent(out)                  :: index,info
      integer, intent(out)                  :: key
    end subroutine psb_int_idx_heap_get_first
    subroutine psb_real_idx_heap_get_first(key,index,heap,info)
-      import psb_spk_, psb_real_idx_heap
+      import :: psb_spk_, psb_real_idx_heap
      type(psb_real_idx_heap), intent(inout) :: heap
      integer, intent(out)              :: index,info
      real(psb_spk_), intent(out)     :: key
    end subroutine psb_real_idx_heap_get_first
    subroutine psb_double_idx_heap_get_first(key,index,heap,info)
-      import psb_dpk_, psb_double_idx_heap
+      import :: psb_dpk_, psb_double_idx_heap
      type(psb_double_idx_heap), intent(inout) :: heap
      integer, intent(out)              :: index,info
      real(psb_dpk_), intent(out)     :: key
    end subroutine psb_double_idx_heap_get_first
    subroutine psb_scomplex_idx_heap_get_first(key,index,heap,info)
-      import psb_spk_, psb_scomplex_idx_heap
+      import :: psb_spk_, psb_scomplex_idx_heap
      type(psb_scomplex_idx_heap), intent(inout) :: heap
      integer, intent(out)                       :: index,info
      complex(psb_spk_), intent(out)           :: key
    end subroutine psb_scomplex_idx_heap_get_first
    
    subroutine psb_dcomplex_idx_heap_get_first(key,index,heap,info)
-      import psb_dpk_, psb_dcomplex_idx_heap
+      import :: psb_dpk_, psb_dcomplex_idx_heap
      type(psb_dcomplex_idx_heap), intent(inout) :: heap
      integer, intent(out)                       :: index,info
      complex(psb_dpk_), intent(out)           :: key
@@ -446,7 +446,7 @@ module psb_sort_mod
  
  interface 
    subroutine psi_insert_real_heap(key,last,heap,dir,info)
-      import psb_spk_
+      import :: psb_spk_
      real(psb_spk_), intent(in)    :: key
      integer, intent(in)           :: dir
      real(psb_spk_), intent(inout) :: heap(:)
@@ -459,7 +459,7 @@ module psb_sort_mod
  
  interface 
    subroutine psi_real_heap_get_first(key,last,heap,dir,info)
-      import psb_spk_
+      import :: psb_spk_
      real(psb_spk_), intent(inout) :: key
      integer, intent(inout)        :: last
      integer, intent(in)           :: dir
@@ -470,7 +470,7 @@ module psb_sort_mod
  
  interface 
    subroutine psi_insert_double_heap(key,last,heap,dir,info)
-      import psb_dpk_
+      import :: psb_dpk_
      real(psb_dpk_), intent(in)    :: key
      integer, intent(in)             :: dir
      real(psb_dpk_), intent(inout) :: heap(:)
@@ -483,7 +483,7 @@ module psb_sort_mod
  
  interface 
    subroutine psi_double_heap_get_first(key,last,heap,dir,info)
-      import psb_dpk_
+      import :: psb_dpk_
      real(psb_dpk_), intent(inout) :: key
      integer, intent(inout)          :: last
      integer, intent(in)             :: dir
@@ -494,7 +494,7 @@ module psb_sort_mod
  
  interface 
    subroutine psi_insert_scomplex_heap(key,last,heap,dir,info)
-      import psb_spk_
+      import :: psb_spk_
      complex(psb_spk_), intent(in)    :: key
      integer, intent(in)              :: dir
      complex(psb_spk_), intent(inout) :: heap(:)
@@ -505,7 +505,7 @@ module psb_sort_mod
  
  interface 
    subroutine psi_scomplex_heap_get_first(key,last,heap,dir,info)
-      import psb_spk_
+      import :: psb_spk_
      complex(psb_spk_), intent(inout) :: key
      integer, intent(inout)           :: last
      integer, intent(in)              :: dir
@@ -516,7 +516,7 @@ module psb_sort_mod
  
  interface 
    subroutine psi_insert_dcomplex_heap(key,last,heap,dir,info)
-      import psb_dpk_
+      import :: psb_dpk_
      complex(psb_dpk_), intent(in)    :: key
      integer, intent(in)                :: dir
      complex(psb_dpk_), intent(inout) :: heap(:)
@@ -527,7 +527,7 @@ module psb_sort_mod
  
  interface 
    subroutine psi_dcomplex_heap_get_first(key,last,heap,dir,info)
-      import psb_dpk_
+      import :: psb_dpk_
      complex(psb_dpk_), intent(inout) :: key
      integer, intent(inout)             :: last
      integer, intent(in)                :: dir
@@ -558,7 +558,7 @@ module psb_sort_mod
  
  interface 
    subroutine psi_insert_real_idx_heap(key,index,last,heap,idxs,dir,info)
-      import psb_spk_
+      import :: psb_spk_
      real(psb_spk_), intent(in)     :: key
      integer, intent(in)            :: index,dir
      real(psb_spk_), intent(inout)  :: heap(:)
@@ -569,7 +569,7 @@ module psb_sort_mod
  
  interface 
    subroutine psi_real_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
-      import psb_spk_
+      import :: psb_spk_
      real(psb_spk_), intent(inout) :: heap(:)
      integer, intent(out)          :: index,info
      integer, intent(inout)        :: last,idxs(:)
@@ -580,7 +580,7 @@ module psb_sort_mod

  interface 
    subroutine psi_insert_double_idx_heap(key,index,last,heap,idxs,dir,info)
-      import psb_dpk_
+      import :: psb_dpk_
      real(psb_dpk_), intent(in)     :: key
      integer, intent(in)              :: index,dir
      real(psb_dpk_), intent(inout)  :: heap(:)
@@ -591,7 +591,7 @@ module psb_sort_mod
  
  interface 
    subroutine psi_double_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
-      import psb_dpk_
+      import :: psb_dpk_
      real(psb_dpk_), intent(inout) :: heap(:)
      integer, intent(out)            :: index,info
      integer, intent(inout)          :: last,idxs(:)
@@ -602,7 +602,7 @@ module psb_sort_mod

  interface 
    subroutine psi_insert_scomplex_idx_heap(key,index,last,heap,idxs,dir,info)
-      import psb_spk_
+      import :: psb_spk_
      complex(psb_spk_), intent(in)    :: key
      integer, intent(in)              :: index,dir
      complex(psb_spk_), intent(inout) :: heap(:)
@@ -613,7 +613,7 @@ module psb_sort_mod

  interface 
    subroutine psi_scomplex_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
-      import psb_spk_
+      import :: psb_spk_
      complex(psb_spk_), intent(inout) :: heap(:)
      integer, intent(out)             :: index,info
      integer, intent(inout)           :: last,idxs(:)
@@ -624,7 +624,7 @@ module psb_sort_mod

  interface 
    subroutine psi_insert_dcomplex_idx_heap(key,index,last,heap,idxs,dir,info)
-      import psb_dpk_
+      import :: psb_dpk_
      complex(psb_dpk_), intent(in)    :: key
      integer, intent(in)                :: index,dir
      complex(psb_dpk_), intent(inout) :: heap(:)
@@ -635,7 +635,7 @@ module psb_sort_mod

  interface 
    subroutine psi_dcomplex_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
-      import psb_dpk_
+      import :: psb_dpk_
      complex(psb_dpk_), intent(inout) :: heap(:)
      integer, intent(out)               :: index,info
      integer, intent(inout)             :: last,idxs(:)