! 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://github.com/ceed
!
!-----------------------------------------------------------------------
!
!-----------------------------------------------------------------------
! 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 -*-