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

Fix copyright statement and example programs

Browse Source
mergeparmatch
Salvatore Filippone 4 years ago
parent debe35c477
commit ddbe050c1a
710 changed files with 2402 additions and 2056 deletions
Show Stats Download Patch File Download Diff File

17
amgprec/amg_c_ainv_solver.F90
Unescape Escape View File

@ -1,11 +1,14 @@
! !
! !
! AMG-AINV: Approximate Inverse plugin for
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! ! Algebraic Multigrid Package
! (C) Copyright 2020 ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! Salvatore Filippone University of Rome Tor Vergata ! (C) Copyright 2021
!
! Salvatore Filippone
! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

4
amgprec/amg_c_as_smoother.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_c_base_aggregator_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

17
amgprec/amg_c_base_ainv_mod.f90
Unescape Escape View File

@ -1,11 +1,14 @@
! !
! !
! AMG-AINV: Approximate Inverse plugin for
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! ! Algebraic Multigrid Package
! (C) Copyright 2020 ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! Salvatore Filippone University of Rome Tor Vergata ! (C) Copyright 2021
!
! Salvatore Filippone
! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

4
amgprec/amg_c_base_smoother_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_c_base_solver_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_c_dec_aggregator_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_c_diag_solver.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_c_gs_solver.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_c_id_solver.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_c_ilu_fact_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_c_ilu_solver.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

6
amgprec/amg_c_inner_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -39,7 +39,7 @@
! !
! Module: amg_inner_mod ! Module: amg_inner_mod
! !
! This module defines the interfaces to inner MLD2P4 routines. ! This module defines the interfaces to inner AMG4PSBLAS routines.
! The interfaces of the user level routines are defined in amg_prec_mod.f90. ! The interfaces of the user level routines are defined in amg_prec_mod.f90.
! !
module amg_c_inner_mod module amg_c_inner_mod

17
amgprec/amg_c_invk_solver.f90
Unescape Escape View File

@ -1,11 +1,14 @@
! !
! !
! AMG-AINV: Approximate Inverse plugin for
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! ! Algebraic Multigrid Package
! (C) Copyright 2020 ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! Salvatore Filippone University of Rome Tor Vergata ! (C) Copyright 2021
!
! Salvatore Filippone
! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

17
amgprec/amg_c_invt_solver.f90
Unescape Escape View File

@ -1,11 +1,14 @@
! !
! !
! AMG-AINV: Approximate Inverse plugin for
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! ! Algebraic Multigrid Package
! (C) Copyright 2020 ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! Salvatore Filippone University of Rome Tor Vergata ! (C) Copyright 2021
!
! Salvatore Filippone
! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

4
amgprec/amg_c_jac_smoother.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_c_mumps_solver.F90
Unescape Escape View File

@ -3,9 +3,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

6
amgprec/amg_c_onelev_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -82,7 +82,7 @@ module amg_c_onelev_mod
! end type amg_conelev_type ! end type amg_conelev_type
! !
! Note that s denotes the kind of the real data type to be chosen ! Note that s denotes the kind of the real data type to be chosen
! according to single/double precision version of MLD2P4. ! according to single/double precision version of AMG4PSBLAS.
! !
! sm,sm2a - class(amg_c_base_smoother_type), allocatable ! sm,sm2a - class(amg_c_base_smoother_type), allocatable
! The current level pre- and post-smooother. ! The current level pre- and post-smooother.

6
amgprec/amg_c_prec_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -40,7 +40,7 @@
! Module: amg_c_prec_mod ! Module: amg_c_prec_mod
! !
! This module defines the user interfaces to the real/complex, single/double ! This module defines the user interfaces to the real/complex, single/double
! precision versions of the user-level MLD2P4 routines. ! precision versions of the user-level AMG4PSBLAS routines.
! !
module amg_c_prec_mod module amg_c_prec_mod

