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 ! OperatorFieldConstants 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