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_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

2
mlprec/mld_c_base_smoother_mod.f90
Unescape Escape View File

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

2
mlprec/mld_c_base_solver_mod.f90
Unescape Escape View File

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

3
mlprec/mld_c_ilu_fact_mod.f90
Unescape Escape View File

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

3
mlprec/mld_c_onelev_mod.f90
Unescape Escape View File

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

2
mlprec/mld_c_prec_type.f90
Unescape Escape View File

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

2
mlprec/mld_d_base_smoother_mod.f90
Unescape Escape View File

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

2
mlprec/mld_d_base_solver_mod.f90
Unescape Escape View File

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

3
mlprec/mld_d_ilu_fact_mod.f90
Unescape Escape View File

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

3
mlprec/mld_d_onelev_mod.f90
Unescape Escape View File

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

2
mlprec/mld_d_prec_type.f90
Unescape Escape View File

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

2
mlprec/mld_s_base_smoother_mod.f90
Unescape Escape View File

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

2
mlprec/mld_s_base_solver_mod.f90
Unescape Escape View File

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

3
mlprec/mld_s_ilu_fact_mod.f90
Unescape Escape View File

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

3
mlprec/mld_s_onelev_mod.f90
Unescape Escape View File

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

2
mlprec/mld_s_prec_type.f90
Unescape Escape View File

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

2
mlprec/mld_z_base_smoother_mod.f90
Unescape Escape View File

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

2
mlprec/mld_z_base_solver_mod.f90
Unescape Escape View File

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

3
mlprec/mld_z_ilu_fact_mod.f90
Unescape Escape View File

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

3
mlprec/mld_z_onelev_mod.f90
Unescape Escape View File

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

2
mlprec/mld_z_prec_type.f90
Unescape Escape View File

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

Write Preview
Loading…
Cancel
Save