d8/dae/prgm__lib_8F90_source.html

module opencl_prgm_lib

  use opencl_intf

  use utils, only : neko_error

  use, intrinsic :: iso_c_binding, only : c_ptr, c_null_ptr

  implicit none

  private


#ifdef HAVE_OPENCL


  type(c_ptr), public, bind(c) :: math_program = c_null_ptr


  type(c_ptr), public, bind(c) :: mathops_program = c_null_ptr


  type(c_ptr), public, bind(c) :: dirichlet_program = c_null_ptr


  type(c_ptr), public, bind(c) :: inflow_program = c_null_ptr


  type(c_ptr), public, bind(c) :: zero_dirichlet_program = c_null_ptr


  type(c_ptr), public, bind(c) :: symmetry_program = c_null_ptr


  type(c_ptr), public, bind(c) :: facet_normal_program = c_null_ptr


  type(c_ptr), public, bind(c) :: neumann_program = c_null_ptr


  type(c_ptr), public, bind(c) :: inhom_dirichlet_program = c_null_ptr


  type(c_ptr), public, bind(c) :: dudxyz_program = c_null_ptr


  type(c_ptr), public, bind(c) :: cdtp_program = c_null_ptr


  type(c_ptr), public, bind(c) :: conv1_program = c_null_ptr


  type(c_ptr), public, bind(c) :: cfl_program = c_null_ptr


  type(c_ptr), public, bind(c) :: opgrad_program = c_null_ptr


  type(c_ptr), public, bind(c) :: gs_program = c_null_ptr


  type(c_ptr), public, bind(c) :: ax_helm_program = c_null_ptr


  type(c_ptr), public, bind(c) :: jacobi_program = c_null_ptr


  type(c_ptr), public, bind(c) :: rhs_maker_program = c_null_ptr


  type(c_ptr), public, bind(c) :: pnpn_res_program = c_null_ptr


  type(c_ptr), public, bind(c) :: euler_res_program = c_null_ptr


  type(c_ptr), public, bind(c) :: compressible_ops_compute_max_wave_speed_program = c_null_ptr

  type(c_ptr), public, bind(c) :: compressible_ops_compute_entropy_program = c_null_ptr


  type(c_ptr), public, bind(c) :: fdm_program = c_null_ptr


  type(c_ptr), public, bind(c) :: tensor_program = c_null_ptr


  type(c_ptr), public, bind(c) :: schwarz_program = c_null_ptr


  type(c_ptr), public, bind(c) :: dong_program = c_null_ptr


  type(c_ptr), public, bind(c) :: coef_program = c_null_ptr


  type(c_ptr), public, bind(c) :: scalar_residual_program = c_null_ptr


  type(c_ptr), public, bind(c) :: lambda2_program = c_null_ptr


  type(c_ptr), public, bind(c) :: compute_max_wave_speed_program = c_null_ptr


  type(c_ptr), public, bind(c) :: mapping_program = c_null_ptr


  public :: opencl_prgm_lib_release


