mld2p4-2:

mlprec/mld_base_prec_type.F90 mlprec/mld_c_base_smoother_mod.f90 mlprec/mld_c_base_solver_mod.f90 mlprec/mld_c_ilu_fact_mod.f90 mlprec/mld_c_onelev_mod.f90 mlprec/mld_c_prec_type.f90 mlprec/mld_d_base_smoother_mod.f90 mlprec/mld_d_base_solver_mod.f90 mlprec/mld_d_ilu_fact_mod.f90 mlprec/mld_d_onelev_mod.f90 mlprec/mld_d_prec_type.f90 mlprec/mld_s_base_smoother_mod.f90 mlprec/mld_s_base_solver_mod.f90 mlprec/mld_s_ilu_fact_mod.f90 mlprec/mld_s_onelev_mod.f90 mlprec/mld_s_prec_type.f90 mlprec/mld_z_base_smoother_mod.f90 mlprec/mld_z_base_solver_mod.f90 mlprec/mld_z_ilu_fact_mod.f90 mlprec/mld_z_onelev_mod.f90 mlprec/mld_z_prec_type.f90 Fixes for interfaces.
2026-10-06 22:55:12 +00:00 · 2011-12-13 18:11:53 +00:00
parent 5049eec713
commit d0c2dd0831
21 changed files with 41 additions and 25 deletions
@@ -65,20 +65,20 @@ module mld_base_prec_type
  !
  use psb_const_mod
  use psb_base_mod, only :&
-       & psb_dspmat_type, psb_zspmat_type,&
-       & psb_sspmat_type, psb_cspmat_type,&
       & psb_desc_type,&
-       & psb_slinmap_type, psb_dlinmap_type,&
-       & psb_clinmap_type, psb_zlinmap_type, &
       & psb_dpk_, psb_spk_, psb_long_int_k_,  &
-       & psb_spfree, psb_cdfree, psb_halo_, psb_none_, psb_sum_, psb_avg_, &
+       & psb_cdfree, psb_halo_, psb_none_, psb_sum_, psb_avg_, &
       & psb_nohalo_, psb_square_root_, psb_toupper, psb_root_,&
       & psb_sizeof_int, psb_sizeof_long_int, psb_sizeof_sp, psb_sizeof_dp, psb_sizeof,&
       & psb_cd_get_context, psb_info
-  use psb_prec_mod, only: psb_sprec_type, psb_dprec_type,&
-       & psb_cprec_type, psb_zprec_type,&
-       & psb_d_base_prec_type,  psb_s_base_prec_type, &
-       & psb_z_base_prec_type,  psb_c_base_prec_type
+!!$       & psb_dspmat_type, psb_zspmat_type,&
+!!$       & psb_sspmat_type, psb_cspmat_type,&
+!!$       & psb_slinmap_type, psb_dlinmap_type,&
+!!$       & psb_clinmap_type, psb_zlinmap_type, &
+!!$  use psb_prec_mod, only: psb_sprec_type, psb_dprec_type,&
+!!$       & psb_cprec_type, psb_zprec_type,&
+!!$       & psb_d_base_prec_type,  psb_s_base_prec_type, &
+!!$       & psb_z_base_prec_type,  psb_c_base_prec_type

  ! 
  ! Version numbers
@@ -54,6 +54,8 @@
 module mld_c_base_smoother_mod

  use mld_c_base_solver_mod
+  use psb_base_mod, only : psb_cspmat_type, psb_c_vect_type, psb_c_base_vect_type
+  
  !
  !
  ! 
@@ -54,7 +54,7 @@
 module mld_c_base_solver_mod

  use mld_base_prec_type
-  use psb_base_mod, only : psb_c_vect_type, psb_c_base_vect_type
+  use psb_base_mod, only : psb_cspmat_type, psb_c_vect_type, psb_c_base_vect_type
  !
  ! 
  ! Type: mld_T_base_solver_type.
@@ -1,6 +1,7 @@
 module mld_c_ilu_fact_mod

-  use mld_base_prec_type
+  use psb_base_mod, only : psb_cspmat_type, psb_spk_
+  use mld_base_prec_type 

  interface mld_ilu0_fact
    subroutine mld_cilu0_fact(ialg,a,l,u,d,info,blck,upd)
@@ -55,8 +55,9 @@
 module mld_c_onelev_mod

  use mld_base_prec_type
-  use psb_base_mod, only : psb_c_vect_type, psb_c_base_vect_type
  use mld_c_base_smoother_mod
+  use psb_base_mod, only : psb_cspmat_type, psb_c_vect_type, psb_c_base_vect_type, &
+       & psb_clinmap_type
  !
  !
  ! Type: mld_Tonelev_type.
@@ -54,10 +54,10 @@
 module mld_c_prec_type

  use mld_base_prec_type
-  use psb_base_mod, only : psb_c_vect_type, psb_c_base_vect_type
  use mld_c_base_solver_mod
  use mld_c_base_smoother_mod
  use mld_c_onelev_mod
+  use psb_prec_mod, only : psb_cprec_type

  !
  ! Type: mld_Tprec_type.
@@ -54,6 +54,8 @@
 module mld_d_base_smoother_mod

  use mld_d_base_solver_mod
+  use psb_base_mod, only : psb_dspmat_type, psb_d_vect_type, psb_d_base_vect_type
+  
  !
  !
  ! 
