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