prgm_lib.F90

Go to the documentation of this file.

 
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
 
#ifdef HAVE_OPENCL
 
  type(c_ptr), bind(c) :: math_program = c_null_ptr
 
  type(c_ptr), bind(c) :: mathops_program = c_null_ptr
 
  type(c_ptr), bind(c) :: dirichlet_program = c_null_ptr
 
  type(c_ptr), bind(c) :: inflow_program = c_null_ptr
 
  type(c_ptr), bind(c) :: no_slip_wall_program = c_null_ptr
 
  type(c_ptr), bind(c) :: symmetry_program = c_null_ptr
 
  type(c_ptr), bind(c) :: facet_normal_program = c_null_ptr
 
  type(c_ptr), bind(c) :: inhom_dirichlet_program = c_null_ptr
 
  type(c_ptr), bind(c) :: dudxyz_program = c_null_ptr
 
  type(c_ptr), bind(c) :: cdtp_program = c_null_ptr
 
  type(c_ptr), bind(c) :: conv1_program = c_null_ptr
 
  type(c_ptr), bind(c) :: cfl_program = c_null_ptr
 
  type(c_ptr), bind(c) :: opgrad_program = c_null_ptr
 
  type(c_ptr), bind(c) :: gs_program = c_null_ptr
 
  type(c_ptr), bind(c) :: ax_helm_program = c_null_ptr
 
  type(c_ptr), bind(c) :: jacobi_program = c_null_ptr
 
  type(c_ptr), bind(c) :: rhs_maker_program = c_null_ptr
 
  type(c_ptr), bind(c) :: pnpn_res_program = c_null_ptr
 
  type(c_ptr), bind(c) :: fdm_program = c_null_ptr
 
  type(c_ptr), bind(c) :: tensor_program = c_null_ptr
 
  type(c_ptr), bind(c) :: schwarz_program = c_null_ptr
 
  type(c_ptr), bind(c) :: dong_program = c_null_ptr
 
  type(c_ptr), bind(c) :: coef_program = c_null_ptr
 
  type(c_ptr), bind(c) :: scalar_residual_program = c_null_ptr
 
  type(c_ptr), bind(c) :: lambda2_program = c_null_ptr
 
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(no_slip_wall_program)) then
       if(clreleaseprogram(no_slip_wall_program) .ne. cl_success) then
          call neko_error('Failed to release program')
       end if
       no_slip_wall_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(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
 
  end subroutine opencl_prgm_lib_release
 
#endif
 
end module opencl_prgm_lib