6
amgprec/amg_c_prec_type.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -66,7 +66,7 @@ module amg_c_prec_type
! !
! This is the data type containing all the information about the multilevel ! This is the data type containing all the information about the multilevel
! preconditioner ('d', 's', 'c' and 'z', according to the real/complex, ! preconditioner ('d', 's', 'c' and 'z', according to the real/complex,
! single/double precision version of MLD2P4). ! single/double precision version of AMG4PSBLAS).
! It consists of an array of 'one-level' intermediate data structures ! It consists of an array of 'one-level' intermediate data structures
! of type amg_conelev_type, each containing the information needed to apply ! of type amg_conelev_type, each containing the information needed to apply
! the smoothing and the coarse-space correction at a generic level. RT is the ! the smoothing and the coarse-space correction at a generic level. RT is the

4
amgprec/amg_c_slu_solver.F90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_c_symdec_aggregator_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

17
amgprec/amg_d_ainv_solver.F90
Unescape Escape View File

@ -1,11 +1,14 @@
! !
! !
! AMG-AINV: Approximate Inverse plugin for
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! ! Algebraic Multigrid Package
! (C) Copyright 2020 ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! Salvatore Filippone University of Rome Tor Vergata ! (C) Copyright 2021
!
! Salvatore Filippone
! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

4
amgprec/amg_d_as_smoother.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_d_base_aggregator_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

17
amgprec/amg_d_base_ainv_mod.f90
Unescape Escape View File

@ -1,11 +1,14 @@
! !
! !
! AMG-AINV: Approximate Inverse plugin for
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! ! Algebraic Multigrid Package
! (C) Copyright 2020 ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! Salvatore Filippone University of Rome Tor Vergata ! (C) Copyright 2021
!
! Salvatore Filippone
! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

4
amgprec/amg_d_base_smoother_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_d_base_solver_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_d_dec_aggregator_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_d_diag_solver.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_d_gs_solver.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_d_id_solver.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_d_ilu_fact_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_d_ilu_solver.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

6
amgprec/amg_d_inner_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -39,7 +39,7 @@
! !
! Module: amg_inner_mod ! Module: amg_inner_mod
! !
! This module defines the interfaces to inner MLD2P4 routines. ! This module defines the interfaces to inner AMG4PSBLAS routines.
! The interfaces of the user level routines are defined in amg_prec_mod.f90. ! The interfaces of the user level routines are defined in amg_prec_mod.f90.
! !
module amg_d_inner_mod module amg_d_inner_mod

17
amgprec/amg_d_invk_solver.f90
Unescape Escape View File

@ -1,11 +1,14 @@
! !
! !
! AMG-AINV: Approximate Inverse plugin for
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! ! Algebraic Multigrid Package
! (C) Copyright 2020 ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! Salvatore Filippone University of Rome Tor Vergata ! (C) Copyright 2021
!
! Salvatore Filippone
! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

17
amgprec/amg_d_invt_solver.f90
Unescape Escape View File

@ -1,11 +1,14 @@
! !
! !
! AMG-AINV: Approximate Inverse plugin for
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! ! Algebraic Multigrid Package
! (C) Copyright 2020 ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! Salvatore Filippone University of Rome Tor Vergata ! (C) Copyright 2021
!
! Salvatore Filippone
! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

4
amgprec/amg_d_jac_smoother.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_d_mumps_solver.F90
Unescape Escape View File

@ -3,9 +3,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

6
amgprec/amg_d_onelev_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -82,7 +82,7 @@ module amg_d_onelev_mod
! end type amg_donelev_type ! end type amg_donelev_type
! !
! Note that d denotes the kind of the real data type to be chosen ! Note that d denotes the kind of the real data type to be chosen
! according to single/double precision version of MLD2P4. ! according to single/double precision version of AMG4PSBLAS.
! !
! sm,sm2a - class(amg_d_base_smoother_type), allocatable ! sm,sm2a - class(amg_d_base_smoother_type), allocatable
! The current level pre- and post-smooother. ! The current level pre- and post-smooother.

6
amgprec/amg_d_prec_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -40,7 +40,7 @@
! Module: amg_d_prec_mod ! Module: amg_d_prec_mod
! !
! This module defines the user interfaces to the real/complex, single/double ! This module defines the user interfaces to the real/complex, single/double
! precision versions of the user-level MLD2P4 routines. ! precision versions of the user-level AMG4PSBLAS routines.
! !
module amg_d_prec_mod module amg_d_prec_mod

