yac_yaxt_test_util.F90

Go to the documentation of this file.

! Copyright (c) 2026 The YAC Authors
!
! SPDX-License-Identifier: BSD-3-Clause
 
module yac_yaxt_test_util
 
  implicit none
 
  private
 
  public :: utest_yaxt_init, utest_yaxt_finalize
 
  interface
 
    ! initialise yaxt using MPI_COMM_WORLD
    subroutine utest_yaxt_init() &
      bind(c, name='utest_yaxt_init')
    end subroutine utest_yaxt_init
 
    ! finalise yaxt
    subroutine utest_yaxt_finalize() &
      bind(c, name='utest_yaxt_finalize')
    end subroutine utest_yaxt_finalize
 
  end interface
 
end module yac_yaxt_test_util