fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

mld2p4-2:

Browse Source 
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
21 changed files with 41 additions and 25 deletions
Show Stats Download Patch File Download Diff File

18
mlprec/mld_base_prec_type.F90
Unescape Escape View File

@ -65,20 +65,20 @@ module mld_base_prec_type
! !
use psb_const_mod use psb_const_mod
use psb_base_mod, only :& use psb_base_mod, only :&
& psb_dspmat_type, psb_zspmat_type,&
& psb_sspmat_type, psb_cspmat_type,&
& psb_desc_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_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_nohalo_, psb_square_root_, psb_toupper, psb_root_,&
& psb_sizeof_int, psb_sizeof_long_int, psb_sizeof_sp, psb_sizeof_dp, psb_sizeof,& & psb_sizeof_int, psb_sizeof_long_int, psb_sizeof_sp, psb_sizeof_dp, psb_sizeof,&
& psb_cd_get_context, psb_info & psb_cd_get_context, psb_info
use psb_prec_mod, only: psb_sprec_type, psb_dprec_type,& !!$ & psb_dspmat_type, psb_zspmat_type,&
& psb_cprec_type, psb_zprec_type,& !!$ & psb_sspmat_type, psb_cspmat_type,&
& psb_d_base_prec_type, psb_s_base_prec_type, & !!$ & psb_slinmap_type, psb_dlinmap_type,&
& psb_z_base_prec_type, psb_c_base_prec_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 ! Version numbers

2
mlprec/mld_c_base_smoother_mod.f90
Unescape Escape View File

@ -54,6 +54,8 @@
module mld_c_base_smoother_mod module mld_c_base_smoother_mod
use mld_c_base_solver_mod use mld_c_base_solver_mod
use psb_base_mod, only : psb_cspmat_type, psb_c_vect_type, psb_c_base_vect_type
! !
! !
! !

2
mlprec/mld_c_base_solver_mod.f90
Unescape Escape View File

@ -54,7 +54,7 @@
module mld_c_base_solver_mod module mld_c_base_solver_mod
use mld_base_prec_type 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. ! Type: mld_T_base_solver_type.

1
mlprec/mld_c_ilu_fact_mod.f90
Unescape Escape View File

@ -1,5 +1,6 @@
module mld_c_ilu_fact_mod module mld_c_ilu_fact_mod
use psb_base_mod, only : psb_cspmat_type, psb_spk_
use mld_base_prec_type use mld_base_prec_type
interface mld_ilu0_fact interface mld_ilu0_fact

3
mlprec/mld_c_onelev_mod.f90
Unescape Escape View File

@ -55,8 +55,9 @@
module mld_c_onelev_mod module mld_c_onelev_mod
use mld_base_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_smoother_mod 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. ! Type: mld_Tonelev_type.

2
mlprec/mld_c_prec_type.f90
Unescape Escape View File

@ -54,10 +54,10 @@
module mld_c_prec_type module mld_c_prec_type
use mld_base_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_solver_mod
use mld_c_base_smoother_mod use mld_c_base_smoother_mod
use mld_c_onelev_mod use mld_c_onelev_mod
use psb_prec_mod, only : psb_cprec_type
! !
! Type: mld_Tprec_type. ! Type: mld_Tprec_type.

2
mlprec/mld_d_base_smoother_mod.f90
Unescape Escape View File

@ -54,6 +54,8 @@
module mld_d_base_smoother_mod module mld_d_base_smoother_mod
use mld_d_base_solver_mod use mld_d_base_solver_mod
use psb_base_mod, only : psb_dspmat_type, psb_d_vect_type, psb_d_base_vect_type
! !
! !
! !

2
mlprec/mld_d_base_solver_mod.f90
Unescape Escape View File

@ -54,7 +54,7 @@
module mld_d_base_solver_mod module mld_d_base_solver_mod
use mld_base_prec_type 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. ! Type: mld_T_base_solver_type.

1
mlprec/mld_d_ilu_fact_mod.f90
Unescape Escape View File

@ -1,5 +1,6 @@
module mld_d_ilu_fact_mod module mld_d_ilu_fact_mod
use psb_base_mod, only : psb_dspmat_type, psb_dpk_
use mld_base_prec_type use mld_base_prec_type
interface mld_ilu0_fact interface mld_ilu0_fact

