SELF_GPUInterfaces Module

3-Clause BSD with attribution
343 statements
Source File

Uses

- SELF_GPU
- iso_c_binding
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

AccumulateField_gpu Average_gpu BoundaryInterp_2D_gpu BoundaryInterp_3D_gpu CalculateDSDt_gpu DG_BoundaryContribution_2D_gpu DG_BoundaryContribution_3D_gpu DG_BoundaryContribution_JacobianWeight_3D_gpu Divergence_2D_gpu ECDGSurfaceContribution_2D_gpu ECDGSurfaceContribution_3D_gpu GradientNormal_1D_gpu GridInterp_2D_gpu GridInterp_3D_gpu HaloPack_2D_gpu HaloPack_3D_gpu HaloUnpack_2D_gpu HaloUnpack_3D_gpu JacobianWeight_2D_gpu JacobianWeight_3D_gpu MappedContravariantDivergence_3D_gpu MappedTwoPointVectorDivergence_2D_gpu MappedTwoPointVectorDivergence_3D_gpu MatrixOp_1D_gpu MortarFlip_2D_gpu MortarFluxScatter_2D_gpu MortarGather_2D_gpu MortarScatter_2D_gpu RefinementIndicator_2D_gpu ScalarGradient_2D_gpu ScalarGradient_3D_gpu SideExchange_2D_gpu SideExchange_3D_gpu TransferSolution_2D_gpu TwoPointVectorDivergence_2D_gpu TwoPointVectorDivergence_3D_gpu UpdateGRK_CalculateDSDt_gpu UpdateGRK_gpu UpdateSolution_CalculateDSDt_gpu UpdateSolution_gpu VectorDivergence_2D_gpu VectorDivergence_3D_gpu

Interfaces

interface

public subroutine AccumulateField_gpu(a, b, ndof) bind(c,name="0")

Arguments

Type Intent Optional Attributes Name

type(c_ptr), value :: a

type(c_ptr), value :: b

