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

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

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

revision 3205 by jfenwick, Thu Sep 23 05:47:27 2010 UTC revision 3206 by jfenwick, Fri Sep 24 03:20:22 2010 UTC
# Line 32  Line 32 
32  void Dudley_Assemble_setNormal(Dudley_NodeFile* nodes, Dudley_ElementFile* elements, escriptDataC* normal) {  void Dudley_Assemble_setNormal(Dudley_NodeFile* nodes, Dudley_ElementFile* elements, escriptDataC* normal) {
33    double *local_X=NULL, *dVdv=NULL,*normal_array;    double *local_X=NULL, *dVdv=NULL,*normal_array;
34    index_t sign;    index_t sign;
35    Dudley_ReferenceElement* reference_element=NULL;  //  Dudley_ReferenceElement* reference_element=NULL;
36    dim_t e,q, NN, NS, numDim, numQuad, numDim_local;    dim_t e,q, NN, NS, numDim, numQuad, numDim_local;
37    bool_t reduced_integration;    bool_t reduced_integration;
38    const double* dSdv=0;    const double* dSdv=0;
# Line 46  void Dudley_Assemble_setNormal(Dudley_No Line 46  void Dudley_Assemble_setNormal(Dudley_No
46      dSdv=&(DTDV_1D[0][0]);break;      dSdv=&(DTDV_1D[0][0]);break;
47    }    }
48    Dudley_resetError();    Dudley_resetError();
49    reference_element=Dudley_ReferenceElementSet_borrowReferenceElement(elements->referenceElementSet, Dudley_Assemble_reducedIntegrationOrder(normal));  //  reference_element=Dudley_ReferenceElementSet_borrowReferenceElement(elements->referenceElementSet, Dudley_Assemble_reducedIntegrationOrder(normal));
50    NN=elements->numNodes;    NN=elements->numNodes;
51    numDim=nodes->numDim;    numDim=nodes->numDim;
52    reduced_integration = Dudley_Assemble_reducedIntegrationOrder(normal);    reduced_integration = Dudley_Assemble_reducedIntegrationOrder(normal);

Legend:
Removed from v.3205  
changed lines
  Added in v.3206

  ViewVC Help
Powered by ViewVC 1.1.26