SELF_GPUInterfaces Module

3-Clause BSD with attribution
123 statements
Source File

Uses

- SELF_GPU
- iso_c_binding

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