Fused preconditioned conjugate gradient method. More...

Inheritance diagram for fusedcg_cpld_device::fusedcg_cpld_device_t:

Collaboration diagram for fusedcg_cpld_device::fusedcg_cpld_device_t:

[legend]

Public Member Functions
procedure, pass(this)	init (this, n, max_iter, m, rel_tol, abs_tol, monitor)
	Initialise a fused PCG solver.

procedure, pass(this)	free (this)
	Deallocate a pipelined PCG solver.

procedure, pass(this)	solve (this, ax, x, f, n, coef, blst, gs_h, niter)
	Pipelined PCG solve.

procedure, pass(this)	solve_coupled (this, ax, x, y, z, fx, fy, fz, n, coef, blstx, blsty, blstz, gs_h, niter)
	Pipelined PCG solve coupled solve.

procedure, pass(this)	ksp_init (this, max_iter, rel_tol, abs_tol, m, monitor)
	Base type constructor.

procedure, pass(this)	ksp_free (this)
	Base type destructor.

procedure, pass(this)	set_pc (this, m)
	Set preconditioner.

procedure(ksp_method), deferred, pass	solve (this, ax, x, f, n, coef, blst, gs_h, niter)
	Solve the system.

procedure(ksp_method_coupled), deferred, pass	solve_coupled (this, ax, x, y, z, fx, fy, fz, n, coef, blstx, blsty, blstz, gs_h, niter)
	Solve the system (coupled version).

procedure, pass(this)	monitor_start (this, name)
	Monitor start.

procedure, pass(this)	monitor_stop (this)
	Monitor stop.

procedure, pass(this)	monitor_iter (this, iter, rnorm)
	Monitor iteration.

procedure(ksp_t_free), deferred, pass	free (this)
	Destructor.

Public Attributes
real(kind=rp), dimension(:), allocatable	w1

real(kind=rp), dimension(:), allocatable	w2

real(kind=rp), dimension(:), allocatable	w3

real(kind=rp), dimension(:), allocatable	r1

real(kind=rp), dimension(:), allocatable	r2

real(kind=rp), dimension(:), allocatable	r3

real(kind=rp), dimension(:), allocatable	z1

real(kind=rp), dimension(:), allocatable	z2

real(kind=rp), dimension(:), allocatable	z3

real(kind=rp), dimension(:), allocatable	tmp

real(kind=rp), dimension(:,:), allocatable	p1

real(kind=rp), dimension(:,:), allocatable	p2

real(kind=rp), dimension(:,:), allocatable	p3

real(kind=rp), dimension(:), allocatable	alpha

type(c_ptr)	w1_d = C_NULL_PTR

type(c_ptr)	w2_d = C_NULL_PTR

type(c_ptr)	w3_d = C_NULL_PTR

type(c_ptr)	r1_d = C_NULL_PTR

type(c_ptr)	r2_d = C_NULL_PTR

type(c_ptr)	r3_d = C_NULL_PTR

type(c_ptr)	z1_d = C_NULL_PTR

type(c_ptr)	z2_d = C_NULL_PTR

type(c_ptr)	z3_d = C_NULL_PTR

type(c_ptr)	alpha_d = C_NULL_PTR

type(c_ptr)	p1_d_d = C_NULL_PTR

type(c_ptr)	p2_d_d = C_NULL_PTR

type(c_ptr)	p3_d_d = C_NULL_PTR

type(c_ptr)	tmp_d = C_NULL_PTR

type(c_ptr), dimension(:), allocatable	p1_d

type(c_ptr), dimension(:), allocatable	p2_d

type(c_ptr), dimension(:), allocatable	p3_d

type(c_ptr)	gs_event1 = C_NULL_PTR

type(c_ptr)	gs_event2 = C_NULL_PTR

type(c_ptr)	gs_event3 = C_NULL_PTR

class(pc_t), pointer	m => null()
	Preconditioner.

real(kind=rp)	rel_tol
	Relative tolerance.

real(kind=rp)	abs_tol
	Absolute tolerance.

integer	max_iter
	Maximum number of iterations.

class(pc_t), allocatable	m_ident
	Internal preconditioner (Identity)

logical	monitor
	Turn on/off monitoring.

Detailed Description

Definition at line 53 of file fusedcg_cpld_device.F90.

Member Function/Subroutine Documentation

◆ free() [1/2]