@@ -54,7 +54,7 @@
 module mld_d_base_solver_mod

  use mld_base_prec_type
-  use psb_base_mod, only : psb_d_vect_type, psb_d_base_vect_type
+  use psb_base_mod, only : psb_dspmat_type, psb_d_vect_type, psb_d_base_vect_type
  !
  ! 
  ! Type: mld_T_base_solver_type.
@@ -1,6 +1,7 @@
 module mld_d_ilu_fact_mod

-  use mld_base_prec_type
+  use psb_base_mod, only : psb_dspmat_type, psb_dpk_
+  use mld_base_prec_type 

  interface mld_ilu0_fact
    subroutine mld_dilu0_fact(ialg,a,l,u,d,info,blck,upd)
@@ -55,8 +55,9 @@
 module mld_d_onelev_mod

  use mld_base_prec_type
-  use psb_base_mod, only : psb_d_vect_type, psb_d_base_vect_type
  use mld_d_base_smoother_mod
+  use psb_base_mod, only : psb_dspmat_type, psb_d_vect_type, psb_d_base_vect_type, &
+       & psb_dlinmap_type
  !
  !
  ! Type: mld_Tonelev_type.
@@ -54,10 +54,10 @@
 module mld_d_prec_type

  use mld_base_prec_type
-  use psb_base_mod, only : psb_d_vect_type, psb_d_base_vect_type
  use mld_d_base_solver_mod
  use mld_d_base_smoother_mod
  use mld_d_onelev_mod
+  use psb_prec_mod, only : psb_dprec_type

  !
  ! Type: mld_Tprec_type.
@@ -54,6 +54,8 @@
 module mld_s_base_smoother_mod

  use mld_s_base_solver_mod
+  use psb_base_mod, only : psb_sspmat_type, psb_s_vect_type, psb_s_base_vect_type
+  
  !
  !
  ! 
@@ -54,7 +54,7 @@
 module mld_s_base_solver_mod

  use mld_base_prec_type
-  use psb_base_mod, only : psb_s_vect_type, psb_s_base_vect_type
+  use psb_base_mod, only : psb_sspmat_type, psb_s_vect_type, psb_s_base_vect_type
  !
  ! 
  ! Type: mld_T_base_solver_type.
@@ -1,6 +1,7 @@
 module mld_s_ilu_fact_mod

-  use mld_base_prec_type
+  use psb_base_mod, only : psb_sspmat_type, psb_spk_
+  use mld_base_prec_type 

  interface mld_ilu0_fact
    subroutine mld_silu0_fact(ialg,a,l,u,d,info,blck,upd)
@@ -55,8 +55,9 @@
 module mld_s_onelev_mod

  use mld_base_prec_type
-  use psb_base_mod, only : psb_s_vect_type, psb_s_base_vect_type
  use mld_s_base_smoother_mod
+  use psb_base_mod, only : psb_sspmat_type, psb_s_vect_type, psb_s_base_vect_type, &
+       & psb_slinmap_type
  !
  !
  ! Type: mld_Tonelev_type.
@@ -54,10 +54,10 @@
 module mld_s_prec_type

  use mld_base_prec_type
-  use psb_base_mod, only : psb_s_vect_type, psb_s_base_vect_type
  use mld_s_base_solver_mod
  use mld_s_base_smoother_mod
  use mld_s_onelev_mod
+  use psb_prec_mod, only : psb_sprec_type

  !
  ! Type: mld_Tprec_type.
@@ -54,6 +54,8 @@
 module mld_z_base_smoother_mod

  use mld_z_base_solver_mod
+  use psb_base_mod, only : psb_zspmat_type, psb_z_vect_type, psb_z_base_vect_type
+  
  !
  !
  ! 
@@ -54,7 +54,7 @@
 module mld_z_base_solver_mod

  use mld_base_prec_type
-  use psb_base_mod, only : psb_z_vect_type, psb_z_base_vect_type
+  use psb_base_mod, only : psb_zspmat_type, psb_z_vect_type, psb_z_base_vect_type
  !
  ! 
  ! Type: mld_T_base_solver_type.
@@ -1,6 +1,7 @@
 module mld_z_ilu_fact_mod

-  use mld_base_prec_type
+  use psb_base_mod, only : psb_zspmat_type, psb_dpk_
+  use mld_base_prec_type 

  interface mld_ilu0_fact
    subroutine mld_zilu0_fact(ialg,a,l,u,d,info,blck,upd)
@@ -55,8 +55,9 @@
 module mld_z_onelev_mod

  use mld_base_prec_type
-  use psb_base_mod, only : psb_z_vect_type, psb_z_base_vect_type
  use mld_z_base_smoother_mod
+  use psb_base_mod, only : psb_zspmat_type, psb_z_vect_type, psb_z_base_vect_type, &
+       & psb_zlinmap_type
  !
  !
  ! Type: mld_Tonelev_type.
@@ -54,10 +54,10 @@
 module mld_z_prec_type

  use mld_base_prec_type
-  use psb_base_mod, only : psb_z_vect_type, psb_z_base_vect_type
  use mld_z_base_solver_mod
  use mld_z_base_smoother_mod
  use mld_z_onelev_mod
+  use psb_prec_mod, only : psb_zprec_type

  !
  ! Type: mld_Tprec_type.