Nalu
Nalu: a generalized unstructured massively parallel low Mach flow code designed to support a variety of energy applications of interest (most notably Wind ECP) built on the Sierra Toolkit and Trilinos solver Tpetra/Epetra stack. The open source BSD, clause 3 license model has been chosen for the code base. See LICENSE for more information. http://NaluCFD.org
FORTRAN_Proto.h
Go to the documentation of this file.
1 /*------------------------------------------------------------------------*/
2 /* Copyright 2014 Sandia Corporation. */
3 /* This software is released under the license detailed */
4 /* in the file, LICENSE, which is located in the top-level Nalu */
5 /* directory structure */
6 /*------------------------------------------------------------------------*/
7 
8 
9 
10 #ifndef FORTRAN_Proto_h
11 #define FORTRAN_Proto_h
12 
13 #include <stk_util/util/Fortran.hpp>
14 
15 //------------------------------------------------------------------------------
16 //---------------------- WORKSET ALGORITHMS ------------------------------------
17 //------------------------------------------------------------------------------
18 
19 extern "C" void
20 SIERRA_FORTRAN( hex_scs_det ) ( const int* nelem,
21  const int* npe,
22  const int* nscs,
23  const double* coords,
24  double* area_vec);
25 
26 extern "C" void
27 SIERRA_FORTRAN( hex_scv_det ) ( const int* nelem,
28  const int* npe,
29  const int* nscv,
30  const double* coords,
31  double* volume,
32  double* error,
33  int *nerr);
34 
35 extern "C" void
36 SIERRA_FORTRAN( tet_scv_det ) ( const int* nelem,
37  const int* npe,
38  const int* nscv,
39  const double* coords,
40  double* volume,
41  double* error,
42  int *nerr);
43 
44 extern "C" void
45 SIERRA_FORTRAN( tet_scs_det ) ( const int* nelem,
46  const int* npe,
47  const int* nscs,
48  const double* coords,
49  double* area_vec);
50 
51 extern "C" void
52 SIERRA_FORTRAN( pyr_scs_det ) ( const int* nelem,
53  const int* npe,
54  const int* nscs,
55  const double* coords,
56  double* area_vec);
57 
58 extern "C" void
59 SIERRA_FORTRAN( pyr_scv_det ) ( const int* nelem,
60  const int* npe,
61  const int* nscv,
62  const double* coords,
63  double* volume,
64  double* error,
65  int *nerr);
66 
67 extern "C" void
68 SIERRA_FORTRAN( wed_scs_det ) ( const int* nelem,
69  const int* npe,
70  const int* nscs,
71  const double* coords,
72  double* area_vec);
73 
74 extern "C" void
75 SIERRA_FORTRAN( wed_scv_det ) ( const int* nelem,
76  const int* npe,
77  const int* nscv,
78  const double* coords,
79  double* volume,
80  double* error,
81  int *nerr);
82 
83 extern "C" void
84 SIERRA_FORTRAN( tri_scs_det ) ( const int* nelem,
85  const int* npe,
86  const int* nscs,
87  const double* coords,
88  double* area_vec);
89 
90 extern "C" void
91 SIERRA_FORTRAN( tri_scv_det ) ( const int* nelem,
92  const int* npe,
93  const int* nscv,
94  const double* coords,
95  double* volume,
96  double* error,
97  int *nerr);
98 
99 extern "C" void
100 SIERRA_FORTRAN( quad_scs_det ) ( const int* nelem,
101  const int* npe,
102  const int* nscs,
103  const double* coords,
104  double* area_vec);
105 
106 extern "C" void
107 SIERRA_FORTRAN( quad_scv_det ) ( const int* nelem,
108  const int* npe,
109  const int* nscv,
110  const double* coords,
111  double* volume,
112  double* error,
113  int *nerr);
114 
115 extern "C" void
116 SIERRA_FORTRAN( quad3d_scs_det ) ( const int* nelem,
117  const double* coords,
118  double* areav );
119 
120 extern "C" void
121 SIERRA_FORTRAN( tri3d_scs_det ) ( const int* nelem,
122  const int* npe,
123  const int* nint,
124  const double* coords,
125  double* areav );
126 
127 extern "C" void
128 SIERRA_FORTRAN( edge2d_scs_det ) ( const int* nelem,
129  const int* npe,
130  const int* nint,
131  const double* coords,
132  double* areav );
133 
134 extern "C" void
135 SIERRA_FORTRAN( hex_shape_fcn ) ( const int* npts,
136  const double* par_coords,
137  double* shape_fcn );
138 
139 extern "C" void
140 SIERRA_FORTRAN( hex_derivative ) ( const int* npts,
141  const double* par_coords,
142  double* deriv );
143 extern "C" void
144 SIERRA_FORTRAN( quad_derivative ) ( const int* npts,
145  const double* par_coords,
146  double* deriv );
147 
148 extern "C" void
149 SIERRA_FORTRAN( quad92d_derivative ) ( const int* npts,
150  const double* par_coords,
151  double* deriv );
152 
153 extern "C" void
154 SIERRA_FORTRAN( tet_derivative ) ( const int* npts,
155  double* deriv );
156 
157 extern "C" void
158 SIERRA_FORTRAN( tri_derivative ) ( const int* npts,
159  double* deriv );
160 
161 extern "C" void
162 SIERRA_FORTRAN( hex_gradient_operator ) ( const int* nelem,
163  const int* npe,
164  const int* numint,
165  double *deriv,
166  const double* coords,
167  double* gradop,
168  double *det_j,
169  double *error,
170  int* lerr);
171 
172 extern "C" void
173 SIERRA_FORTRAN( quad_gradient_operator ) ( const int* nelem,
174  const int* npe,
175  const int* numint,
176  double *deriv,
177  const double* coords,
178  double* gradop,
179  double *det_j,
180  double *error,
181  int* lerr);
182 
183 extern "C" void
184 SIERRA_FORTRAN( twod_gij ) ( const int* npe,
185  const int* numint,
186  double *deriv,
187  const double* coords,
188  double* gupperij,
189  double* glowerij);
190 
191 extern "C" void
192 SIERRA_FORTRAN( threed_gij ) ( const int* npe,
193  const int* numint,
194  double *deriv,
195  const double* coords,
196  double* gupperij,
197  double* glowerij);
198 
199 extern "C" void
200 SIERRA_FORTRAN( tet_gradient_operator ) ( const int* nelem,
201  const int* npe,
202  const int* numint,
203  double *deriv,
204  const double* coords,
205  double* gradop,
206  double *det_j,
207  double *error,
208  int* lerr);
209 
210 extern "C" void
211 SIERRA_FORTRAN( tri_gradient_operator ) ( const int* nelem,
212  const int* npe,
213  const int* numint,
214  double *deriv,
215  const double* coords,
216  double* gradop,
217  double *det_j,
218  double *error,
219  int* lerr);
220 
221 extern "C" void
222 SIERRA_FORTRAN( pyr_gradient_operator ) ( const int* nelem,
223  const int* npe,
224  const int* numint,
225  double *deriv,
226  const double* coords,
227  double* gradop,
228  double *det_j,
229  double *error,
230  int* lerr);
231 
232 extern "C" void
233 SIERRA_FORTRAN( wed_gradient_operator ) ( const int* nelem,
234  const int* npe,
235  const int* numint,
236  double *deriv,
237  const double* coords,
238  double* gradop,
239  double *det_j,
240  double *error,
241  int* lerr);
242 
243 extern "C" void
244 SIERRA_FORTRAN( quad3d_shape_fcn ) ( const int* npts,
245  const double* par_coords,
246  double* shape_fcn );
247 
248 #endif // FORTRAN_Proto_h
edge2d_scs_det
void SIERRA_FORTRAN() edge2d_scs_det(const int *nelem, const int *npe, const int *nint, const double *coords, double *areav)
quad_scv_det
void SIERRA_FORTRAN() quad_scv_det(const int *nelem, const int *npe, const int *nscv, const double *coords, double *volume, double *error, int *nerr)
quad_scs_det
void SIERRA_FORTRAN() quad_scs_det(const int *nelem, const int *npe, const int *nscs, const double *coords, double *area_vec)
tri_scv_det
void SIERRA_FORTRAN() tri_scv_det(const int *nelem, const int *npe, const int *nscv, const double *coords, double *volume, double *error, int *nerr)
tri3d_scs_det
void SIERRA_FORTRAN() tri3d_scs_det(const int *nelem, const int *npe, const int *nint, const double *coords, double *areav)
tri_derivative
void SIERRA_FORTRAN() tri_derivative(const int *npts, double *deriv)
tri_scs_det
void SIERRA_FORTRAN() tri_scs_det(const int *nelem, const int *npe, const int *nscs, const double *coords, double *area_vec)
wed_scv_det
void SIERRA_FORTRAN() wed_scv_det(const int *nelem, const int *npe, const int *nscv, const double *coords, double *volume, double *error, int *nerr)
tri_gradient_operator
void SIERRA_FORTRAN() tri_gradient_operator(const int *nelem, const int *npe, const int *numint, double *deriv, const double *coords, double *gradop, double *det_j, double *error, int *lerr)
tet_scs_det
void SIERRA_FORTRAN() tet_scs_det(const int *nelem, const int *npe, const int *nscs, const double *coords, double *area_vec)
quad92d_derivative
void SIERRA_FORTRAN() quad92d_derivative(const int *npts, const double *par_coords, double *deriv)
pyr_scv_det
void SIERRA_FORTRAN() pyr_scv_det(const int *nelem, const int *npe, const int *nscv, const double *coords, double *volume, double *error, int *nerr)
pyr_gradient_operator
void SIERRA_FORTRAN() pyr_gradient_operator(const int *nelem, const int *npe, const int *numint, double *deriv, const double *coords, double *gradop, double *det_j, double *error, int *lerr)
pyr_scs_det
void SIERRA_FORTRAN() pyr_scs_det(const int *nelem, const int *npe, const int *nscs, const double *coords, double *area_vec)
quad3d_scs_det
void SIERRA_FORTRAN() quad3d_scs_det(const int *nelem, const double *coords, double *areav)
hex_scv_det
void SIERRA_FORTRAN() hex_scv_det(const int *nelem, const int *npe, const int *nscv, const double *coords, double *volume, double *error, int *nerr)
quad3d_shape_fcn
void SIERRA_FORTRAN() quad3d_shape_fcn(const int *npts, const double *par_coords, double *shape_fcn)
tet_gradient_operator
void SIERRA_FORTRAN() tet_gradient_operator(const int *nelem, const int *npe, const int *numint, double *deriv, const double *coords, double *gradop, double *det_j, double *error, int *lerr)
tet_scv_det
void SIERRA_FORTRAN() tet_scv_det(const int *nelem, const int *npe, const int *nscv, const double *coords, double *volume, double *error, int *nerr)
tet_derivative
void SIERRA_FORTRAN() tet_derivative(const int *npts, double *deriv)
hex_derivative
void SIERRA_FORTRAN() hex_derivative(const int *npts, const double *par_coords, double *deriv)
hex_gradient_operator
void SIERRA_FORTRAN() hex_gradient_operator(const int *nelem, const int *npe, const int *numint, double *deriv, const double *coords, double *gradop, double *det_j, double *error, int *lerr)
hex_scs_det
void SIERRA_FORTRAN() hex_scs_det(const int *nelem, const int *npe, const int *nscs, const double *coords, double *area_vec)
quad_gradient_operator
void SIERRA_FORTRAN() quad_gradient_operator(const int *nelem, const int *npe, const int *numint, double *deriv, const double *coords, double *gradop, double *det_j, double *error, int *lerr)
wed_gradient_operator
void SIERRA_FORTRAN() wed_gradient_operator(const int *nelem, const int *npe, const int *numint, double *deriv, const double *coords, double *gradop, double *det_j, double *error, int *lerr)
threed_gij
void SIERRA_FORTRAN() threed_gij(const int *npe, const int *numint, double *deriv, const double *coords, double *gupperij, double *glowerij)
hex_shape_fcn
void SIERRA_FORTRAN() hex_shape_fcn(const int *npts, const double *par_coords, double *shape_fcn)
quad_derivative
void SIERRA_FORTRAN() quad_derivative(const int *npts, const double *par_coords, double *deriv)
wed_scs_det
void SIERRA_FORTRAN() wed_scs_det(const int *nelem, const int *npe, const int *nscs, const double *coords, double *area_vec)
twod_gij
void SIERRA_FORTRAN() twod_gij(const int *npe, const int *numint, double *deriv, const double *coords, double *gupperij, double *glowerij)
Generated by   doxygen 1.8.11