procedure, pass(this) fusedcg_cpld_device::fusedcg_cpld_device_t::free ( class(fusedcg_cpld_device_t), intent(inout) this )

Definition at line 90 of file fusedcg_cpld_device.F90.

◆ free() [2/2]

procedure(ksp_t_free), deferred, pass krylov::ksp_t::free ( class(ksp_t), intent(inout) this )

pure virtualinherited

Definition at line 91 of file krylov.f90.

◆ init()

procedure, pass(this) fusedcg_cpld_device::fusedcg_cpld_device_t::init	(	class(fusedcg_cpld_device_t), intent(inout), target	this,
		integer, intent(in)	n,
		integer, intent(in)	max_iter,
		class(pc_t), intent(inout), optional, target	m,
		real(kind=rp), intent(inout), optional	rel_tol,
		real(kind=rp), intent(inout), optional	abs_tol,
		logical, intent(in), optional	monitor
	)

Definition at line 89 of file fusedcg_cpld_device.F90.

◆ ksp_free()

procedure, pass(this) krylov::ksp_t::ksp_free ( class(ksp_t), intent(inout) this )

inherited

Definition at line 77 of file krylov.f90.

◆ ksp_init()

procedure, pass(this) krylov::ksp_t::ksp_init	(	class(ksp_t), intent(inout), target	this,
		integer, intent(in)	max_iter,
		real(kind=rp), intent(in), optional	rel_tol,
		real(kind=rp), intent(in), optional	abs_tol,
		class(pc_t), intent(in), optional, target	m,
		logical, intent(in), optional	monitor
	)

inherited

Parameters

object	The object to be allocated.
n	Size of the vectors the solver operates on.
type_name	The name of the solver type.
max_iter	The maximum number of iterations
abstol	The absolute tolerance, optional.
M	The preconditioner, optional.
monitor	Enable/disable monitoring, optional. Destroy an iterative Krylov type_name Constructor for the base type.
max_iter	Maximum number of iterations.
rel_tol	Relative tolarance for converence.
rel_tol	Absolute tolarance for converence.
M	The preconditioner.

Definition at line 75 of file krylov.f90.

◆ monitor_iter()

procedure, pass(this) krylov::ksp_t::monitor_iter	(	class(ksp_t), intent(in)	this,
		integer, intent(in)	iter,
		real(kind=rp), intent(in)	rnorm
	)

inherited

Definition at line 89 of file krylov.f90.

◆ monitor_start()

procedure, pass(this) krylov::ksp_t::monitor_start	(	class(ksp_t), intent(in)	this,
		character(len=*)	name
	)

inherited

Definition at line 85 of file krylov.f90.

◆ monitor_stop()

procedure, pass(this) krylov::ksp_t::monitor_stop ( class(ksp_t), intent(in) this )

inherited

Definition at line 87 of file krylov.f90.

◆ set_pc()

procedure, pass(this) krylov::ksp_t::set_pc	(	class(ksp_t), intent(inout)	this,
		class(pc_t), intent(in), target	m
	)

inherited

Parameters

M	The preconditioner.

Definition at line 79 of file krylov.f90.

◆ solve() [1/2]

procedure, pass(this) fusedcg_cpld_device::fusedcg_cpld_device_t::solve	(	class(fusedcg_cpld_device_t), intent(inout)	this,
		class(ax_t), intent(inout)	ax,
		type(field_t), intent(inout)	x,
		real(kind=rp), dimension(n), intent(inout)	f,
		integer, intent(in)	n,
		type(coef_t), intent(inout)	coef,
		type(bc_list_t), intent(inout)	blst,
		type(gs_t), intent(inout)	gs_h,
		integer, intent(in), optional	niter
	)

Definition at line 91 of file fusedcg_cpld_device.F90.

◆ solve() [2/2]

procedure(ksp_method), deferred, pass krylov::ksp_t::solve	(	class(ksp_t), intent(inout)	this,
		class(ax_t), intent(inout)	ax,
		type(field_t), intent(inout)	x,
		real(kind=rp), dimension(n), intent(inout)	f,
		integer, intent(in)	n,
		type(coef_t), intent(inout)	coef,
		type(bc_list_t), intent(inout)	blst,
		type(gs_t), intent(inout)	gs_h,
		integer, intent(in), optional	niter
	)

pure virtualinherited

Definition at line 81 of file krylov.f90.

