MappedDerivative_MappedScalar1D Subroutine

public subroutine MappedDerivative_MappedScalar1D(this, df)

Arguments

TypeIntentOptionalAttributesName
class(MappedScalar1D), intent(in) :: this
type(c_ptr), intent(inout) :: df

Calls

proc~~mappedderivative_mappedscalar1d~~CallsGraph proc~mappedderivative_mappedscalar1d MappedDerivative_MappedScalar1D interface~jacobianweight_1d_gpu JacobianWeight_1D_gpu proc~mappedderivative_mappedscalar1d->interface~jacobianweight_1d_gpu

Contents


Source Code

  subroutine MappedDerivative_MappedScalar1D(this,dF)
    implicit none
    class(MappedScalar1D),intent(in) :: this
    type(c_ptr),intent(inout) :: df
    ! Local
    integer :: iEl,iVar,i,ii
    real(prec) :: dfloc

    call this%Derivative(df)
    call JacobianWeight_1D_gpu(df,this%geometry%dxds%interior_gpu,this%N,this%nVar,this%nelem)

  endsubroutine MappedDerivative_MappedScalar1D