integer(kind=c_int), value :: ndof

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 DG_BoundaryContribution_JacobianWeight_3D_gpu(bmatrix, qweights, bf, df, jacobian, 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
type(c_ptr),			value	::	jacobian
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 ECDGSurfaceContribution_2D_gpu(fbn, jacobian, bmatrix, qweights, df, N, nvar, nel) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	fbn
type(c_ptr),			value	::	jacobian
type(c_ptr),			value	::	bmatrix
type(c_ptr),			value	::	qweights
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 ECDGSurfaceContribution_3D_gpu(fbn, jacobian, bmatrix, qweights, df, N, nvar, nel) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	fbn
type(c_ptr),			value	::	jacobian
type(c_ptr),			value	::	bmatrix
type(c_ptr),			value	::	qweights
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 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 GridInterp_2D_gpu(A, f, fInterp, N, M, nVar, nEl) bind(c,name="0")

Arguments

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

interface

public subroutine GridInterp_3D_gpu(A, f, fInterp, N, M, nVar, nEl) bind(c,name="0")

Arguments

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

interface

public subroutine HaloPack_2D_gpu(boundary, sendbuf, halosides, n, nvar, nel, nhalo) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	boundary
type(c_ptr),			value	::	sendbuf
type(c_ptr),			value	::	halosides
integer(kind=c_int),			value	::	n
integer(kind=c_int),			value	::	nvar
integer(kind=c_int),			value	::	nel
integer(kind=c_int),			value	::	nhalo

interface

public subroutine HaloPack_3D_gpu(boundary, sendbuf, halosides, n, nvar, nel, nhalo) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	boundary
type(c_ptr),			value	::	sendbuf
type(c_ptr),			value	::	halosides
integer(kind=c_int),			value	::	n
integer(kind=c_int),			value	::	nvar
integer(kind=c_int),			value	::	nel
integer(kind=c_int),			value	::	nhalo

interface

public subroutine HaloUnpack_2D_gpu(recvbuf, extboundary, halosides, n, nvar, nel, nhalo) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	recvbuf
type(c_ptr),			value	::	extboundary
type(c_ptr),			value	::	halosides
integer(kind=c_int),			value	::	n
integer(kind=c_int),			value	::	nvar
integer(kind=c_int),			value	::	nel
integer(kind=c_int),			value	::	nhalo

interface

public subroutine HaloUnpack_3D_gpu(recvbuf, extboundary, halosides, n, nvar, nel, nhalo) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	recvbuf
type(c_ptr),			value	::	extboundary
type(c_ptr),			value	::	halosides
integer(kind=c_int),			value	::	n
integer(kind=c_int),			value	::	nvar
integer(kind=c_int),			value	::	nel
integer(kind=c_int),			value	::	nhalo

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 MappedContravariantDivergence_3D_gpu(dsdx, A, f, df, jacobian, N, nVar, nEl) bind(c,name="0")

Arguments

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

interface

public subroutine MappedTwoPointVectorDivergence_2D_gpu(f, df, dmat, dsdx, jacobian, 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
type(c_ptr),			value	::	dsdx
type(c_ptr),			value	::	jacobian
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nVar
integer(kind=c_int),			value	::	nEl

interface

public subroutine MappedTwoPointVectorDivergence_3D_gpu(f, df, dmat, dsdx, jacobian, 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
type(c_ptr),			value	::	dsdx
type(c_ptr),			value	::	jacobian
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nVar
integer(kind=c_int),			value	::	nEl

interface

public subroutine MatrixOp_1D_gpu(A, f, Af, opArows, opAcols, ncol) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	A
type(c_ptr),			value	::	f
type(c_ptr),			value	::	Af
integer(kind=c_int),			value	::	opArows
integer(kind=c_int),			value	::	opAcols
integer(kind=c_int),			value	::	ncol

interface

public subroutine MortarFlip_2D_gpu(buff, mortarinfo, elemToRank, rankId, N, nl, nMortars) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	buff
type(c_ptr),			value	::	mortarinfo
type(c_ptr),			value	::	elemToRank
integer(kind=c_int),			value	::	rankId
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nl
integer(kind=c_int),			value	::	nMortars

interface

public subroutine MortarFluxScatter_2D_gpu(boundarynormal, buff, mortarP, mortarinfo, elemToRank, rankId, offset, N, nl, nMortars, nEl) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	boundarynormal
type(c_ptr),			value	::	buff
type(c_ptr),			value	::	mortarP
type(c_ptr),			value	::	mortarinfo
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	::	nl
integer(kind=c_int),			value	::	nMortars
integer(kind=c_int),			value	::	nEl

interface

public subroutine MortarGather_2D_gpu(buff, boundary, mortarinfo, elemToRank, rankId, offset, N, nl, nMortars, nEl) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	buff
type(c_ptr),			value	::	boundary
type(c_ptr),			value	::	mortarinfo
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	::	nl
integer(kind=c_int),			value	::	nMortars
integer(kind=c_int),			value	::	nEl

interface

public subroutine MortarScatter_2D_gpu(extboundary, buff, mortarR, mortarP, mortarinfo, elemToRank, rankId, offset, N, nl, nMortars, nEl) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	extboundary
type(c_ptr),			value	::	buff
type(c_ptr),			value	::	mortarR
type(c_ptr),			value	::	mortarP
type(c_ptr),			value	::	mortarinfo
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	::	nl
integer(kind=c_int),			value	::	nMortars
integer(kind=c_int),			value	::	nEl

interface

public subroutine RefinementIndicator_2D_gpu(Pmodal, f, w, ratio, gate, N, nVar, ivar, nEl) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	Pmodal
type(c_ptr),			value	::	f
type(c_ptr),			value	::	w
type(c_ptr),			value	::	ratio
type(c_ptr),			value	::	gate
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nVar
integer(kind=c_int),			value	::	ivar
integer(kind=c_int),			value	::	nEl

interface

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

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	A
type(c_ptr),			value	::	f
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 ScalarGradient_3D_gpu(A, f, df, N, nVar, nEl) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	A
type(c_ptr),			value	::	f
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 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 TransferSolution_2D_gpu(uold, unew, sourcekind, sourceelem, family, depth, path, mortarR, mortarP, pathStride, eFirst0, N, nvar, nOld, nNew, nLocal) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	uold
type(c_ptr),			value	::	unew
type(c_ptr),			value	::	sourcekind
type(c_ptr),			value	::	sourceelem
type(c_ptr),			value	::	family
type(c_ptr),			value	::	depth
type(c_ptr),			value	::	path
type(c_ptr),			value	::	mortarR
type(c_ptr),			value	::	mortarP
integer(kind=c_int),			value	::	pathStride
integer(kind=c_int),			value	::	eFirst0
integer(kind=c_int),			value	::	N
integer(kind=c_int),			value	::	nvar
integer(kind=c_int),			value	::	nOld
integer(kind=c_int),			value	::	nNew
integer(kind=c_int),			value	::	nLocal

interface

public subroutine TwoPointVectorDivergence_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 TwoPointVectorDivergence_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 UpdateGRK_CalculateDSDt_gpu(grk, solution, fluxDivergence, source, 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	::	fluxDivergence
type(c_ptr),			value	::	source
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 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_CalculateDSDt_gpu(solution, fluxDivergence, source, dt, ndof) bind(c,name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	solution
type(c_ptr),			value	::	fluxDivergence
type(c_ptr),			value	::	source
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

interface

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

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	A
type(c_ptr),			value	::	f
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 VectorDivergence_3D_gpu(A, f, df, N, nVar, nEl) bind(c,name="0")

Arguments

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