AverageSides_Scalar1D Subroutine

3-Clause BSD with attribution
5 statements
Source File

public subroutine AverageSides_Scalar1D(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(Scalar1D),	intent(inout)			::	this

Contents

Source Code

AverageSides_Scalar1D

Source Code

  subroutine AverageSides_Scalar1D(this)
    implicit none
    class(Scalar1D),intent(inout) :: this

    call Average_gpu(this%avgBoundary_gpu,this%boundary_gpu,this%extBoundary_gpu,size(this%avgBoundary))

  endsubroutine AverageSides_Scalar1D