! Copyright (c) 2017-2022, Lawrence Livermore National Security, LLC and other CEED contributors.
! All Rights Reserved. See the top-level LICENSE and NOTICE files for details.
!
! SPDX-License-Identifier: BSD-2-Clause
!
! This file is part of CEED: http:!
!-----------------------------------------------------------------------
!
!-----------------------------------------------------------------------
! Dummy parameters for CEED Fortran 77+ stubs
!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
! CeedMemType
!-----------------------------------------------------------------------
integer ceed_mem_host
parameter(ceed_mem_host = 0)
integer ceed_mem_device
parameter(ceed_mem_device = 1)
!-----------------------------------------------------------------------
! CeedScalarType
!-----------------------------------------------------------------------
integer ceed_scalar_fp32
parameter(ceed_scalar_fp32 = 0)
integer ceed_scalar_fp64
parameter(ceed_scalar_fp64 = 1)
!-----------------------------------------------------------------------
! CeedCopyMode
!-----------------------------------------------------------------------
integer ceed_copy_values
parameter(ceed_copy_values = 0)
integer ceed_use_pointer
parameter(ceed_use_pointer = 1)
integer ceed_own_pointer
parameter(ceed_own_pointer = 2)
!-----------------------------------------------------------------------
! CeedRequest related
!-----------------------------------------------------------------------
integer ceed_request_immediate
parameter(ceed_request_immediate = -1)
integer ceed_request_ordered
parameter(ceed_request_ordered = -2)
!-----------------------------------------------------------------------
! Null
!-----------------------------------------------------------------------
integer ceed_null
parameter(ceed_null = -3)
!-----------------------------------------------------------------------
! CeedNormType
!-----------------------------------------------------------------------
integer ceed_norm_1
parameter(ceed_norm_1 = 0 )
integer ceed_norm_2
parameter(ceed_norm_2 = 1 )
integer ceed_norm_max
parameter(ceed_norm_max = 2 )
!-----------------------------------------------------------------------
! Ceed Strides Constant
!-----------------------------------------------------------------------
integer ceed_strides_backend
parameter(ceed_strides_backend = -4)
!-----------------------------------------------------------------------
! CeedTransposeMode
!-----------------------------------------------------------------------
integer ceed_notranspose
parameter(ceed_notranspose = 0)
integer ceed_transpose
parameter(ceed_transpose = 1)
!-----------------------------------------------------------------------
! CeedEvalMode
!-----------------------------------------------------------------------
integer ceed_eval_none
parameter(ceed_eval_none = 0 )
integer ceed_eval_interp
parameter(ceed_eval_interp = 1 )
integer ceed_eval_grad
parameter(ceed_eval_grad = 2 )
integer ceed_eval_div
parameter(ceed_eval_div = 4 )
integer ceed_eval_curl
parameter(ceed_eval_curl = 8 )
integer ceed_eval_weight
parameter(ceed_eval_weight = 16)
!-----------------------------------------------------------------------
! CeedQuadMode
!-----------------------------------------------------------------------
integer ceed_gauss
parameter(ceed_gauss = 0)
integer ceed_gauss_lobatto
parameter(ceed_gauss_lobatto = 1)
!-----------------------------------------------------------------------
! CeedElemTopology
!-----------------------------------------------------------------------
integer ceed_line
parameter(ceed_line = int(z'10000') )
integer ceed_triangle
parameter(ceed_triangle = int(z'20001') )
integer ceed_quad
parameter(ceed_quad = int(z'20002') )
integer ceed_tet
parameter(ceed_tet = int(z'30003') )
integer ceed_pryamid
parameter(ceed_pryamid = int(z'30004') )
integer ceed_prism
parameter(ceed_prism = int(z'30005') )
integer ceed_hex
parameter(ceed_hex = int(z'30006') )
!-----------------------------------------------------------------------
! Operator and OperatorField Constants
!-----------------------------------------------------------------------
integer ceed_vector_active
parameter(ceed_vector_active = -5)
integer ceed_vector_none
parameter(ceed_vector_none = -6)
integer ceed_elemrestriction_none
parameter(ceed_elemrestriction_none = -7)
integer ceed_basis_none
parameter(ceed_basis_none = -8)
integer ceed_qfunction_none
parameter(ceed_qfunction_none = -9)
! -*- fortran-mode -*-