contains


  subroutine opencl_prgm_lib_release


    if (c_associated(math_program)) then

       if(clreleaseprogram(math_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       math_program = c_null_ptr

    end if


    if (c_associated(mathops_program)) then

       if(clreleaseprogram(mathops_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       mathops_program = c_null_ptr

    end if


    if (c_associated(dirichlet_program)) then

       if(clreleaseprogram(dirichlet_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       dirichlet_program = c_null_ptr

    end if


    if (c_associated(inflow_program)) then

       if(clreleaseprogram(inflow_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       inflow_program = c_null_ptr

    end if


    if (c_associated(zero_dirichlet_program)) then

       if (clreleaseprogram(zero_dirichlet_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       zero_dirichlet_program = c_null_ptr

    end if


    if (c_associated(symmetry_program)) then

       if(clreleaseprogram(symmetry_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       symmetry_program = c_null_ptr

    end if


    if (c_associated(facet_normal_program)) then

       if(clreleaseprogram(facet_normal_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       facet_normal_program = c_null_ptr

    end if


    if (c_associated(inhom_dirichlet_program)) then

       if(clreleaseprogram(inhom_dirichlet_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       inhom_dirichlet_program = c_null_ptr

    end if


    if (c_associated(dudxyz_program)) then

       if(clreleaseprogram(dudxyz_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       dudxyz_program = c_null_ptr

    end if


    if (c_associated(cdtp_program)) then

       if(clreleaseprogram(cdtp_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       cdtp_program = c_null_ptr

    end if


    if (c_associated(conv1_program)) then

       if(clreleaseprogram(conv1_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       conv1_program = c_null_ptr

    end if


    if (c_associated(cfl_program)) then

       if(clreleaseprogram(cfl_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       cfl_program = c_null_ptr

    end if


    if (c_associated(opgrad_program)) then

       if(clreleaseprogram(opgrad_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       opgrad_program = c_null_ptr

    end if


    if (c_associated(gs_program)) then

       if(clreleaseprogram(gs_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       gs_program = c_null_ptr

    end if


    if (c_associated(ax_helm_program)) then

       if(clreleaseprogram(ax_helm_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       ax_helm_program = c_null_ptr

    end if


    if (c_associated(jacobi_program)) then

       if(clreleaseprogram(jacobi_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       jacobi_program = c_null_ptr

    end if


    if (c_associated(rhs_maker_program)) then

       if(clreleaseprogram(rhs_maker_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       rhs_maker_program = c_null_ptr

    end if


    if (c_associated(pnpn_res_program)) then

       if(clreleaseprogram(pnpn_res_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       pnpn_res_program = c_null_ptr

    end if


    if (c_associated(euler_res_program)) then

       if(clreleaseprogram(euler_res_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       euler_res_program = c_null_ptr

    end if


    if (c_associated(compressible_ops_compute_max_wave_speed_program)) then

       if(clreleaseprogram(compressible_ops_compute_max_wave_speed_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       compressible_ops_compute_max_wave_speed_program = c_null_ptr

    end if


    if (c_associated(compressible_ops_compute_entropy_program)) then

       if(clreleaseprogram(compressible_ops_compute_entropy_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       compressible_ops_compute_entropy_program = c_null_ptr

    end if


    if (c_associated(fdm_program)) then

       if(clreleaseprogram(fdm_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       fdm_program = c_null_ptr

    end if


    if (c_associated(tensor_program)) then

       if(clreleaseprogram(tensor_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       tensor_program = c_null_ptr

    end if


    if (c_associated(schwarz_program)) then

       if(clreleaseprogram(schwarz_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       schwarz_program = c_null_ptr

    end if


    if (c_associated(dong_program)) then

       if(clreleaseprogram(dong_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       dong_program = c_null_ptr

    end if


    if (c_associated(coef_program)) then

       if(clreleaseprogram(coef_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       coef_program = c_null_ptr

    end if


    if (c_associated(scalar_residual_program)) then

       if(clreleaseprogram(scalar_residual_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       scalar_residual_program = c_null_ptr

    end if


    if (c_associated(lambda2_program)) then

       if(clreleaseprogram(lambda2_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       lambda2_program = c_null_ptr

    end if


    if (c_associated(compute_max_wave_speed_program)) then

       if(clreleaseprogram(compute_max_wave_speed_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       compute_max_wave_speed_program = c_null_ptr

    end if


    if (c_associated(mapping_program)) then

       if(clreleaseprogram(mapping_program) .ne. cl_success) then

          call neko_error('Failed to release program')

       end if

       mapping_program = c_null_ptr

    end if


  end subroutine opencl_prgm_lib_release


#endif


end module opencl_prgm_lib

opencl_intf::clreleaseprogram
Definition opencl_intf.F90:358

utils::neko_error
Definition utils.f90:42

opencl_intf
Fortran OpenCL interface.
Definition opencl_intf.F90:34

opencl_intf::cl_success
@ cl_success
Definition opencl_intf.F90:50

opencl_prgm_lib
OpenCL JIT program library.
Definition prgm_lib.F90:2

opencl_prgm_lib::jacobi_program
type(c_ptr), bind(C), public jacobi_program
Device jacobi kernels.
Definition prgm_lib.F90:60

opencl_prgm_lib::opgrad_program
type(c_ptr), bind(C), public opgrad_program
Device Velocity gradient kernels.
Definition prgm_lib.F90:51

opencl_prgm_lib::math_program
type(c_ptr), bind(C), public math_program
Device math kernels.
Definition prgm_lib.F90:12

opencl_prgm_lib::symmetry_program
type(c_ptr), bind(C), public symmetry_program
Device Symmetry kernels.
Definition prgm_lib.F90:27

opencl_prgm_lib::inhom_dirichlet_program
type(c_ptr), bind(C), public inhom_dirichlet_program
Device Blasius profile kernel.
Definition prgm_lib.F90:36

opencl_prgm_lib::mathops_program
type(c_ptr), bind(C), public mathops_program
Device mathops kernels.
Definition prgm_lib.F90:15

opencl_prgm_lib::dong_program
type(c_ptr), bind(C), public dong_program
Device dong kernels.
Definition prgm_lib.F90:85

opencl_prgm_lib::conv1_program
type(c_ptr), bind(C), public conv1_program
Device onvective kernels.
Definition prgm_lib.F90:45

opencl_prgm_lib::inflow_program
type(c_ptr), bind(C), public inflow_program
Device Inflow kernels.
Definition prgm_lib.F90:21

opencl_prgm_lib::dudxyz_program
type(c_ptr), bind(C), public dudxyz_program
Device Derivative kernels.
Definition prgm_lib.F90:39

opencl_prgm_lib::coef_program
type(c_ptr), bind(C), public coef_program
Device coef kernels.
Definition prgm_lib.F90:88

opencl_prgm_lib::lambda2_program
type(c_ptr), bind(C), public lambda2_program
Device lambda2 kernels.
Definition prgm_lib.F90:94

opencl_prgm_lib::tensor_program
type(c_ptr), bind(C), public tensor_program
Device tensor kernels.
Definition prgm_lib.F90:79

opencl_prgm_lib::ax_helm_program
type(c_ptr), bind(C), public ax_helm_program
Device Ax helm kernels.
Definition prgm_lib.F90:57

opencl_prgm_lib::cdtp_program
type(c_ptr), bind(C), public cdtp_program
Device  kernels.
Definition prgm_lib.F90:42

opencl_prgm_lib::opencl_prgm_lib_release
subroutine, public opencl_prgm_lib_release
Definition prgm_lib.F90:107

opencl_prgm_lib::mapping_program
type(c_ptr), bind(C), public mapping_program
Device filter kernels.
Definition prgm_lib.F90:100

opencl_prgm_lib::schwarz_program
type(c_ptr), bind(C), public schwarz_program
Device schwarz kernels.
Definition prgm_lib.F90:82

opencl_prgm_lib::neumann_program
type(c_ptr), bind(C), public neumann_program
Device Neumann kernels.
Definition prgm_lib.F90:33

opencl_prgm_lib::gs_program
type(c_ptr), bind(C), public gs_program
Device Gather-Scatter kernels.
Definition prgm_lib.F90:54

opencl_prgm_lib::zero_dirichlet_program
type(c_ptr), bind(C), public zero_dirichlet_program
Device zero dirichlet kernels.
Definition prgm_lib.F90:24

opencl_prgm_lib::cfl_program
type(c_ptr), bind(C), public cfl_program
Device CFL kernels.
Definition prgm_lib.F90:48

opencl_prgm_lib::dirichlet_program
type(c_ptr), bind(C), public dirichlet_program
Device Dirichlet kernels.
Definition prgm_lib.F90:18

opencl_prgm_lib::compressible_ops_compute_entropy_program
type(c_ptr), bind(C), public compressible_ops_compute_entropy_program
Definition prgm_lib.F90:73

opencl_prgm_lib::compute_max_wave_speed_program
type(c_ptr), bind(C), public compute_max_wave_speed_program
Device compute_max_wave_speed kernels.
Definition prgm_lib.F90:97

opencl_prgm_lib::pnpn_res_program
type(c_ptr), bind(C), public pnpn_res_program
Device pnpn residual kernels.
Definition prgm_lib.F90:66

opencl_prgm_lib::rhs_maker_program
type(c_ptr), bind(C), public rhs_maker_program
Device rhs_maker kernels.
Definition prgm_lib.F90:63

opencl_prgm_lib::scalar_residual_program
type(c_ptr), bind(C), public scalar_residual_program
Device scalar residual kernels.
Definition prgm_lib.F90:91

opencl_prgm_lib::euler_res_program
type(c_ptr), bind(C), public euler_res_program
Device euler residual kernels.
Definition prgm_lib.F90:69

opencl_prgm_lib::facet_normal_program
type(c_ptr), bind(C), public facet_normal_program
Device Facet normal kernels.
Definition prgm_lib.F90:30

opencl_prgm_lib::fdm_program
type(c_ptr), bind(C), public fdm_program
Device fdm kernels.
Definition prgm_lib.F90:76

opencl_prgm_lib::compressible_ops_compute_max_wave_speed_program
type(c_ptr), bind(C), public compressible_ops_compute_max_wave_speed_program
Device compressible ops kernels.
Definition prgm_lib.F90:72

utils
Utilities.
Definition utils.f90:35