1 ! Copyright (c) 2017-2022, Lawrence Livermore National Security, LLC and other CEED contributors. 2 ! All Rights Reserved. See the top-level LICENSE and NOTICE files for details. 3 ! 4 ! SPDX-License-Identifier: BSD-2-Clause 5 ! 6 ! This file is part of CEED: http://github.com/ceed 7 ! 8 !----------------------------------------------------------------------- 9 ! 10 !----------------------------------------------------------------------- 11 ! Dummy parameters for CEED Fortran 77+ stubs 12 !----------------------------------------------------------------------- 13 14 !----------------------------------------------------------------------- 15 ! CeedMemType 16 !----------------------------------------------------------------------- 17 18 integer ceed_mem_host 19 parameter(ceed_mem_host = 0) 20 21 integer ceed_mem_device 22 parameter(ceed_mem_device = 1) 23 24 !----------------------------------------------------------------------- 25 ! CeedScalarType 26 !----------------------------------------------------------------------- 27 28 integer ceed_scalar_fp32 29 parameter(ceed_scalar_fp32 = 0) 30 31 integer ceed_scalar_fp64 32 parameter(ceed_scalar_fp64 = 1) 33 34 !----------------------------------------------------------------------- 35 ! CeedCopyMode 36 !----------------------------------------------------------------------- 37 38 integer ceed_copy_values 39 parameter(ceed_copy_values = 0) 40 41 integer ceed_use_pointer 42 parameter(ceed_use_pointer = 1) 43 44 integer ceed_own_pointer 45 parameter(ceed_own_pointer = 2) 46 47 !----------------------------------------------------------------------- 48 ! CeedRequest related 49 !----------------------------------------------------------------------- 50 51 integer ceed_request_immediate 52 parameter(ceed_request_immediate = -1) 53 54 integer ceed_request_ordered 55 parameter(ceed_request_ordered = -2) 56 57 !----------------------------------------------------------------------- 58 ! Null 59 !----------------------------------------------------------------------- 60 61 integer ceed_null 62 parameter(ceed_null = -3) 63 64 !----------------------------------------------------------------------- 65 ! CeedNormType 66 !----------------------------------------------------------------------- 67 68 integer ceed_norm_1 69 parameter(ceed_norm_1 = 0 ) 70 71 integer ceed_norm_2 72 parameter(ceed_norm_2 = 1 ) 73 74 integer ceed_norm_max 75 parameter(ceed_norm_max = 2 ) 76 77 !----------------------------------------------------------------------- 78 ! Ceed Strides Constant 79 !----------------------------------------------------------------------- 80 81 integer ceed_strides_backend 82 parameter(ceed_strides_backend = -4) 83 84 !----------------------------------------------------------------------- 85 ! CeedTransposeMode 86 !----------------------------------------------------------------------- 87 88 integer ceed_notranspose 89 parameter(ceed_notranspose = 0) 90 91 integer ceed_transpose 92 parameter(ceed_transpose = 1) 93 94 !----------------------------------------------------------------------- 95 ! CeedEvalMode 96 !----------------------------------------------------------------------- 97 98 integer ceed_eval_none 99 parameter(ceed_eval_none = 0 ) 100 101 integer ceed_eval_interp 102 parameter(ceed_eval_interp = 1 ) 103 104 integer ceed_eval_grad 105 parameter(ceed_eval_grad = 2 ) 106 107 integer ceed_eval_div 108 parameter(ceed_eval_div = 4 ) 109 110 integer ceed_eval_curl 111 parameter(ceed_eval_curl = 8 ) 112 113 integer ceed_eval_weight 114 parameter(ceed_eval_weight = 16) 115 116 !----------------------------------------------------------------------- 117 ! CeedQuadMode 118 !----------------------------------------------------------------------- 119 120 integer ceed_gauss 121 parameter(ceed_gauss = 0) 122 123 integer ceed_gauss_lobatto 124 parameter(ceed_gauss_lobatto = 1) 125 126 !----------------------------------------------------------------------- 127 ! CeedElemTopology 128 !----------------------------------------------------------------------- 129 130 integer ceed_line 131 parameter(ceed_line = int(z'10000') ) 132 133 integer ceed_triangle 134 parameter(ceed_triangle = int(z'20001') ) 135 136 integer ceed_quad 137 parameter(ceed_quad = int(z'20002') ) 138 139 integer ceed_tet 140 parameter(ceed_tet = int(z'30003') ) 141 142 integer ceed_pryamid 143 parameter(ceed_pryamid = int(z'30004') ) 144 145 integer ceed_prism 146 parameter(ceed_prism = int(z'30005') ) 147 148 integer ceed_hex 149 parameter(ceed_hex = int(z'30006') ) 150 151 !----------------------------------------------------------------------- 152 ! Operator and OperatorField Constants 153 !----------------------------------------------------------------------- 154 155 integer ceed_vector_active 156 parameter(ceed_vector_active = -5) 157 158 integer ceed_vector_none 159 parameter(ceed_vector_none = -6) 160 161 integer ceed_elemrestriction_none 162 parameter(ceed_elemrestriction_none = -7) 163 164 integer ceed_basis_none 165 parameter(ceed_basis_none = -8) 166 167 integer ceed_qfunction_none 168 parameter(ceed_qfunction_none = -9) 169 170 ! -*- fortran-mode -*- 171