GridInterp_Scalar2D Subroutine

  1. SELF_Scalar_2D.f90
  2. SELF_Scalar_2D
  3. GridInterp_Scalar2D

public subroutine GridInterp_Scalar2D(this, f)

Arguments

TypeIntentOptionalAttributesName
class(Scalar2D), intent(inout) :: this
type(c_ptr), intent(inout) :: f

Calls

proc~~gridinterp_scalar2d~~CallsGraph proc~gridinterp_scalar2d GridInterp_Scalar2D proc~self_blas_matrixop_dim1_2d self_blas_matrixop_dim1_2d proc~gridinterp_scalar2d->proc~self_blas_matrixop_dim1_2d proc~self_blas_matrixop_dim2_2d self_blas_matrixop_dim2_2d proc~gridinterp_scalar2d->proc~self_blas_matrixop_dim2_2d hipblasgemm hipblasgemm proc~self_blas_matrixop_dim1_2d->hipblasgemm proc~hipblascheck hipblasCheck proc~self_blas_matrixop_dim1_2d->proc~hipblascheck proc~self_blas_matrixop_dim2_2d->proc~hipblascheck hipblasgemvstridedbatched hipblasgemvstridedbatched proc~self_blas_matrixop_dim2_2d->hipblasgemvstridedbatched

Contents

Source Code

GridInterp_Scalar2D

Source Code

  subroutine GridInterp_Scalar2D(this,f)
    implicit none
    class(Scalar2D),intent(inout) :: this
    type(c_ptr),intent(inout) :: f

    call self_blas_matrixop_dim1_2d(this%interp%iMatrix_gpu,this%interior_gpu, &
                                    this%interpWork,this%N,this%M,this%nvar,this%nelem, &
                                    this%blas_handle)

    call self_blas_matrixop_dim2_2d(this%interp%iMatrix_gpu,this%interpWork,f, &
                                    0.0_c_prec,this%N,this%M,this%nvar,this%nelem, &
                                    this%blas_handle)

  endsubroutine GridInterp_Scalar2D