comin_descrdata_c_access.F90

Go to the documentation of this file.

!  @authors 01/2026 :: ICON Community Interface  <comin@icon-model.org>
!
!  SPDX-License-Identifier: BSD-3-Clause
!
!  Please see the file LICENSE in the root of the source tree for this code.
!  Where software is supplied by third parties, it is indicated in the
!  headers of the routines.
 
! *** DO NOT EDIT MANUALLY!  Generated by python script in utils/. DO NOT EDIT MANUALLY! *** !
 
MODULE comin_descrdata_c_access
  USE iso_c_binding, ONLY: c_ptr, c_int, c_bool, c_signed_char
  USE comin_state, ONLY: state
  USE comin_setup_constants, ONLY: wp
  USE comin_descrdata, ONLY: comin_descrdata_to_c
 
  IMPLICIT NONE
 
  PRIVATE
 
CONTAINS
 
  FUNCTION comin_descrdata_get_global_n_dom() &
      &  BIND(C, NAME="comin_descrdata_get_global_n_dom") &
      &  result(n_dom)
 
    INTEGER(C_INT)                      :: n_dom
    n_dom  = state%comin_descrdata_global_data%n_dom
  END FUNCTION comin_descrdata_get_global_n_dom
 
  FUNCTION comin_descrdata_get_global_max_dom() &
      &  BIND(C, NAME="comin_descrdata_get_global_max_dom") &
      &  result(max_dom)
 
    INTEGER(C_INT)                      :: max_dom
    max_dom  = state%comin_descrdata_global_data%max_dom
  END FUNCTION comin_descrdata_get_global_max_dom
 
  FUNCTION comin_descrdata_get_global_nproma() &
      &  BIND(C, NAME="comin_descrdata_get_global_nproma") &
      &  result(nproma)
 
    INTEGER(C_INT)                      :: nproma
    nproma  = state%comin_descrdata_global_data%nproma
  END FUNCTION comin_descrdata_get_global_nproma
 
  FUNCTION comin_descrdata_get_global_wp() &
      &  BIND(C, NAME="comin_descrdata_get_global_wp") &
      &  result(wp)
 
    INTEGER(C_INT)                      :: wp
    wp  = state%comin_descrdata_global_data%wp
  END FUNCTION comin_descrdata_get_global_wp
 
  FUNCTION comin_descrdata_get_global_min_rlcell_int() &
      &  BIND(C, NAME="comin_descrdata_get_global_min_rlcell_int") &
      &  result(min_rlcell_int)
 
    INTEGER(C_INT)                      :: min_rlcell_int
    min_rlcell_int  = state%comin_descrdata_global_data%min_rlcell_int
  END FUNCTION comin_descrdata_get_global_min_rlcell_int
 
  FUNCTION comin_descrdata_get_global_min_rlcell() &
      &  BIND(C, NAME="comin_descrdata_get_global_min_rlcell") &
      &  result(min_rlcell)
 
    INTEGER(C_INT)                      :: min_rlcell
    min_rlcell  = state%comin_descrdata_global_data%min_rlcell
  END FUNCTION comin_descrdata_get_global_min_rlcell
 
  FUNCTION comin_descrdata_get_global_max_rlcell() &
      &  BIND(C, NAME="comin_descrdata_get_global_max_rlcell") &
      &  result(max_rlcell)
 
    INTEGER(C_INT)                      :: max_rlcell
    max_rlcell  = state%comin_descrdata_global_data%max_rlcell
  END FUNCTION comin_descrdata_get_global_max_rlcell
 
  FUNCTION comin_descrdata_get_global_min_rlvert_int() &
      &  BIND(C, NAME="comin_descrdata_get_global_min_rlvert_int") &
      &  result(min_rlvert_int)
 
    INTEGER(C_INT)                      :: min_rlvert_int
    min_rlvert_int  = state%comin_descrdata_global_data%min_rlvert_int
  END FUNCTION comin_descrdata_get_global_min_rlvert_int
 
  FUNCTION comin_descrdata_get_global_min_rlvert() &
      &  BIND(C, NAME="comin_descrdata_get_global_min_rlvert") &
      &  result(min_rlvert)
 
    INTEGER(C_INT)                      :: min_rlvert
    min_rlvert  = state%comin_descrdata_global_data%min_rlvert
  END FUNCTION comin_descrdata_get_global_min_rlvert
 
  FUNCTION comin_descrdata_get_global_max_rlvert() &
      &  BIND(C, NAME="comin_descrdata_get_global_max_rlvert") &
      &  result(max_rlvert)
 
    INTEGER(C_INT)                      :: max_rlvert
    max_rlvert  = state%comin_descrdata_global_data%max_rlvert
  END FUNCTION comin_descrdata_get_global_max_rlvert
 
  FUNCTION comin_descrdata_get_global_min_rledge_int() &
      &  BIND(C, NAME="comin_descrdata_get_global_min_rledge_int") &
      &  result(min_rledge_int)
 
    INTEGER(C_INT)                      :: min_rledge_int
    min_rledge_int  = state%comin_descrdata_global_data%min_rledge_int
  END FUNCTION comin_descrdata_get_global_min_rledge_int
 
  FUNCTION comin_descrdata_get_global_min_rledge() &
      &  BIND(C, NAME="comin_descrdata_get_global_min_rledge") &
      &  result(min_rledge)
 
    INTEGER(C_INT)                      :: min_rledge
    min_rledge  = state%comin_descrdata_global_data%min_rledge
  END FUNCTION comin_descrdata_get_global_min_rledge
 
  FUNCTION comin_descrdata_get_global_max_rledge() &
      &  BIND(C, NAME="comin_descrdata_get_global_max_rledge") &
      &  result(max_rledge)
 
    INTEGER(C_INT)                      :: max_rledge
    max_rledge  = state%comin_descrdata_global_data%max_rledge
  END FUNCTION comin_descrdata_get_global_max_rledge
 
  FUNCTION comin_descrdata_get_global_grf_bdywidth_c() &
      &  BIND(C, NAME="comin_descrdata_get_global_grf_bdywidth_c") &
      &  result(grf_bdywidth_c)
 
    INTEGER(C_INT)                      :: grf_bdywidth_c
    grf_bdywidth_c  = state%comin_descrdata_global_data%grf_bdywidth_c
  END FUNCTION comin_descrdata_get_global_grf_bdywidth_c
 
  FUNCTION comin_descrdata_get_global_grf_bdywidth_e() &
      &  BIND(C, NAME="comin_descrdata_get_global_grf_bdywidth_e") &
      &  result(grf_bdywidth_e)
 
    INTEGER(C_INT)                      :: grf_bdywidth_e
    grf_bdywidth_e  = state%comin_descrdata_global_data%grf_bdywidth_e
  END FUNCTION comin_descrdata_get_global_grf_bdywidth_e
 
  FUNCTION comin_descrdata_get_global_lrestartrun() &
      &  BIND(C, NAME="comin_descrdata_get_global_lrestartrun") &
      &  result(lrestartrun)
 
    LOGICAL(C_BOOL)                      :: lrestartrun
    lrestartrun  = state%comin_descrdata_global_data%lrestartrun
  END FUNCTION comin_descrdata_get_global_lrestartrun
 
  SUBROUTINE comin_descrdata_get_global_vct_a( vct_a, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_global_vct_a")
 
    TYPE(C_PTR),    INTENT(OUT) :: vct_a
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    REAL(wp), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_global_data%vct_a
    CALL comin_descrdata_to_c(ptr, vct_a, arr_size)
  END SUBROUTINE comin_descrdata_get_global_vct_a
 
  FUNCTION comin_descrdata_get_global_l_limited_area() &
      &  BIND(C, NAME="comin_descrdata_get_global_l_limited_area") &
      &  result(l_limited_area)
 
    LOGICAL(C_BOOL)                      :: l_limited_area
    l_limited_area  = state%comin_descrdata_global_data%l_limited_area
  END FUNCTION comin_descrdata_get_global_l_limited_area
 
  FUNCTION comin_descrdata_get_global_yac_instance_id() &
      &  BIND(C, NAME="comin_descrdata_get_global_yac_instance_id") &
      &  result(yac_instance_id)
 
    INTEGER(C_INT)                      :: yac_instance_id
    yac_instance_id  = state%comin_descrdata_global_data%yac_instance_id
  END FUNCTION comin_descrdata_get_global_yac_instance_id
 
  SUBROUTINE comin_descrdata_get_global_host_git_remote_url( host_git_remote_url, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_global_host_git_remote_url")
 
    TYPE(C_PTR),    INTENT(OUT) :: host_git_remote_url
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    CHARACTER(LEN=:), POINTER :: ptr
    ptr =>state%comin_descrdata_global_data%host_git_remote_url
    CALL comin_descrdata_to_c(ptr, host_git_remote_url, arr_size)
  END SUBROUTINE comin_descrdata_get_global_host_git_remote_url
 
  SUBROUTINE comin_descrdata_get_global_host_git_branch( host_git_branch, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_global_host_git_branch")
 
    TYPE(C_PTR),    INTENT(OUT) :: host_git_branch
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    CHARACTER(LEN=:), POINTER :: ptr
    ptr =>state%comin_descrdata_global_data%host_git_branch
    CALL comin_descrdata_to_c(ptr, host_git_branch, arr_size)
  END SUBROUTINE comin_descrdata_get_global_host_git_branch
 
  SUBROUTINE comin_descrdata_get_global_host_git_tag( host_git_tag, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_global_host_git_tag")
 
    TYPE(C_PTR),    INTENT(OUT) :: host_git_tag
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    CHARACTER(LEN=:), POINTER :: ptr
    ptr =>state%comin_descrdata_global_data%host_git_tag
    CALL comin_descrdata_to_c(ptr, host_git_tag, arr_size)
  END SUBROUTINE comin_descrdata_get_global_host_git_tag
 
  SUBROUTINE comin_descrdata_get_global_host_revision( host_revision, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_global_host_revision")
 
    TYPE(C_PTR),    INTENT(OUT) :: host_revision
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    CHARACTER(LEN=:), POINTER :: ptr
    ptr =>state%comin_descrdata_global_data%host_revision
    CALL comin_descrdata_to_c(ptr, host_revision, arr_size)
  END SUBROUTINE comin_descrdata_get_global_host_revision
 
  FUNCTION comin_descrdata_get_global_has_device() &
      &  BIND(C, NAME="comin_descrdata_get_global_has_device") &
      &  result(has_device)
 
    LOGICAL(C_BOOL)                      :: has_device
    has_device  = state%comin_descrdata_global_data%has_device
  END FUNCTION comin_descrdata_get_global_has_device
 
  SUBROUTINE comin_descrdata_get_global_device_name( device_name, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_global_device_name")
 
    TYPE(C_PTR),    INTENT(OUT) :: device_name
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    CHARACTER(LEN=:), POINTER :: ptr
    ptr =>state%comin_descrdata_global_data%device_name
    CALL comin_descrdata_to_c(ptr, device_name, arr_size)
  END SUBROUTINE comin_descrdata_get_global_device_name
 
  SUBROUTINE comin_descrdata_get_global_device_vendor( device_vendor, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_global_device_vendor")
 
    TYPE(C_PTR),    INTENT(OUT) :: device_vendor
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    CHARACTER(LEN=:), POINTER :: ptr
    ptr =>state%comin_descrdata_global_data%device_vendor
    CALL comin_descrdata_to_c(ptr, device_vendor, arr_size)
  END SUBROUTINE comin_descrdata_get_global_device_vendor
 
  SUBROUTINE comin_descrdata_get_global_device_driver( device_driver, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_global_device_driver")
 
    TYPE(C_PTR),    INTENT(OUT) :: device_driver
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    CHARACTER(LEN=:), POINTER :: ptr
    ptr =>state%comin_descrdata_global_data%device_driver
    CALL comin_descrdata_to_c(ptr, device_driver, arr_size)
  END SUBROUTINE comin_descrdata_get_global_device_driver
 
  SUBROUTINE comin_descrdata_get_domain_grid_filename(jg, grid_filename, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_grid_filename")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: grid_filename
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    CHARACTER(LEN=:), POINTER :: ptr
    ptr =>state%comin_descrdata_domain_data(jg)%grid_filename
    CALL comin_descrdata_to_c(ptr, grid_filename, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_grid_filename
 
  SUBROUTINE comin_descrdata_get_domain_grid_uuid(jg, grid_uuid, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_grid_uuid")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: grid_uuid
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(c_signed_char), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%grid_uuid
    CALL comin_descrdata_to_c(ptr, grid_uuid, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_grid_uuid
 
  FUNCTION comin_descrdata_get_domain_number_of_grid_used(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_number_of_grid_used") &
      &  result(number_of_grid_used)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: number_of_grid_used
    number_of_grid_used  = state%comin_descrdata_domain_data(jg)%number_of_grid_used
  END FUNCTION comin_descrdata_get_domain_number_of_grid_used
 
  FUNCTION comin_descrdata_get_domain_id(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_id") &
      &  result(id)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: id
    id  = state%comin_descrdata_domain_data(jg)%id
  END FUNCTION comin_descrdata_get_domain_id
 
  FUNCTION comin_descrdata_get_domain_parent_id(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_parent_id") &
      &  result(parent_id)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: parent_id
    parent_id  = state%comin_descrdata_domain_data(jg)%parent_id
  END FUNCTION comin_descrdata_get_domain_parent_id
 
  SUBROUTINE comin_descrdata_get_domain_child_id(jg, child_id, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_child_id")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: child_id
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(C_INT), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%child_id
    CALL comin_descrdata_to_c(ptr, child_id, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_child_id
 
  FUNCTION comin_descrdata_get_domain_n_childdom(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_n_childdom") &
      &  result(n_childdom)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: n_childdom
    n_childdom  = state%comin_descrdata_domain_data(jg)%n_childdom
  END FUNCTION comin_descrdata_get_domain_n_childdom
 
  FUNCTION comin_descrdata_get_domain_dom_start(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_dom_start") &
      &  result(dom_start)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    REAL(wp)                      :: dom_start
    dom_start  = state%comin_descrdata_domain_data(jg)%dom_start
  END FUNCTION comin_descrdata_get_domain_dom_start
 
  FUNCTION comin_descrdata_get_domain_dom_end(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_dom_end") &
      &  result(dom_end)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    REAL(wp)                      :: dom_end
    dom_end  = state%comin_descrdata_domain_data(jg)%dom_end
  END FUNCTION comin_descrdata_get_domain_dom_end
 
  FUNCTION comin_descrdata_get_domain_nlev(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_nlev") &
      &  result(nlev)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: nlev
    nlev  = state%comin_descrdata_domain_data(jg)%nlev
  END FUNCTION comin_descrdata_get_domain_nlev
 
  FUNCTION comin_descrdata_get_domain_nshift(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_nshift") &
      &  result(nshift)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: nshift
    nshift  = state%comin_descrdata_domain_data(jg)%nshift
  END FUNCTION comin_descrdata_get_domain_nshift
 
  FUNCTION comin_descrdata_get_domain_nshift_total(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_nshift_total") &
      &  result(nshift_total)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: nshift_total
    nshift_total  = state%comin_descrdata_domain_data(jg)%nshift_total
  END FUNCTION comin_descrdata_get_domain_nshift_total
 
  FUNCTION comin_descrdata_get_domain_cells_ncells(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_ncells") &
      &  result(ncells)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: ncells
    ncells  = state%comin_descrdata_domain_data(jg)%cells%ncells
  END FUNCTION comin_descrdata_get_domain_cells_ncells
 
  FUNCTION comin_descrdata_get_domain_cells_ncells_global(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_ncells_global") &
      &  result(ncells_global)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: ncells_global
    ncells_global  = state%comin_descrdata_domain_data(jg)%cells%ncells_global
  END FUNCTION comin_descrdata_get_domain_cells_ncells_global
 
  FUNCTION comin_descrdata_get_domain_cells_nblks(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_nblks") &
      &  result(nblks)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: nblks
    nblks  = state%comin_descrdata_domain_data(jg)%cells%nblks
  END FUNCTION comin_descrdata_get_domain_cells_nblks
 
  FUNCTION comin_descrdata_get_domain_cells_max_connectivity(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_max_connectivity") &
      &  result(max_connectivity)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: max_connectivity
    max_connectivity  = state%comin_descrdata_domain_data(jg)%cells%max_connectivity
  END FUNCTION comin_descrdata_get_domain_cells_max_connectivity
 
  SUBROUTINE comin_descrdata_get_domain_cells_num_edges(jg, num_edges, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_num_edges")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: num_edges
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%num_edges
    CALL comin_descrdata_to_c(ptr, num_edges, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_num_edges
 
  SUBROUTINE comin_descrdata_get_domain_cells_refin_ctrl(jg, refin_ctrl, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_refin_ctrl")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: refin_ctrl
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%refin_ctrl
    CALL comin_descrdata_to_c(ptr, refin_ctrl, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_refin_ctrl
 
  SUBROUTINE comin_descrdata_get_domain_cells_start_index(jg, start_index, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_start_index")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: start_index
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(C_INT), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%start_index
    CALL comin_descrdata_to_c(ptr, start_index, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_start_index
 
  SUBROUTINE comin_descrdata_get_domain_cells_end_index(jg, end_index, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_end_index")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: end_index
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(C_INT), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%end_index
    CALL comin_descrdata_to_c(ptr, end_index, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_end_index
 
  SUBROUTINE comin_descrdata_get_domain_cells_start_block(jg, start_block, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_start_block")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: start_block
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(C_INT), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%start_block
    CALL comin_descrdata_to_c(ptr, start_block, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_start_block
 
  SUBROUTINE comin_descrdata_get_domain_cells_end_block(jg, end_block, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_end_block")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: end_block
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(C_INT), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%end_block
    CALL comin_descrdata_to_c(ptr, end_block, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_end_block
 
  SUBROUTINE comin_descrdata_get_domain_cells_child_id(jg, child_id, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_child_id")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: child_id
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%child_id
    CALL comin_descrdata_to_c(ptr, child_id, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_child_id
 
  SUBROUTINE comin_descrdata_get_domain_cells_parent_glb_idx(jg, parent_glb_idx, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_parent_glb_idx")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: parent_glb_idx
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%parent_glb_idx
    CALL comin_descrdata_to_c(ptr, parent_glb_idx, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_parent_glb_idx
 
  SUBROUTINE comin_descrdata_get_domain_cells_parent_glb_blk(jg, parent_glb_blk, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_parent_glb_blk")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: parent_glb_blk
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%parent_glb_blk
    CALL comin_descrdata_to_c(ptr, parent_glb_blk, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_parent_glb_blk
 
  SUBROUTINE comin_descrdata_get_domain_cells_vertex_idx(jg, vertex_idx, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_vertex_idx")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: vertex_idx
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%vertex_idx
    CALL comin_descrdata_to_c(ptr, vertex_idx, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_vertex_idx
 
  SUBROUTINE comin_descrdata_get_domain_cells_vertex_blk(jg, vertex_blk, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_vertex_blk")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: vertex_blk
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%vertex_blk
    CALL comin_descrdata_to_c(ptr, vertex_blk, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_vertex_blk
 
  SUBROUTINE comin_descrdata_get_domain_cells_neighbor_idx(jg, neighbor_idx, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_neighbor_idx")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: neighbor_idx
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%neighbor_idx
    CALL comin_descrdata_to_c(ptr, neighbor_idx, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_neighbor_idx
 
  SUBROUTINE comin_descrdata_get_domain_cells_neighbor_blk(jg, neighbor_blk, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_neighbor_blk")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: neighbor_blk
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%neighbor_blk
    CALL comin_descrdata_to_c(ptr, neighbor_blk, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_neighbor_blk
 
  SUBROUTINE comin_descrdata_get_domain_cells_edge_idx(jg, edge_idx, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_edge_idx")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: edge_idx
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%edge_idx
    CALL comin_descrdata_to_c(ptr, edge_idx, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_edge_idx
 
  SUBROUTINE comin_descrdata_get_domain_cells_edge_blk(jg, edge_blk, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_edge_blk")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: edge_blk
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%edge_blk
    CALL comin_descrdata_to_c(ptr, edge_blk, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_edge_blk
 
  SUBROUTINE comin_descrdata_get_domain_cells_clon(jg, clon, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_clon")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: clon
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    REAL(wp), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%clon
    CALL comin_descrdata_to_c(ptr, clon, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_clon
 
  SUBROUTINE comin_descrdata_get_domain_cells_clat(jg, clat, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_clat")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: clat
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    REAL(wp), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%clat
    CALL comin_descrdata_to_c(ptr, clat, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_clat
 
  SUBROUTINE comin_descrdata_get_domain_cells_area(jg, area, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_area")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: area
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    REAL(wp), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%area
    CALL comin_descrdata_to_c(ptr, area, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_area
 
  SUBROUTINE comin_descrdata_get_domain_cells_hhl(jg, hhl, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_hhl")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: hhl
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    REAL(wp), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%hhl
    CALL comin_descrdata_to_c(ptr, hhl, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_hhl
 
  SUBROUTINE comin_descrdata_get_domain_cells_e_bln_c_s(jg, e_bln_c_s, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_e_bln_c_s")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: e_bln_c_s
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    REAL(wp), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%e_bln_c_s
    CALL comin_descrdata_to_c(ptr, e_bln_c_s, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_e_bln_c_s
 
  SUBROUTINE comin_descrdata_get_domain_cells_geofac_div(jg, geofac_div, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_geofac_div")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: geofac_div
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    REAL(wp), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%geofac_div
    CALL comin_descrdata_to_c(ptr, geofac_div, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_geofac_div
 
  SUBROUTINE comin_descrdata_get_domain_cells_geofac_n2s(jg, geofac_n2s, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_geofac_n2s")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: geofac_n2s
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    REAL(wp), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%geofac_n2s
    CALL comin_descrdata_to_c(ptr, geofac_n2s, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_geofac_n2s
 
  SUBROUTINE comin_descrdata_get_domain_cells_geofac_grg(jg, geofac_grg, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_geofac_grg")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: geofac_grg
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(4)
    !
    REAL(wp), POINTER :: ptr(:,:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%geofac_grg
    CALL comin_descrdata_to_c(ptr, geofac_grg, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_geofac_grg
 
  SUBROUTINE comin_descrdata_get_domain_cells_rbf_vec_idx(jg, rbf_vec_idx, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_rbf_vec_idx")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: rbf_vec_idx
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%rbf_vec_idx
    CALL comin_descrdata_to_c(ptr, rbf_vec_idx, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_rbf_vec_idx
 
  SUBROUTINE comin_descrdata_get_domain_cells_rbf_vec_blk(jg, rbf_vec_blk, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_rbf_vec_blk")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: rbf_vec_blk
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%rbf_vec_blk
    CALL comin_descrdata_to_c(ptr, rbf_vec_blk, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_rbf_vec_blk
 
  SUBROUTINE comin_descrdata_get_domain_cells_rbf_vec_stencil(jg, rbf_vec_stencil, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_rbf_vec_stencil")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: rbf_vec_stencil
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%rbf_vec_stencil
    CALL comin_descrdata_to_c(ptr, rbf_vec_stencil, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_rbf_vec_stencil
 
  SUBROUTINE comin_descrdata_get_domain_cells_rbf_vec_coeff(jg, rbf_vec_coeff, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_rbf_vec_coeff")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: rbf_vec_coeff
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(4)
    !
    REAL(wp), POINTER :: ptr(:,:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%rbf_vec_coeff
    CALL comin_descrdata_to_c(ptr, rbf_vec_coeff, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_rbf_vec_coeff
 
  SUBROUTINE comin_descrdata_get_domain_cells_glb_index(jg, glb_index, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_glb_index")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: glb_index
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(C_INT), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%glb_index
    CALL comin_descrdata_to_c(ptr, glb_index, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_glb_index
 
  SUBROUTINE comin_descrdata_get_domain_cells_decomp_domain(jg, decomp_domain, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_cells_decomp_domain")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: decomp_domain
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%cells%decomp_domain
    CALL comin_descrdata_to_c(ptr, decomp_domain, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_cells_decomp_domain
 
  FUNCTION comin_descrdata_get_domain_verts_nverts(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_nverts") &
      &  result(nverts)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: nverts
    nverts  = state%comin_descrdata_domain_data(jg)%verts%nverts
  END FUNCTION comin_descrdata_get_domain_verts_nverts
 
  FUNCTION comin_descrdata_get_domain_verts_nverts_global(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_nverts_global") &
      &  result(nverts_global)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: nverts_global
    nverts_global  = state%comin_descrdata_domain_data(jg)%verts%nverts_global
  END FUNCTION comin_descrdata_get_domain_verts_nverts_global
 
  FUNCTION comin_descrdata_get_domain_verts_nblks(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_nblks") &
      &  result(nblks)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: nblks
    nblks  = state%comin_descrdata_domain_data(jg)%verts%nblks
  END FUNCTION comin_descrdata_get_domain_verts_nblks
 
  SUBROUTINE comin_descrdata_get_domain_verts_num_edges(jg, num_edges, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_num_edges")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: num_edges
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%num_edges
    CALL comin_descrdata_to_c(ptr, num_edges, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_num_edges
 
  SUBROUTINE comin_descrdata_get_domain_verts_refin_ctrl(jg, refin_ctrl, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_refin_ctrl")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: refin_ctrl
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%refin_ctrl
    CALL comin_descrdata_to_c(ptr, refin_ctrl, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_refin_ctrl
 
  SUBROUTINE comin_descrdata_get_domain_verts_start_index(jg, start_index, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_start_index")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: start_index
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(C_INT), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%start_index
    CALL comin_descrdata_to_c(ptr, start_index, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_start_index
 
  SUBROUTINE comin_descrdata_get_domain_verts_end_index(jg, end_index, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_end_index")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: end_index
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(C_INT), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%end_index
    CALL comin_descrdata_to_c(ptr, end_index, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_end_index
 
  SUBROUTINE comin_descrdata_get_domain_verts_start_block(jg, start_block, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_start_block")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: start_block
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(C_INT), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%start_block
    CALL comin_descrdata_to_c(ptr, start_block, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_start_block
 
  SUBROUTINE comin_descrdata_get_domain_verts_end_block(jg, end_block, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_end_block")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: end_block
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(C_INT), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%end_block
    CALL comin_descrdata_to_c(ptr, end_block, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_end_block
 
  SUBROUTINE comin_descrdata_get_domain_verts_neighbor_blk(jg, neighbor_blk, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_neighbor_blk")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: neighbor_blk
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%neighbor_blk
    CALL comin_descrdata_to_c(ptr, neighbor_blk, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_neighbor_blk
 
  SUBROUTINE comin_descrdata_get_domain_verts_neighbor_idx(jg, neighbor_idx, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_neighbor_idx")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: neighbor_idx
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%neighbor_idx
    CALL comin_descrdata_to_c(ptr, neighbor_idx, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_neighbor_idx
 
  SUBROUTINE comin_descrdata_get_domain_verts_cell_idx(jg, cell_idx, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_cell_idx")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: cell_idx
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%cell_idx
    CALL comin_descrdata_to_c(ptr, cell_idx, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_cell_idx
 
  SUBROUTINE comin_descrdata_get_domain_verts_cell_blk(jg, cell_blk, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_cell_blk")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: cell_blk
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%cell_blk
    CALL comin_descrdata_to_c(ptr, cell_blk, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_cell_blk
 
  SUBROUTINE comin_descrdata_get_domain_verts_edge_idx(jg, edge_idx, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_edge_idx")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: edge_idx
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%edge_idx
    CALL comin_descrdata_to_c(ptr, edge_idx, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_edge_idx
 
  SUBROUTINE comin_descrdata_get_domain_verts_edge_blk(jg, edge_blk, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_edge_blk")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: edge_blk
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%edge_blk
    CALL comin_descrdata_to_c(ptr, edge_blk, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_edge_blk
 
  SUBROUTINE comin_descrdata_get_domain_verts_vlon(jg, vlon, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_vlon")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: vlon
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    REAL(wp), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%vlon
    CALL comin_descrdata_to_c(ptr, vlon, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_vlon
 
  SUBROUTINE comin_descrdata_get_domain_verts_vlat(jg, vlat, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_vlat")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: vlat
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    REAL(wp), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%vlat
    CALL comin_descrdata_to_c(ptr, vlat, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_vlat
 
  SUBROUTINE comin_descrdata_get_domain_verts_rbf_vec_idx(jg, rbf_vec_idx, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_rbf_vec_idx")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: rbf_vec_idx
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%rbf_vec_idx
    CALL comin_descrdata_to_c(ptr, rbf_vec_idx, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_rbf_vec_idx
 
  SUBROUTINE comin_descrdata_get_domain_verts_rbf_vec_blk(jg, rbf_vec_blk, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_rbf_vec_blk")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: rbf_vec_blk
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%rbf_vec_blk
    CALL comin_descrdata_to_c(ptr, rbf_vec_blk, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_rbf_vec_blk
 
  SUBROUTINE comin_descrdata_get_domain_verts_rbf_vec_stencil(jg, rbf_vec_stencil, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_rbf_vec_stencil")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: rbf_vec_stencil
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%rbf_vec_stencil
    CALL comin_descrdata_to_c(ptr, rbf_vec_stencil, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_rbf_vec_stencil
 
  SUBROUTINE comin_descrdata_get_domain_verts_rbf_vec_coeff(jg, rbf_vec_coeff, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_rbf_vec_coeff")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: rbf_vec_coeff
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(4)
    !
    REAL(wp), POINTER :: ptr(:,:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%rbf_vec_coeff
    CALL comin_descrdata_to_c(ptr, rbf_vec_coeff, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_rbf_vec_coeff
 
  SUBROUTINE comin_descrdata_get_domain_verts_glb_index(jg, glb_index, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_glb_index")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: glb_index
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(C_INT), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%glb_index
    CALL comin_descrdata_to_c(ptr, glb_index, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_glb_index
 
  SUBROUTINE comin_descrdata_get_domain_verts_decomp_domain(jg, decomp_domain, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_verts_decomp_domain")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: decomp_domain
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%verts%decomp_domain
    CALL comin_descrdata_to_c(ptr, decomp_domain, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_verts_decomp_domain
 
  FUNCTION comin_descrdata_get_domain_edges_nedges(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_nedges") &
      &  result(nedges)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: nedges
    nedges  = state%comin_descrdata_domain_data(jg)%edges%nedges
  END FUNCTION comin_descrdata_get_domain_edges_nedges
 
  FUNCTION comin_descrdata_get_domain_edges_nedges_global(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_nedges_global") &
      &  result(nedges_global)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: nedges_global
    nedges_global  = state%comin_descrdata_domain_data(jg)%edges%nedges_global
  END FUNCTION comin_descrdata_get_domain_edges_nedges_global
 
  FUNCTION comin_descrdata_get_domain_edges_nblks(jg) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_nblks") &
      &  result(nblks)
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    INTEGER(C_INT)                      :: nblks
    nblks  = state%comin_descrdata_domain_data(jg)%edges%nblks
  END FUNCTION comin_descrdata_get_domain_edges_nblks
 
  SUBROUTINE comin_descrdata_get_domain_edges_refin_ctrl(jg, refin_ctrl, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_refin_ctrl")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: refin_ctrl
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%refin_ctrl
    CALL comin_descrdata_to_c(ptr, refin_ctrl, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_refin_ctrl
 
  SUBROUTINE comin_descrdata_get_domain_edges_start_index(jg, start_index, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_start_index")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: start_index
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(C_INT), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%start_index
    CALL comin_descrdata_to_c(ptr, start_index, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_start_index
 
  SUBROUTINE comin_descrdata_get_domain_edges_end_index(jg, end_index, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_end_index")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: end_index
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(C_INT), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%end_index
    CALL comin_descrdata_to_c(ptr, end_index, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_end_index
 
  SUBROUTINE comin_descrdata_get_domain_edges_start_block(jg, start_block, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_start_block")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: start_block
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(C_INT), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%start_block
    CALL comin_descrdata_to_c(ptr, start_block, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_start_block
 
  SUBROUTINE comin_descrdata_get_domain_edges_end_block(jg, end_block, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_end_block")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: end_block
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(C_INT), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%end_block
    CALL comin_descrdata_to_c(ptr, end_block, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_end_block
 
  SUBROUTINE comin_descrdata_get_domain_edges_child_id(jg, child_id, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_child_id")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: child_id
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%child_id
    CALL comin_descrdata_to_c(ptr, child_id, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_child_id
 
  SUBROUTINE comin_descrdata_get_domain_edges_parent_glb_idx(jg, parent_glb_idx, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_parent_glb_idx")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: parent_glb_idx
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%parent_glb_idx
    CALL comin_descrdata_to_c(ptr, parent_glb_idx, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_parent_glb_idx
 
  SUBROUTINE comin_descrdata_get_domain_edges_parent_glb_blk(jg, parent_glb_blk, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_parent_glb_blk")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: parent_glb_blk
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%parent_glb_blk
    CALL comin_descrdata_to_c(ptr, parent_glb_blk, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_parent_glb_blk
 
  SUBROUTINE comin_descrdata_get_domain_edges_cell_idx(jg, cell_idx, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_cell_idx")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: cell_idx
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%cell_idx
    CALL comin_descrdata_to_c(ptr, cell_idx, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_cell_idx
 
  SUBROUTINE comin_descrdata_get_domain_edges_cell_blk(jg, cell_blk, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_cell_blk")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: cell_blk
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%cell_blk
    CALL comin_descrdata_to_c(ptr, cell_blk, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_cell_blk
 
  SUBROUTINE comin_descrdata_get_domain_edges_vertex_idx(jg, vertex_idx, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_vertex_idx")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: vertex_idx
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%vertex_idx
    CALL comin_descrdata_to_c(ptr, vertex_idx, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_vertex_idx
 
  SUBROUTINE comin_descrdata_get_domain_edges_vertex_blk(jg, vertex_blk, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_vertex_blk")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: vertex_blk
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%vertex_blk
    CALL comin_descrdata_to_c(ptr, vertex_blk, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_vertex_blk
 
  SUBROUTINE comin_descrdata_get_domain_edges_elon(jg, elon, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_elon")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: elon
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    REAL(wp), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%elon
    CALL comin_descrdata_to_c(ptr, elon, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_elon
 
  SUBROUTINE comin_descrdata_get_domain_edges_elat(jg, elat, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_elat")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: elat
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    REAL(wp), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%elat
    CALL comin_descrdata_to_c(ptr, elat, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_elat
 
  SUBROUTINE comin_descrdata_get_domain_edges_tangent_orientation(jg, tangent_orientation, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_tangent_orientation")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: tangent_orientation
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    REAL(wp), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%tangent_orientation
    CALL comin_descrdata_to_c(ptr, tangent_orientation, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_tangent_orientation
 
  SUBROUTINE comin_descrdata_get_domain_edges_nudgecoeff_e(jg, nudgecoeff_e, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_nudgecoeff_e")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: nudgecoeff_e
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    REAL(wp), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%nudgecoeff_e
    CALL comin_descrdata_to_c(ptr, nudgecoeff_e, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_nudgecoeff_e
 
  SUBROUTINE comin_descrdata_get_domain_edges_rbf_vec_idx(jg, rbf_vec_idx, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_rbf_vec_idx")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: rbf_vec_idx
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%rbf_vec_idx
    CALL comin_descrdata_to_c(ptr, rbf_vec_idx, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_rbf_vec_idx
 
  SUBROUTINE comin_descrdata_get_domain_edges_rbf_vec_blk(jg, rbf_vec_blk, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_rbf_vec_blk")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: rbf_vec_blk
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%rbf_vec_blk
    CALL comin_descrdata_to_c(ptr, rbf_vec_blk, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_rbf_vec_blk
 
  SUBROUTINE comin_descrdata_get_domain_edges_rbf_vec_stencil(jg, rbf_vec_stencil, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_rbf_vec_stencil")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: rbf_vec_stencil
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%rbf_vec_stencil
    CALL comin_descrdata_to_c(ptr, rbf_vec_stencil, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_rbf_vec_stencil
 
  SUBROUTINE comin_descrdata_get_domain_edges_rbf_vec_coeff(jg, rbf_vec_coeff, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_rbf_vec_coeff")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: rbf_vec_coeff
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    REAL(wp), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%rbf_vec_coeff
    CALL comin_descrdata_to_c(ptr, rbf_vec_coeff, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_rbf_vec_coeff
 
  SUBROUTINE comin_descrdata_get_domain_edges_c_lin_e(jg, c_lin_e, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_c_lin_e")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: c_lin_e
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(3)
    !
    REAL(wp), POINTER :: ptr(:,:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%c_lin_e
    CALL comin_descrdata_to_c(ptr, c_lin_e, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_c_lin_e
 
  SUBROUTINE comin_descrdata_get_domain_edges_glb_index(jg, glb_index, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_glb_index")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: glb_index
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(1)
    !
    INTEGER(C_INT), POINTER :: ptr(:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%glb_index
    CALL comin_descrdata_to_c(ptr, glb_index, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_glb_index
 
  SUBROUTINE comin_descrdata_get_domain_edges_decomp_domain(jg, decomp_domain, arr_size) &
      &  BIND(C, NAME="comin_descrdata_get_domain_edges_decomp_domain")
    INTEGER(C_INT), INTENT(IN), VALUE  :: jg
    TYPE(C_PTR),    INTENT(OUT) :: decomp_domain
    INTEGER(C_INT), INTENT(INOUT) :: arr_size(2)
    !
    INTEGER(C_INT), POINTER :: ptr(:,:)
    ptr =>state%comin_descrdata_domain_data(jg)%edges%decomp_domain
    CALL comin_descrdata_to_c(ptr, decomp_domain, arr_size)
  END SUBROUTINE comin_descrdata_get_domain_edges_decomp_domain
 
END MODULE comin_descrdata_c_access