mirror of
https://github.com/sfilippone/amg4psblas.git
synced 2026-10-06 14:44:55 +00:00
Fix %SET
This commit is contained in:
@@ -127,7 +127,7 @@ module amg_c_prec_type
|
||||
procedure, pass(prec) :: cseti => amg_ccprecseti
|
||||
procedure, pass(prec) :: csetc => amg_ccprecsetc
|
||||
procedure, pass(prec) :: csetr => amg_ccprecsetr
|
||||
generic, public :: set => cseti, csetc, csetr, setsm, setsv, setag
|
||||
generic, public :: set => setsm, setsv, setag
|
||||
procedure, pass(prec) :: get_smoother => amg_c_get_smootherp
|
||||
procedure, pass(prec) :: get_solver => amg_c_get_solverp
|
||||
procedure, pass(prec) :: move_alloc => c_prec_move_alloc
|
||||
|
||||
@@ -127,7 +127,7 @@ module amg_d_prec_type
|
||||
procedure, pass(prec) :: cseti => amg_dcprecseti
|
||||
procedure, pass(prec) :: csetc => amg_dcprecsetc
|
||||
procedure, pass(prec) :: csetr => amg_dcprecsetr
|
||||
generic, public :: set => cseti, csetc, csetr, setsm, setsv, setag
|
||||
generic, public :: set => setsm, setsv, setag
|
||||
procedure, pass(prec) :: get_smoother => amg_d_get_smootherp
|
||||
procedure, pass(prec) :: get_solver => amg_d_get_solverp
|
||||
procedure, pass(prec) :: move_alloc => d_prec_move_alloc
|
||||
|
||||
@@ -127,7 +127,7 @@ module amg_s_prec_type
|
||||
procedure, pass(prec) :: cseti => amg_scprecseti
|
||||
procedure, pass(prec) :: csetc => amg_scprecsetc
|
||||
procedure, pass(prec) :: csetr => amg_scprecsetr
|
||||
generic, public :: set => cseti, csetc, csetr, setsm, setsv, setag
|
||||
generic, public :: set => setsm, setsv, setag
|
||||
procedure, pass(prec) :: get_smoother => amg_s_get_smootherp
|
||||
procedure, pass(prec) :: get_solver => amg_s_get_solverp
|
||||
procedure, pass(prec) :: move_alloc => s_prec_move_alloc
|
||||
|
||||
@@ -127,7 +127,7 @@ module amg_z_prec_type
|
||||
procedure, pass(prec) :: cseti => amg_zcprecseti
|
||||
procedure, pass(prec) :: csetc => amg_zcprecsetc
|
||||
procedure, pass(prec) :: csetr => amg_zcprecsetr
|
||||
generic, public :: set => cseti, csetc, csetr, setsm, setsv, setag
|
||||
generic, public :: set => setsm, setsv, setag
|
||||
procedure, pass(prec) :: get_smoother => amg_z_get_smootherp
|
||||
procedure, pass(prec) :: get_solver => amg_z_get_solverp
|
||||
procedure, pass(prec) :: move_alloc => z_prec_move_alloc
|
||||
|
||||
Reference in New Issue
Block a user