1 c 2 c Dummy parameters for CEED Fortran 77 stubs 3 c 4 c 5 c CeedMemType 6 c 7 integer ceed_mem_host 8 parameter(ceed_mem_host = 0) 9 10 integer ceed_mem_device 11 parameter(ceed_mem_device = 1) 12 c 13 c CeedCopyMode 14 c 15 integer ceed_copy_values 16 parameter(ceed_copy_values = 0) 17 18 integer ceed_use_pointer 19 parameter(ceed_use_pointer = 1) 20 21 integer ceed_own_pointer 22 parameter(ceed_own_pointer = 2) 23 c 24 c CeedRequest related 25 c 26 integer ceed_request_immediate 27 parameter(ceed_request_immediate = -1) 28 29 integer ceed_request_ordered 30 parameter(ceed_request_ordered = -2) 31 c 32 c Null 33 c 34 integer ceed_null 35 parameter(ceed_null = -3) 36 c 37 c CeedTransposeMode 38 c 39 integer ceed_notranspose 40 parameter(ceed_notranspose = 0) 41 42 integer ceed_transpose 43 parameter(ceed_transpose = 1) 44 c 45 c CeedEvalMode 46 c 47 integer ceed_eval_none 48 parameter(ceed_eval_none = 0 ) 49 50 integer ceed_eval_interp 51 parameter(ceed_eval_interp = 1 ) 52 53 integer ceed_eval_grad 54 parameter(ceed_eval_grad = 2 ) 55 56 integer ceed_eval_div 57 parameter(ceed_eval_div = 4 ) 58 59 integer ceed_eval_curl 60 parameter(ceed_eval_curl = 8 ) 61 62 integer ceed_eval_weight 63 parameter(ceed_eval_weight = 16) 64 c 65 c CeedQualMode 66 c 67 integer ceed_gauss 68 parameter(ceed_gauss = 0) 69 70 integer ceed_gauss_lobatto 71 parameter(ceed_gauss_lobatto = 1) 72 c 73 c CeedElemRestriction 74 c 75 integer ceed_elemrestrict_identity 76 parameter(ceed_elemrestrict_identity = -1) 77