1 !----------------------------------------------------------------------- 2 ! Dummy parameters for CEED Fortran 77+ stubs 3 !----------------------------------------------------------------------- 4 5 !----------------------------------------------------------------------- 6 ! CeedMemType 7 !----------------------------------------------------------------------- 8 9 integer ceed_mem_host 10 parameter(ceed_mem_host = 0) 11 12 integer ceed_mem_device 13 parameter(ceed_mem_device = 1) 14 15 !----------------------------------------------------------------------- 16 ! CeedCopyMode 17 !----------------------------------------------------------------------- 18 19 integer ceed_copy_values 20 parameter(ceed_copy_values = 0) 21 22 integer ceed_use_pointer 23 parameter(ceed_use_pointer = 1) 24 25 integer ceed_own_pointer 26 parameter(ceed_own_pointer = 2) 27 28 !----------------------------------------------------------------------- 29 ! CeedRequest related 30 !----------------------------------------------------------------------- 31 32 integer ceed_request_immediate 33 parameter(ceed_request_immediate = -1) 34 35 integer ceed_request_ordered 36 parameter(ceed_request_ordered = -2) 37 38 !----------------------------------------------------------------------- 39 ! Null 40 !----------------------------------------------------------------------- 41 42 integer ceed_null 43 parameter(ceed_null = -3) 44 45 !----------------------------------------------------------------------- 46 ! CeedTransposeMode 47 !----------------------------------------------------------------------- 48 49 integer ceed_notranspose 50 parameter(ceed_notranspose = 0) 51 52 integer ceed_transpose 53 parameter(ceed_transpose = 1) 54 55 !----------------------------------------------------------------------- 56 ! CeedEvalMode 57 !----------------------------------------------------------------------- 58 59 integer ceed_eval_none 60 parameter(ceed_eval_none = 0 ) 61 62 integer ceed_eval_interp 63 parameter(ceed_eval_interp = 1 ) 64 65 integer ceed_eval_grad 66 parameter(ceed_eval_grad = 2 ) 67 68 integer ceed_eval_div 69 parameter(ceed_eval_div = 4 ) 70 71 integer ceed_eval_curl 72 parameter(ceed_eval_curl = 8 ) 73 74 integer ceed_eval_weight 75 parameter(ceed_eval_weight = 16) 76 77 !----------------------------------------------------------------------- 78 ! CeedQuadMode 79 !----------------------------------------------------------------------- 80 81 integer ceed_gauss 82 parameter(ceed_gauss = 0) 83 84 integer ceed_gauss_lobatto 85 parameter(ceed_gauss_lobatto = 1) 86 87 !----------------------------------------------------------------------- 88 ! CeedElemTopology 89 !----------------------------------------------------------------------- 90 91 integer ceed_line 92 parameter(ceed_line = X'10000' ) 93 94 integer ceed_triangle 95 parameter(ceed_triangle = X'20001' ) 96 97 integer ceed_quad 98 parameter(ceed_quad = X'20002' ) 99 100 integer ceed_tet 101 parameter(ceed_tet = X'30003' ) 102 103 integer ceed_pryamid 104 parameter(ceed_pryamid = X'30004' ) 105 106 integer ceed_prism 107 parameter(ceed_prism = X'30005' ) 108 109 integer ceed_hex 110 parameter(ceed_hex = X'30006' ) 111 112 !----------------------------------------------------------------------- 113 ! Operator and OperatorField Constants 114 !----------------------------------------------------------------------- 115 116 integer ceed_basis_collocated 117 parameter(ceed_basis_collocated = -1) 118 119 integer ceed_vector_active 120 parameter(ceed_vector_active = -1) 121 122 integer ceed_vector_none 123 parameter(ceed_vector_none = -2) 124 125 integer ceed_qfunction_none 126 parameter(ceed_qfunction_none = -1) 127