3
mlprec/mld_d_onelev_mod.f90
Unescape Escape View File

@ -55,8 +55,9 @@
module mld_d_onelev_mod module mld_d_onelev_mod
use mld_base_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_smoother_mod 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. ! Type: mld_Tonelev_type.

2
mlprec/mld_d_prec_type.f90
Unescape Escape View File

@ -54,10 +54,10 @@
module mld_d_prec_type module mld_d_prec_type
use mld_base_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_solver_mod
use mld_d_base_smoother_mod use mld_d_base_smoother_mod
use mld_d_onelev_mod use mld_d_onelev_mod
use psb_prec_mod, only : psb_dprec_type
! !
! Type: mld_Tprec_type. ! Type: mld_Tprec_type.

2
mlprec/mld_s_base_smoother_mod.f90
Unescape Escape View File

@ -54,6 +54,8 @@
module mld_s_base_smoother_mod module mld_s_base_smoother_mod
use mld_s_base_solver_mod use mld_s_base_solver_mod
use psb_base_mod, only : psb_sspmat_type, psb_s_vect_type, psb_s_base_vect_type
! !
! !
! !

2
mlprec/mld_s_base_solver_mod.f90
Unescape Escape View File

@ -54,7 +54,7 @@
module mld_s_base_solver_mod module mld_s_base_solver_mod
use mld_base_prec_type 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. ! Type: mld_T_base_solver_type.

1
mlprec/mld_s_ilu_fact_mod.f90
Unescape Escape View File

@ -1,5 +1,6 @@
module mld_s_ilu_fact_mod module mld_s_ilu_fact_mod
use psb_base_mod, only : psb_sspmat_type, psb_spk_
use mld_base_prec_type use mld_base_prec_type
interface mld_ilu0_fact interface mld_ilu0_fact

3
mlprec/mld_s_onelev_mod.f90
Unescape Escape View File

@ -55,8 +55,9 @@
module mld_s_onelev_mod module mld_s_onelev_mod
use mld_base_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_smoother_mod 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. ! Type: mld_Tonelev_type.

2
mlprec/mld_s_prec_type.f90
Unescape Escape View File

@ -54,10 +54,10 @@
module mld_s_prec_type module mld_s_prec_type
use mld_base_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_solver_mod
use mld_s_base_smoother_mod use mld_s_base_smoother_mod
use mld_s_onelev_mod use mld_s_onelev_mod
use psb_prec_mod, only : psb_sprec_type
! !
! Type: mld_Tprec_type. ! Type: mld_Tprec_type.

2
mlprec/mld_z_base_smoother_mod.f90
Unescape Escape View File

@ -54,6 +54,8 @@
module mld_z_base_smoother_mod module mld_z_base_smoother_mod
use mld_z_base_solver_mod use mld_z_base_solver_mod
use psb_base_mod, only : psb_zspmat_type, psb_z_vect_type, psb_z_base_vect_type
! !
! !
! !

2
mlprec/mld_z_base_solver_mod.f90
Unescape Escape View File

@ -54,7 +54,7 @@
module mld_z_base_solver_mod module mld_z_base_solver_mod
use mld_base_prec_type 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. ! Type: mld_T_base_solver_type.

1
mlprec/mld_z_ilu_fact_mod.f90
Unescape Escape View File

@ -1,5 +1,6 @@
module mld_z_ilu_fact_mod module mld_z_ilu_fact_mod
use psb_base_mod, only : psb_zspmat_type, psb_dpk_
use mld_base_prec_type use mld_base_prec_type
interface mld_ilu0_fact interface mld_ilu0_fact

3
mlprec/mld_z_onelev_mod.f90
Unescape Escape View File

@ -55,8 +55,9 @@
module mld_z_onelev_mod module mld_z_onelev_mod
use mld_base_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_smoother_mod 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. ! Type: mld_Tonelev_type.

2
mlprec/mld_z_prec_type.f90
Unescape Escape View File

@ -54,10 +54,10 @@
module mld_z_prec_type module mld_z_prec_type
use mld_base_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_solver_mod
use mld_z_base_smoother_mod use mld_z_base_smoother_mod
use mld_z_onelev_mod use mld_z_onelev_mod
use psb_prec_mod, only : psb_zprec_type
! !
! Type: mld_Tprec_type. ! Type: mld_Tprec_type.

Write Preview
Loading…
Cancel
Save