/[escript]/trunk/finley/src/Assemble_gradient.c
ViewVC logotype

Diff of /trunk/finley/src/Assemble_gradient.c

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

revision 1063 by gross, Mon Mar 26 06:17:53 2007 UTC revision 1064 by gross, Tue Mar 27 06:21:02 2007 UTC
# Line 69  void Finley_Assemble_gradient(Finley_Nod Line 69  void Finley_Assemble_gradient(Finley_Nod
69    jac=Finley_ElementFile_borrowJacobeans(elements,nodes,reducedShapefunction,reducedIntegrationOrder);    jac=Finley_ElementFile_borrowJacobeans(elements,nodes,reducedShapefunction,reducedIntegrationOrder);
70    if (Finley_noError()) {    if (Finley_noError()) {
71    
72          numShapes=jac->ReferenceElement->Type->numShapes;
73          numLocalNodes=jac->ReferenceElement->Type->numNodes;
74        if (grad_data_type==FINLEY_CONTACT_ELEMENTS_2 || grad_data_type== FINLEY_REDUCED_CONTACT_ELEMENTS_2)  {        if (grad_data_type==FINLEY_CONTACT_ELEMENTS_2 || grad_data_type== FINLEY_REDUCED_CONTACT_ELEMENTS_2)  {
75         dof_offset=numShapes;         dof_offset=numShapes;
76         s_offset=jac->ReferenceElement->Type->numShapes;         s_offset=jac->ReferenceElement->Type->numShapes;
# Line 76  void Finley_Assemble_gradient(Finley_Nod Line 78  void Finley_Assemble_gradient(Finley_Nod
78         dof_offset=0;         dof_offset=0;
79         s_offset=0;         s_offset=0;
80        }        }
       numShapes=jac->ReferenceElement->Type->numShapes;  
       numLocalNodes=jac->ReferenceElement->Type->numNodes;  
81    
82        /* check the dimensions of data */        /* check the dimensions of data */
83    
Legend:
Removed from v.1063  
changed lines
  Added in v.1064
  ViewVC Help
Powered by ViewVC 1.1.26