/[escript]/branches/domexper/dudley/src/Assemble.h
ViewVC logotype

Contents of /branches/domexper/dudley/src/Assemble.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3221 - (show annotations)
Wed Sep 29 01:00:21 2010 UTC (8 years, 6 months ago) by jfenwick
File MIME type: text/plain
File size: 5070 byte(s)
Comment stripping

1
2 /*******************************************************
3 *
4 * Copyright (c) 2003-2010 by University of Queensland
5 * Earth Systems Science Computational Center (ESSCC)
6 * http://www.uq.edu.au/esscc
7 *
8 * Primary Business: Queensland, Australia
9 * Licensed under the Open Software License version 3.0
10 * http://www.opensource.org/licenses/osl-3.0.php
11 *
12 *******************************************************/
13
14
15 /**************************************************************/
16
17 /* assemblage routines: header file */
18
19 /**************************************************************/
20
21 #ifndef INC_DUDLEY_ASSEMBLE
22 #define INC_DUDLEY_ASSEMBLE
23
24 /**************************************************************/
25
26 #include "Dudley.h"
27 #include "ElementFile.h"
28 #include "NodeFile.h"
29 #include "escript/DataC.h"
30 #include "paso/SystemMatrix.h"
31
32 struct Assemble_Parameters {
33 dim_t numQuad; /* number of quadrature nodes */
34 dim_t numDim; /* spatial dimension */
35 dim_t NN; /* leading dimension of element node table */
36 dim_t numElements; /* number of elements */
37
38 dim_t numEqu;
39 index_t* row_DOF;
40 dim_t row_DOF_UpperBound;
41 Dudley_ElementFile_Jacobeans* row_jac;
42 dim_t numShapes;
43
44 dim_t numComp;
45 index_t * col_DOF;
46 dim_t col_DOF_UpperBound;
47
48 const double* shapeFns;
49 };
50
51 typedef struct Assemble_Parameters Assemble_Parameters;
52
53
54 #define Dudley_Assemble_reducedIntegrationOrder(__in__) ( (getFunctionSpaceType(__in__) == DUDLEY_REDUCED_ELEMENTS) || (getFunctionSpaceType(__in__) == DUDLEY_REDUCED_FACE_ELEMENTS) )
55
56 void Dudley_Assemble_PDE(Dudley_NodeFile*,Dudley_ElementFile*,Paso_SystemMatrix*,escriptDataC*,
57 escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*) ;
58 void Dudley_Assemble_LumpedSystem(Dudley_NodeFile*,Dudley_ElementFile*, escriptDataC*, escriptDataC*);
59
60 void Assemble_getAssembleParameters(Dudley_NodeFile*,Dudley_ElementFile*,Paso_SystemMatrix*,escriptDataC*,bool_t, Assemble_Parameters*);
61 void Dudley_Assemble_PDE_System2_3D(Assemble_Parameters, Dudley_ElementFile*,Paso_SystemMatrix*,escriptDataC*,
62 escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*);
63 void Dudley_Assemble_PDE_System2_2D(Assemble_Parameters, Dudley_ElementFile*,Paso_SystemMatrix*,escriptDataC*,
64 escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*);
65 void Dudley_Assemble_PDE_System2_1D(Assemble_Parameters, Dudley_ElementFile*,Paso_SystemMatrix*,escriptDataC*,
66 escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*);
67
68 void Dudley_Assemble_PDE_Single2_3D(Assemble_Parameters, Dudley_ElementFile*,Paso_SystemMatrix*,escriptDataC*,
69 escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*);
70 void Dudley_Assemble_PDE_Single2_2D(Assemble_Parameters, Dudley_ElementFile*,Paso_SystemMatrix*,escriptDataC*,
71 escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*);
72 void Dudley_Assemble_PDE_Single2_1D(Assemble_Parameters, Dudley_ElementFile*,Paso_SystemMatrix*,escriptDataC*,
73 escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*, escriptDataC*);
74
75
76 void Dudley_Assemble_NodeCoordinates(Dudley_NodeFile*,escriptDataC*);
77 void Dudley_Assemble_setNormal(Dudley_NodeFile*, Dudley_ElementFile*, escriptDataC*);
78 void Dudley_Assemble_interpolate(Dudley_NodeFile*,Dudley_ElementFile*,escriptDataC*, escriptDataC*);
79 void Dudley_Assemble_gradient(Dudley_NodeFile*, Dudley_ElementFile*,escriptDataC*, escriptDataC*);
80 void Dudley_Assemble_integrate(Dudley_NodeFile*,Dudley_ElementFile*,escriptDataC*,double*) ;
81 void Dudley_Assemble_getSize(Dudley_NodeFile*,Dudley_ElementFile*, escriptDataC*);
82 void Dudley_Assemble_CopyNodalData(Dudley_NodeFile* nodes,escriptDataC* out,escriptDataC* in);
83 void Dudley_Assemble_CopyElementData(Dudley_ElementFile* elements,escriptDataC* out,escriptDataC* in);
84 void Dudley_Assemble_AverageElementData(Dudley_ElementFile* elements,escriptDataC* out,escriptDataC* in);
85 void Dudley_Assemble_addToSystemMatrix(Paso_SystemMatrix*,dim_t,index_t*, dim_t,dim_t,index_t*,dim_t, double*);
86
87 void Assemble_jacobeans_2D(double*, dim_t, dim_t, dim_t, index_t*, double*, double* abs_D, double* quadweight, index_t*);
88 void Assemble_jacobeans_2D_M1D_E1D(double*, dim_t, dim_t, dim_t, index_t*, double*, double* abs_D, double* quadweight,index_t*);
89 void Assemble_jacobeans_3D(double*, dim_t, dim_t, dim_t, index_t*, double*, double* abs_D, double* quadweight,index_t*);
90 void Assemble_jacobeans_3D_M2D_E2D(double*, dim_t, dim_t, dim_t, index_t*, double*, double* abs_D, double* quadweight,index_t*);
91
92
93 void Dudley_Assemble_LumpedSystem(Dudley_NodeFile* nodes,Dudley_ElementFile* elements, escriptDataC* lumpedMat, escriptDataC* D);
94 #endif /* #ifndef INC_DUDLEY_ASSEMBLE */
95

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.26