1 c 2 c Dummy parameters for CEED Fortran 77 stubs 3 c 4 c 5 c Null 6 c 7 integer null 8 parameter(null = -2) 9 c 10 c CeedMemType 11 c 12 integer ceed_mem_host 13 parameter(ceed_mem_host = 0) 14 15 integer ceed_mem_device 16 parameter(ceed_mem_device = 1) 17 c 18 c CeedCopyMode 19 c 20 integer ceed_copy_values 21 parameter(ceed_copy_values = 0) 22 23 integer ceed_use_pointer 24 parameter(ceed_use_pointer = 1) 25 26 integer ceed_own_pointer 27 parameter(ceed_own_pointer = 2) 28 c 29 c CeedRequest related 30 c 31 integer ceed_request_immediate 32 parameter(ceed_request_immediate = -1) 33 34 integer ceed_request_ordered 35 parameter(ceed_request_ordered = -2) 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