/[escript]/branches/domexper/dudley/src/ReferenceElementSets.c
ViewVC logotype

Diff of /branches/domexper/dudley/src/ReferenceElementSets.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3086 by jfenwick, Thu Aug 5 05:07:58 2010 UTC revision 3152 by jfenwick, Fri Sep 3 05:48:31 2010 UTC
# Line 78  Dudley_ReferenceElementSet* Dudley_Refer Line 78  Dudley_ReferenceElementSet* Dudley_Refer
78       return in;       return in;
79  }  }
80    
81  Dudley_ReferenceElement* Dudley_ReferenceElementSet_borrowReferenceElement(Dudley_ReferenceElementSet* in, bool_t reducedIntegrationOrder) {  Dudley_ReferenceElement* Dudley_ReferenceElementSet_borrowReferenceElement(Dudley_ReferenceElementSet* in, bool_t reducedIntegrationOrder)
82          Dudley_ReferenceElement* out=NULL;  {
83      if (in !=NULL) {                    Dudley_ReferenceElement* out=NULL;
84           if (reducedIntegrationOrder) {      if (in !=NULL)
85               out=in->referenceElementReducedQuadrature;      {            
86            } else {      if (reducedIntegrationOrder)
87               out=in->referenceElement;      {
88            }          out=in->referenceElementReducedQuadrature;
89        } else {
90            out=in->referenceElement;
91      }      }
92      return out;      }
93        return out;
94  }  }
95            
96  Dudley_ShapeFunction* Dudley_ReferenceElementSet_borrowBasisFunctions(Dudley_ReferenceElementSet* in, bool_t reducedShapefunction, bool_t reducedIntegrationOrder) {  Dudley_ShapeFunction* Dudley_ReferenceElementSet_borrowBasisFunctions(Dudley_ReferenceElementSet* in, bool_t reducedShapefunction, bool_t reducedIntegrationOrder)
97      Dudley_ShapeFunction* basis=NULL;  {
98      if (in !=NULL) {          Dudley_ShapeFunction* basis=NULL;
99        if (reducedShapefunction) {      if (in !=NULL)
100            if (reducedIntegrationOrder) {      {  
101               basis=in->referenceElementReducedQuadrature->LinearBasisFunctions;      if (reducedShapefunction)
102            } else {      {
103                basis=in->referenceElement->LinearBasisFunctions;          if (reducedIntegrationOrder)
104            }          {
105        } else {          basis=in->referenceElementReducedQuadrature->BasisFunctions;
106            if (reducedIntegrationOrder) {          } else {
107               basis=in->referenceElementReducedQuadrature->BasisFunctions;          basis=in->referenceElement->BasisFunctions;
108            } else {          }
109                basis=in->referenceElement->BasisFunctions;      } else {
110            }          if (reducedIntegrationOrder) {
111        }                  basis=in->referenceElementReducedQuadrature->BasisFunctions;
112      }          } else {
113      return basis;              basis=in->referenceElement->BasisFunctions;
114            }
115            }
116        }
117        return basis;
118  }  }
119    
120  Dudley_ShapeFunction* Dudley_ReferenceElementSet_borrowParametrization(Dudley_ReferenceElementSet* in, bool_t reducedIntegrationOrder) {  Dudley_ShapeFunction* Dudley_ReferenceElementSet_borrowParametrization(Dudley_ReferenceElementSet* in, bool_t reducedIntegrationOrder)
121      Dudley_ShapeFunction* shape=NULL;  {
122      if (in !=NULL) {              Dudley_ShapeFunction* shape=NULL;
123            if (reducedIntegrationOrder) {      if (in !=NULL)
124               shape=in->referenceElementReducedQuadrature->Parametrization;      {      
125            } else {      if (reducedIntegrationOrder)
126                shape=in->referenceElement->Parametrization;      {
127            }          shape=in->referenceElementReducedQuadrature->BasisFunctions;
128        } else {
129            shape=in->referenceElement->BasisFunctions;
130      }      }
131      return shape;      }
132        return shape;
133  }  }
134    

Legend:
Removed from v.3086  
changed lines
  Added in v.3152

  ViewVC Help
Powered by ViewVC 1.1.26