◆ solve_coupled() [1/2]

procedure, pass(this) fusedcg_cpld_device::fusedcg_cpld_device_t::solve_coupled	(	class(fusedcg_cpld_device_t), intent(inout)	this,
		class(ax_t), intent(inout)	ax,
		type(field_t), intent(inout)	x,
		type(field_t), intent(inout)	y,
		type(field_t), intent(inout)	z,
		real(kind=rp), dimension(n), intent(inout)	fx,
		real(kind=rp), dimension(n), intent(inout)	fy,
		real(kind=rp), dimension(n), intent(inout)	fz,
		integer, intent(in)	n,
		type(coef_t), intent(inout)	coef,
		type(bc_list_t), intent(inout)	blstx,
		type(bc_list_t), intent(inout)	blsty,
		type(bc_list_t), intent(inout)	blstz,
		type(gs_t), intent(inout)	gs_h,
		integer, intent(in), optional	niter
	)

Definition at line 92 of file fusedcg_cpld_device.F90.

◆ solve_coupled() [2/2]

procedure(ksp_method_coupled), deferred, pass krylov::ksp_t::solve_coupled	(	class(ksp_t), intent(inout)	this,
		class(ax_t), intent(inout)	ax,
		type(field_t), intent(inout)	x,
		type(field_t), intent(inout)	y,
		type(field_t), intent(inout)	z,
		real(kind=rp), dimension(n), intent(inout)	fx,
		real(kind=rp), dimension(n), intent(inout)	fy,
		real(kind=rp), dimension(n), intent(inout)	fz,
		integer, intent(in)	n,
		type(coef_t), intent(inout)	coef,
		type(bc_list_t), intent(inout)	blstx,
		type(bc_list_t), intent(inout)	blsty,
		type(bc_list_t), intent(inout)	blstz,
		type(gs_t), intent(inout)	gs_h,
		integer, intent(in), optional	niter
	)

pure virtualinherited

Definition at line 83 of file krylov.f90.

Member Data Documentation

◆ abs_tol

real(kind=rp) krylov::ksp_t::abs_tol

inherited

Definition at line 69 of file krylov.f90.

◆ alpha

