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

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

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

revision 3143 by jfenwick, Thu Sep 2 05:03:17 2010 UTC revision 3144 by jfenwick, Fri Sep 3 00:49:02 2010 UTC
# Line 277  void  Dudley_Assemble_PDE_Single2_2D(Ass Line 277  void  Dudley_Assemble_PDE_Single2_2D(Ass
277                        /* add the element matrices onto the matrix and right hand side                                */                        /* add the element matrices onto the matrix and right hand side                                */
278                        /***********************************************************************************************/                        /***********************************************************************************************/
279                                
280                        for (q=0;q<p.row_numShapesTotal;q++) row_index[q]=p.row_DOF[elements->Nodes[INDEX2(p.row_node[INDEX2(q,0,p.row_numShapesTotal)],e,p.NN)]];                        for (q=0;q<p.row_numShapesTotal;q++) row_index[q]=p.row_DOF[elements->Nodes[INDEX2(q,e,p.NN)]];
281                if (add_EM_F) Dudley_Util_AddScatter(p.row_numShapesTotal,row_index,p.numEqu,EM_F,F_p, p.row_DOF_UpperBound);                if (add_EM_F) Dudley_Util_AddScatter(p.row_numShapesTotal,row_index,p.numEqu,EM_F,F_p, p.row_DOF_UpperBound);
282                        if (add_EM_S) Dudley_Assemble_addToSystemMatrix(Mat,p.row_numShapesTotal,row_index,p.numEqu,p.col_numShapesTotal,row_index,p.numComp,EM_S);                        if (add_EM_S) Dudley_Assemble_addToSystemMatrix(Mat,p.row_numShapesTotal,row_index,p.numEqu,p.col_numShapesTotal,row_index,p.numComp,EM_S);
283                  } /* end color check */                  } /* end color check */

Legend:
Removed from v.3143  
changed lines
  Added in v.3144

  ViewVC Help
Powered by ViewVC 1.1.26