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.
stopcriterion
Salvatore Filippone 13 years ago
parent 5049eec713
commit d0c2dd0831

@ -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.

Loading…
Cancel
Save