6
amgprec/amg_d_prec_type.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -66,7 +66,7 @@ module amg_d_prec_type
! !
! This is the data type containing all the information about the multilevel ! This is the data type containing all the information about the multilevel
! preconditioner ('d', 's', 'c' and 'z', according to the real/complex, ! preconditioner ('d', 's', 'c' and 'z', according to the real/complex,
! single/double precision version of MLD2P4). ! single/double precision version of AMG4PSBLAS).
! It consists of an array of 'one-level' intermediate data structures ! It consists of an array of 'one-level' intermediate data structures
! of type amg_donelev_type, each containing the information needed to apply ! of type amg_donelev_type, each containing the information needed to apply
! the smoothing and the coarse-space correction at a generic level. RT is the ! the smoothing and the coarse-space correction at a generic level. RT is the

4
amgprec/amg_d_slu_solver.F90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_d_sludist_solver.F90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_d_symdec_aggregator_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_d_umf_solver.F90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

17
amgprec/amg_s_ainv_solver.F90
Unescape Escape View File

@ -1,11 +1,14 @@
! !
! !
! AMG-AINV: Approximate Inverse plugin for
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! ! Algebraic Multigrid Package
! (C) Copyright 2020 ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! Salvatore Filippone University of Rome Tor Vergata ! (C) Copyright 2021
!
! Salvatore Filippone
! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

4
amgprec/amg_s_as_smoother.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_s_base_aggregator_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

17
amgprec/amg_s_base_ainv_mod.f90
Unescape Escape View File

@ -1,11 +1,14 @@
! !
! !
! AMG-AINV: Approximate Inverse plugin for
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! ! Algebraic Multigrid Package
! (C) Copyright 2020 ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! Salvatore Filippone University of Rome Tor Vergata ! (C) Copyright 2021
!
! Salvatore Filippone
! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

4
amgprec/amg_s_base_smoother_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_s_base_solver_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_s_dec_aggregator_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_s_diag_solver.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_s_gs_solver.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_s_id_solver.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_s_ilu_fact_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_s_ilu_solver.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

6
amgprec/amg_s_inner_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -39,7 +39,7 @@
! !
! Module: amg_inner_mod ! Module: amg_inner_mod
! !
! This module defines the interfaces to inner MLD2P4 routines. ! This module defines the interfaces to inner AMG4PSBLAS routines.
! The interfaces of the user level routines are defined in amg_prec_mod.f90. ! The interfaces of the user level routines are defined in amg_prec_mod.f90.
! !
module amg_s_inner_mod module amg_s_inner_mod

17
amgprec/amg_s_invk_solver.f90
Unescape Escape View File

@ -1,11 +1,14 @@
! !
! !
! AMG-AINV: Approximate Inverse plugin for
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! ! Algebraic Multigrid Package
! (C) Copyright 2020 ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! Salvatore Filippone University of Rome Tor Vergata ! (C) Copyright 2021
!
! Salvatore Filippone
! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

17
amgprec/amg_s_invt_solver.f90
Unescape Escape View File

@ -1,11 +1,14 @@
! !
! !
! AMG-AINV: Approximate Inverse plugin for
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! ! Algebraic Multigrid Package
! (C) Copyright 2020 ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! Salvatore Filippone University of Rome Tor Vergata ! (C) Copyright 2021
!
! Salvatore Filippone
! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

4
amgprec/amg_s_jac_smoother.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_s_mumps_solver.F90
Unescape Escape View File

@ -3,9 +3,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

6
amgprec/amg_s_onelev_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -82,7 +82,7 @@ module amg_s_onelev_mod
! end type amg_sonelev_type ! end type amg_sonelev_type
! !
! Note that s denotes the kind of the real data type to be chosen ! Note that s denotes the kind of the real data type to be chosen
! according to single/double precision version of MLD2P4. ! according to single/double precision version of AMG4PSBLAS.
! !
! sm,sm2a - class(amg_s_base_smoother_type), allocatable ! sm,sm2a - class(amg_s_base_smoother_type), allocatable
! The current level pre- and post-smooother. ! The current level pre- and post-smooother.

6
amgprec/amg_s_prec_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -40,7 +40,7 @@
! Module: amg_s_prec_mod ! Module: amg_s_prec_mod
! !
! This module defines the user interfaces to the real/complex, single/double ! This module defines the user interfaces to the real/complex, single/double
! precision versions of the user-level MLD2P4 routines. ! precision versions of the user-level AMG4PSBLAS routines.
! !
module amg_s_prec_mod module amg_s_prec_mod

