3393
by Timothy Bond
Following the move from svn to bzr we change the nature of inclusion of these |
1 |
/* Copyright (C) 2006 Imperial College London.
|
2 |
||
3 |
Please see the AUTHORS file in the main source directory for a full list
|
|
4 |
of copyright holders.
|
|
5 |
||
6 |
Dr Gerard J Gorman
|
|
7 |
Applied Modelling and Computation Group
|
|
8 |
Department of Earth Science and Engineering
|
|
9 |
Imperial College London
|
|
10 |
||
11 |
g.gorman@imperial.ac.uk
|
|
12 |
||
13 |
This library is free software; you can redistribute it and/or
|
|
14 |
modify it under the terms of the GNU Lesser General Public
|
|
15 |
License as published by the Free Software Foundation; either
|
|
16 |
version 2.1 of the License.
|
|
17 |
||
18 |
This library is distributed in the hope that it will be useful,
|
|
19 |
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
20 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
21 |
Lesser General Public License for more details.
|
|
22 |
||
23 |
You should have received a copy of the GNU Lesser General Public
|
|
24 |
License along with this library; if not, write to the Free Software
|
|
25 |
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
|
|
26 |
USA
|
|
27 |
*/
|
|
28 |
||
29 |
#ifndef CINTERFACES_H
|
|
30 |
#define CINTERFACES_H
|
|
31 |
||
32 |
// Methods
|
|
33 |
extern "C" { |
|
34 |
#define adptvy_fc F77_FUNC(adptvy, ADPTVY)
|
|
35 |
void adptvy_fc(int intBuffer[], const int *intBuffer_size, void *floatBuffer, const int *floatBuffer_size, |
|
36 |
const int *Geom3D, const int *SRFGMY, const int *USEQ, |
|
37 |
const int *NNodes, const int *NElements, const int *NSElements, const int *mxnods, |
|
38 |
const int *sizeENList, const int ENLBasePtr[], const int ENList[], const int ElementRegion[], |
|
39 |
const int *CLCGMY, const int *sizeSENList, const int SENLBasePtr[], const int SENList[], const int surfID[], |
|
40 |
const int PRDNDS[], const int *NPRDND, |
|
41 |
const void *X, const void *Y, const void *Z, |
|
42 |
const int *ref_NNodes, const int *ref_NElements, const int *ref_sizeENList, const int *ref_ENList, const int *ref_ENLBasePtr, |
|
43 |
const void *ref_X, const void *ref_Y, const void *ref_Z, |
|
44 |
const void *Metric, const void *fields, const int *NFREE, const int *TOTFRE, const int *NFIELD, |
|
45 |
const int *XPCTEL, |
|
46 |
int *newNNodes, int *newNElements, int *newNSElements, |
|
47 |
int *NWSZEN, int *NWSZSN, int *NWSZNN, int *NWNDLC, int *NWSROW, |
|
48 |
int *NWENLB, int *NWENLS, int *NWSNLB, int *NWSNLS, int *NWSFID, |
|
49 |
int *NWELRG, int *NWNODX, int *NWNODY, int *NWNODZ, |
|
50 |
int *NEWMTX, int *NEWFLD, |
|
51 |
int *ADPBIG, int *ADPNOD, |
|
52 |
const void *DOTOP, const void *minChance, const int *AdaptIter, const int AdaptOpts[], const int *TWOSTG, const int *TOGTHR, |
|
53 |
int Gather[], int Scatter[], int *NGather, int *NScatter, int *NPrivateNodes, |
|
54 |
int ATOSEN[], int ATOREC[], const int *NProcs, const int *debug_level, const int *dbg, const int *chcnsy); |
|
55 |
||
56 |
#define get_predicted_nelements_fc F77_FUNC(get_predicted_nelements, GET_EXPECTED_NELEMENTS)
|
|
57 |
int get_predicted_nelements_fc(const void *, const void *, const void *, const void *, |
|
58 |
const int *, const int *, const int *, const int *); |
|
59 |
||
60 |
#define adaptmem_fc F77_FUNC(adaptmem, ADAPTMEM)
|
|
61 |
int adaptmem_fc(const int *, const int *, const int *, const int *, const int *, |
|
62 |
const int *, const int *, const int *, const int *,const int *, const int *); |
|
63 |
||
64 |
#define adapt_false_fc F77_FUNC(adapt_false, ADAPT_FALSE)
|
|
65 |
int adapt_false_fc(); |
|
66 |
||
67 |
#define adapt_true_fc F77_FUNC(adapt_true, ADAPT_TRUE)
|
|
68 |
int adapt_true_fc(); |
|
69 |
}
|
|
70 |
||
71 |
#define LOGICAL_FALSE (adapt_false_fc())
|
|
72 |
#define LOGICAL_TRUE (adapt_true_fc())
|
|
73 |
||
74 |
#endif
|