ceedf.h (a7dfafedf609254b38e08b1a69b8cef563b749ef) ceedf.h (10da579b357ab6aaa852a07c2b2e90dcf00fcb57)
1c
2c Dummy parameters for CEED Fortran 77 stubs
3c
1!
2! Dummy parameters for CEED Fortran 77 stubs
3!
4
4
5c
6c CeedMemType
7c
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
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
15c
16c CeedCopyMode
17c
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
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
28c
29c CeedRequest related
30c
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
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
38c
39c Null
40c
38!
39! Null
40!
41
42 integer ceed_null
43 parameter(ceed_null = -3)
44
41
42 integer ceed_null
43 parameter(ceed_null = -3)
44
45c
46c CeedTransposeMode
47c
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
48
49 integer ceed_notranspose
50 parameter(ceed_notranspose = 0)
51
52 integer ceed_transpose
53 parameter(ceed_transpose = 1)
54
55c
56c CeedEvalMode
57c
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
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
77c
78c CeedQualMode
79c
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
80
81 integer ceed_gauss
82 parameter(ceed_gauss = 0)
83
84 integer ceed_gauss_lobatto
85 parameter(ceed_gauss_lobatto = 1)
86
87c
88c CeedElemTopology
89c
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

--- 6 unchanged lines hidden (view full) ---

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

--- 6 unchanged lines hidden (view full) ---

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
112c
113c OperatorFieldConstants
114c
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)
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)