real(kind=rp), dimension(:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::alpha

Definition at line 67 of file fusedcg_cpld_device.F90.

◆ alpha_d

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::alpha_d = C_NULL_PTR

Definition at line 77 of file fusedcg_cpld_device.F90.

◆ gs_event1

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::gs_event1 = C_NULL_PTR

Definition at line 85 of file fusedcg_cpld_device.F90.

◆ gs_event2

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::gs_event2 = C_NULL_PTR

Definition at line 86 of file fusedcg_cpld_device.F90.

◆ gs_event3

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::gs_event3 = C_NULL_PTR

Definition at line 87 of file fusedcg_cpld_device.F90.

◆ m

class(pc_t), pointer krylov::ksp_t::m => null()

inherited

Definition at line 67 of file krylov.f90.

◆ m_ident

class(pc_t), allocatable krylov::ksp_t::m_ident

inherited

Definition at line 71 of file krylov.f90.

◆ max_iter

integer krylov::ksp_t::max_iter

inherited

Definition at line 70 of file krylov.f90.

◆ monitor

logical krylov::ksp_t::monitor

inherited

Definition at line 72 of file krylov.f90.

◆ p1

real(kind=rp), dimension(:,:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::p1

Definition at line 64 of file fusedcg_cpld_device.F90.

◆ p1_d

type(c_ptr), dimension(:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::p1_d

Definition at line 82 of file fusedcg_cpld_device.F90.

◆ p1_d_d

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::p1_d_d = C_NULL_PTR

Definition at line 78 of file fusedcg_cpld_device.F90.

◆ p2

real(kind=rp), dimension(:,:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::p2

Definition at line 65 of file fusedcg_cpld_device.F90.

◆ p2_d

type(c_ptr), dimension(:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::p2_d

Definition at line 83 of file fusedcg_cpld_device.F90.

◆ p2_d_d

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::p2_d_d = C_NULL_PTR

Definition at line 79 of file fusedcg_cpld_device.F90.

◆ p3

real(kind=rp), dimension(:,:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::p3

Definition at line 66 of file fusedcg_cpld_device.F90.

◆ p3_d

type(c_ptr), dimension(:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::p3_d

Definition at line 84 of file fusedcg_cpld_device.F90.

◆ p3_d_d

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::p3_d_d = C_NULL_PTR

Definition at line 80 of file fusedcg_cpld_device.F90.

◆ r1

real(kind=rp), dimension(:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::r1

Definition at line 57 of file fusedcg_cpld_device.F90.

◆ r1_d

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::r1_d = C_NULL_PTR

Definition at line 71 of file fusedcg_cpld_device.F90.

◆ r2

real(kind=rp), dimension(:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::r2

Definition at line 58 of file fusedcg_cpld_device.F90.

◆ r2_d

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::r2_d = C_NULL_PTR

Definition at line 72 of file fusedcg_cpld_device.F90.

◆ r3

real(kind=rp), dimension(:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::r3

Definition at line 59 of file fusedcg_cpld_device.F90.

◆ r3_d

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::r3_d = C_NULL_PTR

Definition at line 73 of file fusedcg_cpld_device.F90.

◆ rel_tol

real(kind=rp) krylov::ksp_t::rel_tol

inherited

Definition at line 68 of file krylov.f90.

◆ tmp

real(kind=rp), dimension(:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::tmp

Definition at line 63 of file fusedcg_cpld_device.F90.

◆ tmp_d

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::tmp_d = C_NULL_PTR

Definition at line 81 of file fusedcg_cpld_device.F90.

◆ w1

real(kind=rp), dimension(:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::w1

Definition at line 54 of file fusedcg_cpld_device.F90.

◆ w1_d

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::w1_d = C_NULL_PTR

Definition at line 68 of file fusedcg_cpld_device.F90.

◆ w2

real(kind=rp), dimension(:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::w2

Definition at line 55 of file fusedcg_cpld_device.F90.

◆ w2_d

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::w2_d = C_NULL_PTR

Definition at line 69 of file fusedcg_cpld_device.F90.

◆ w3

real(kind=rp), dimension(:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::w3

Definition at line 56 of file fusedcg_cpld_device.F90.

◆ w3_d

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::w3_d = C_NULL_PTR

Definition at line 70 of file fusedcg_cpld_device.F90.

◆ z1

real(kind=rp), dimension(:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::z1

Definition at line 60 of file fusedcg_cpld_device.F90.

◆ z1_d

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::z1_d = C_NULL_PTR

Definition at line 74 of file fusedcg_cpld_device.F90.

◆ z2

real(kind=rp), dimension(:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::z2

Definition at line 61 of file fusedcg_cpld_device.F90.

◆ z2_d

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::z2_d = C_NULL_PTR

Definition at line 75 of file fusedcg_cpld_device.F90.

◆ z3

real(kind=rp), dimension(:), allocatable fusedcg_cpld_device::fusedcg_cpld_device_t::z3

Definition at line 62 of file fusedcg_cpld_device.F90.

◆ z3_d

type(c_ptr) fusedcg_cpld_device::fusedcg_cpld_device_t::z3_d = C_NULL_PTR

Definition at line 76 of file fusedcg_cpld_device.F90.

The documentation for this type was generated from the following file:

/home/runner/work/neko/neko/src/krylov/bcknd/device/fusedcg_cpld_device.F90

Public Member Functions

Public Attributes

Detailed Description

Member Function/Subroutine Documentation

◆ free() [1/2]

◆ free() [2/2]

◆ init()

◆ ksp_free()

◆ ksp_init()

◆ monitor_iter()

◆ monitor_start()

◆ monitor_stop()

◆ set_pc()

◆ solve() [1/2]

◆ solve() [2/2]

◆ solve_coupled() [1/2]

◆ solve_coupled() [2/2]

Member Data Documentation

◆ abs_tol

◆ alpha

◆ alpha_d

◆ gs_event1

◆ gs_event2

◆ gs_event3

◆ m

◆ m_ident

◆ max_iter

◆ monitor

◆ p1

◆ p1_d

◆ p1_d_d

◆ p2

◆ p2_d

◆ p2_d_d

◆ p3

◆ p3_d

◆ p3_d_d

◆ r1

◆ r1_d

◆ r2

◆ r2_d

◆ r3

◆ r3_d

◆ rel_tol

◆ tmp

◆ tmp_d

◆ w1

◆ w1_d

◆ w2

◆ w2_d

◆ w3

◆ w3_d

◆ z1

◆ z1_d

◆ z2

◆ z2_d

◆ z3

◆ z3_d