6
amgprec/amg_s_prec_type.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -66,7 +66,7 @@ module amg_s_prec_type
! !
! This is the data type containing all the information about the multilevel ! This is the data type containing all the information about the multilevel
! preconditioner ('d', 's', 'c' and 'z', according to the real/complex, ! preconditioner ('d', 's', 'c' and 'z', according to the real/complex,
! single/double precision version of MLD2P4). ! single/double precision version of AMG4PSBLAS).
! It consists of an array of 'one-level' intermediate data structures ! It consists of an array of 'one-level' intermediate data structures
! of type amg_sonelev_type, each containing the information needed to apply ! of type amg_sonelev_type, each containing the information needed to apply
! the smoothing and the coarse-space correction at a generic level. RT is the ! the smoothing and the coarse-space correction at a generic level. RT is the

4
amgprec/amg_s_slu_solver.F90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_s_symdec_aggregator_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

17
amgprec/amg_z_ainv_solver.F90
Unescape Escape View File

@ -1,11 +1,14 @@
! !
! !
! AMG-AINV: Approximate Inverse plugin for
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! ! Algebraic Multigrid Package
! (C) Copyright 2020 ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! Salvatore Filippone University of Rome Tor Vergata ! (C) Copyright 2021
!
! Salvatore Filippone
! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

4
amgprec/amg_z_as_smoother.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_z_base_aggregator_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

17
amgprec/amg_z_base_ainv_mod.f90
Unescape Escape View File

@ -1,11 +1,14 @@
! !
! !
! AMG-AINV: Approximate Inverse plugin for
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! ! Algebraic Multigrid Package
! (C) Copyright 2020 ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! Salvatore Filippone University of Rome Tor Vergata ! (C) Copyright 2021
!
! Salvatore Filippone
! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

4
amgprec/amg_z_base_smoother_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_z_base_solver_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_z_dec_aggregator_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_z_diag_solver.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_z_gs_solver.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_z_id_solver.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_z_ilu_fact_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_z_ilu_solver.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

6
amgprec/amg_z_inner_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -39,7 +39,7 @@
! !
! Module: amg_inner_mod ! Module: amg_inner_mod
! !
! This module defines the interfaces to inner MLD2P4 routines. ! This module defines the interfaces to inner AMG4PSBLAS routines.
! The interfaces of the user level routines are defined in amg_prec_mod.f90. ! The interfaces of the user level routines are defined in amg_prec_mod.f90.
! !
module amg_z_inner_mod module amg_z_inner_mod

17
amgprec/amg_z_invk_solver.f90
Unescape Escape View File

@ -1,11 +1,14 @@
! !
! !
! AMG-AINV: Approximate Inverse plugin for
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! ! Algebraic Multigrid Package
! (C) Copyright 2020 ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! Salvatore Filippone University of Rome Tor Vergata ! (C) Copyright 2021
!
! Salvatore Filippone
! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

17
amgprec/amg_z_invt_solver.f90
Unescape Escape View File

@ -1,11 +1,14 @@
! !
! !
! AMG-AINV: Approximate Inverse plugin for
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! ! Algebraic Multigrid Package
! (C) Copyright 2020 ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! Salvatore Filippone University of Rome Tor Vergata ! (C) Copyright 2021
!
! Salvatore Filippone
! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

4
amgprec/amg_z_jac_smoother.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_z_mumps_solver.F90
Unescape Escape View File

@ -3,9 +3,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

6
amgprec/amg_z_onelev_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -82,7 +82,7 @@ module amg_z_onelev_mod
! end type amg_zonelev_type ! end type amg_zonelev_type
! !
! Note that d denotes the kind of the real data type to be chosen ! Note that d denotes the kind of the real data type to be chosen
! according to single/double precision version of MLD2P4. ! according to single/double precision version of AMG4PSBLAS.
! !
! sm,sm2a - class(amg_z_base_smoother_type), allocatable ! sm,sm2a - class(amg_z_base_smoother_type), allocatable
! The current level pre- and post-smooother. ! The current level pre- and post-smooother.

