SELF_GPUInterfaces Module

3-Clause BSD with attribution
139 statements
Source File

Uses

- iso_c_binding
- SELF_GPU
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Contents

Interfaces

ApplyFlip_2D_gpu ApplyFlip_3D_gpu Average_gpu BoundaryInterp_2D_gpu BoundaryInterp_3D_gpu CalculateDSDt_gpu DG_BoundaryContribution_2D_gpu DG_BoundaryContribution_3D_gpu Divergence_2D_gpu Divergence_3D_gpu GradientNormal_1D_gpu JacobianWeight_2D_gpu JacobianWeight_3D_gpu SideExchange_2D_gpu SideExchange_3D_gpu UpdateGRK_gpu UpdateSolution_gpu

Interfaces

interface

public subroutine ApplyFlip_2D_gpu(extBoundary, sideInfo, elemToRank, rankId, offset, N, nVar, nEl) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	extBoundary
type(c_ptr),			value	::	sideInfo
type(c_ptr),			value	::	elemToRank
integer(kind=c_int),			value	::	rankId
integer(kind=c_int),			value	::	offset
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nVar
integer(kind=c_int),			value	::	nEl

interface

public subroutine ApplyFlip_3D_gpu(extBoundary, sideInfo, elemToRank, rankId, offset, N, nVar, nEl) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	extBoundary
type(c_ptr),			value	::	sideInfo
type(c_ptr),			value	::	elemToRank
integer(kind=c_int),			value	::	rankId
integer(kind=c_int),			value	::	offset
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nVar
integer(kind=c_int),			value	::	nEl

interface

public subroutine Average_gpu(favg, f1, f2, ndof) bind(c,name="0")

Arguments

Type Intent Optional Attributes Name

type(c_ptr), value :: favg

type(c_ptr), value :: f1

type(c_ptr), value :: f2

integer(kind=c_int), value :: ndof

interface

public subroutine BoundaryInterp_2D_gpu(bMatrix_dev, f_dev, bf_dev, N, nVar, nEl) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	bMatrix_dev
type(c_ptr),			value	::	f_dev
type(c_ptr),			value	::	bf_dev
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nVar
integer(kind=c_int),			value	::	nEl

interface

public subroutine BoundaryInterp_3D_gpu(bMatrix_dev, f_dev, bf_dev, N, nVar, nEl) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	bMatrix_dev
type(c_ptr),			value	::	f_dev
type(c_ptr),			value	::	bf_dev
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nVar
integer(kind=c_int),			value	::	nEl

interface

public subroutine CalculateDSDt_gpu(fluxDivergence, source, dsdt, ndof) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	fluxDivergence
type(c_ptr),			value	::	source
type(c_ptr),			value	::	dsdt
integer(kind=c_int),			value	::	ndof

interface

public subroutine DG_BoundaryContribution_2D_gpu(bmatrix, qweights, bf, df, N, nvar, nel) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	bmatrix
type(c_ptr),			value	::	qweights
type(c_ptr),			value	::	bf
type(c_ptr),			value	::	df
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nvar
integer(kind=c_int),			value	::	nel

interface

public subroutine DG_BoundaryContribution_3D_gpu(bmatrix, qweights, bf, df, N, nvar, nel) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	bmatrix
type(c_ptr),			value	::	qweights
type(c_ptr),			value	::	bf
type(c_ptr),			value	::	df
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nvar
integer(kind=c_int),			value	::	nel

interface

public subroutine Divergence_2D_gpu(f, df, dmat, N, nVar, nEl) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	f
type(c_ptr),			value	::	df
type(c_ptr),			value	::	dmat
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nVar
integer(kind=c_int),			value	::	nEl

interface

public subroutine Divergence_3D_gpu(f, df, dmat, N, nVar, nEl) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	f
type(c_ptr),			value	::	df
type(c_ptr),			value	::	dmat
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nVar
integer(kind=c_int),			value	::	nEl

interface

public subroutine GradientNormal_1D_gpu(fbn, fbavg, ndof) bind(c,name="0")

Arguments

Type Intent Optional Attributes Name

type(c_ptr), value :: fbn

type(c_ptr), value :: fbavg

integer(kind=c_int), value :: ndof

interface

public subroutine JacobianWeight_2D_gpu(scalar, J, N, nVar, nEl) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	scalar
type(c_ptr),			value	::	J
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nVar
integer(kind=c_int),			value	::	nEl

interface

public subroutine JacobianWeight_3D_gpu(scalar, J, N, nVar, nEl) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	scalar
type(c_ptr),			value	::	J
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nVar
integer(kind=c_int),			value	::	nEl

interface

public subroutine SideExchange_2D_gpu(extboundary, boundary, sideinfo, elemToRank, rankId, offset, N, nVar, nEl) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	extboundary
type(c_ptr),			value	::	boundary
type(c_ptr),			value	::	sideinfo
type(c_ptr),			value	::	elemToRank
integer(kind=c_int),			value	::	rankId
integer(kind=c_int),			value	::	offset
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nVar
integer(kind=c_int),			value	::	nEl

interface

public subroutine SideExchange_3D_gpu(extboundary, boundary, sideinfo, elemToRank, rankId, offset, N, nVar, nEl) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	extboundary
type(c_ptr),			value	::	boundary
type(c_ptr),			value	::	sideinfo
type(c_ptr),			value	::	elemToRank
integer(kind=c_int),			value	::	rankId
integer(kind=c_int),			value	::	offset
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nVar
integer(kind=c_int),			value	::	nEl

interface

public subroutine UpdateGRK_gpu(grk, solution, dsdt, rk_a, rk_g, dt, ndof) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	grk
type(c_ptr),			value	::	solution
type(c_ptr),			value	::	dsdt
real(kind=c_prec),			value	::	rk_a
real(kind=c_prec),			value	::	rk_g
real(kind=c_prec),			value	::	dt
integer(kind=c_int),			value	::	ndof

interface

public subroutine UpdateSolution_gpu(solution, dsdt, dt, ndof) bind(c,name="0")

Arguments

Type Intent Optional Attributes Name

type(c_ptr), value :: solution

type(c_ptr), value :: dsdt

real(kind=c_prec), value :: dt

integer(kind=c_int), value :: ndof