6
amgprec/amg_z_prec_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -40,7 +40,7 @@
! Module: amg_z_prec_mod ! Module: amg_z_prec_mod
! !
! This module defines the user interfaces to the real/complex, single/double ! This module defines the user interfaces to the real/complex, single/double
! precision versions of the user-level MLD2P4 routines. ! precision versions of the user-level AMG4PSBLAS routines.
! !
module amg_z_prec_mod module amg_z_prec_mod

6
amgprec/amg_z_prec_type.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -66,7 +66,7 @@ module amg_z_prec_type
! !
! This is the data type containing all the information about the multilevel ! This is the data type containing all the information about the multilevel
! preconditioner ('d', 's', 'c' and 'z', according to the real/complex, ! preconditioner ('d', 's', 'c' and 'z', according to the real/complex,
! single/double precision version of MLD2P4). ! single/double precision version of AMG4PSBLAS).
! It consists of an array of 'one-level' intermediate data structures ! It consists of an array of 'one-level' intermediate data structures
! of type amg_zonelev_type, each containing the information needed to apply ! of type amg_zonelev_type, each containing the information needed to apply
! the smoothing and the coarse-space correction at a generic level. RT is the ! the smoothing and the coarse-space correction at a generic level. RT is the

4
amgprec/amg_z_slu_solver.F90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_z_sludist_solver.F90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_z_symdec_aggregator_mod.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/amg_z_umf_solver.F90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/impl/aggregator/amg_c_dec_aggregator_mat_asb.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

10
amgprec/impl/aggregator/amg_c_dec_aggregator_mat_bld.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra
@ -75,9 +75,9 @@
! by p%aggr%bld_tprol. This is called tentative prolongator. ! by p%aggr%bld_tprol. This is called tentative prolongator.
! 2. The smoothed aggregation uses as prolongator the operator obtained by applying ! 2. The smoothed aggregation uses as prolongator the operator obtained by applying
! a damped Jacobi smoother to the tentative prolongator. ! a damped Jacobi smoother to the tentative prolongator.
! 3. The "bizarre" aggregation uses a prolongator proposed by the authors of MLD2P4. ! 3. The "bizarre" aggregation uses a prolongator proposed by the authors of AMG4PSBLAS.
! This prolongator still requires a deep analysis and testing and its use is ! This prolongator requires a deeper analysis and testing and its use is
! not recommended. ! not recommended at this time.
! 4. Minimum energy aggregation ! 4. Minimum energy aggregation
! !
! For more details see ! For more details see

4
amgprec/impl/aggregator/amg_c_dec_aggregator_tprol.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/impl/aggregator/amg_c_map_to_tprol.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

13
amgprec/impl/aggregator/amg_c_ptap_bld.f90
Unescape Escape View File

@ -1,11 +1,14 @@
!
! !
! ! AMG4PSBLAS version 1.0
! MLD2P4 Extensions ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2019 ! (C) Copyright 2021
! !
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Pasqua D'Ambra IAC-CNR, Naples, IT ! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

13
amgprec/impl/aggregator/amg_c_rap.f90
Unescape Escape View File

@ -1,11 +1,14 @@
!
! !
! ! AMG4PSBLAS version 1.0
! MLD2P4 Extensions ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2019 ! (C) Copyright 2021
! !
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Pasqua D'Ambra IAC-CNR, Naples, IT ! Pasqua D'Ambra
! Fabio Durastante
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

4
amgprec/impl/aggregator/amg_c_soc1_map_bld.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

4
amgprec/impl/aggregator/amg_c_soc2_map_bld.f90
Unescape Escape View File

@ -2,9 +2,9 @@
! !
! AMG4PSBLAS version 1.0 ! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package ! Algebraic Multigrid Package
! based on PSBLAS (Parallel Sparse BLAS version 3.5) ! based on PSBLAS (Parallel Sparse BLAS version 3.7)
! !
! (C) Copyright 2020 ! (C) Copyright 2021
! !
! Salvatore Filippone ! Salvatore Filippone
! Pasqua D'Ambra ! Pasqua D'Ambra

Some files were not shown because too many files have changed in this diff Show More

Write Preview
Loading…
Cancel
Save