/[escript]/trunk/esys2/finley/src/finleyC/Assemble_getAssembleParameters.c
ViewVC logotype

Diff of /trunk/esys2/finley/src/finleyC/Assemble_getAssembleParameters.c

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

revision 102 by jgs, Wed Dec 15 07:08:39 2004 UTC revision 123 by jgs, Fri Jul 8 04:08:13 2005 UTC
# Line 22  Line 22 
22    
23  void Assemble_getAssembleParameters(Finley_NodeFile* nodes,Finley_ElementFile* elements,Finley_SystemMatrix* S,  void Assemble_getAssembleParameters(Finley_NodeFile* nodes,Finley_ElementFile* elements,Finley_SystemMatrix* S,
24                                          escriptDataC* F,Assemble_Parameters *parm) {                                          escriptDataC* F,Assemble_Parameters *parm) {
25    int i;    dim_t i;
26    parm->NN=elements->ReferenceElement->Type->numNodes;    parm->NN=elements->ReferenceElement->Type->numNodes;
27    for (i=0;i<parm->NN;i++) parm->id[i]=i;    for (i=0;i<parm->NN;i++) parm->id[i]=i;
28    parm->NS=elements->ReferenceElement->Type->numShapes;    parm->NS=elements->ReferenceElement->Type->numShapes;
# Line 43  void Assemble_getAssembleParameters(Finl Line 43  void Assemble_getAssembleParameters(Finl
43        sprintf(Finley_ErrorMsg,"matrix row block size and number of components of right hand side don't match.");        sprintf(Finley_ErrorMsg,"matrix row block size and number of components of right hand side don't match.");
44        return;        return;
45      }      }
46    
47      if (! numSamplesEqual(F,1,(S->num_rows*S->row_block_size)/S->logical_row_block_size)) {      if (! numSamplesEqual(F,1,(S->num_rows*S->row_block_size)/S->logical_row_block_size)) {
48        Finley_ErrorCode=TYPE_ERROR;        Finley_ErrorCode=TYPE_ERROR;
49        sprintf(Finley_ErrorMsg,"number of rows of matrix and length of right hand side don't match.");        sprintf(Finley_ErrorMsg,"number of rows of matrix and length of right hand side don't match.");
# Line 125  void Assemble_getAssembleParameters(Finl Line 126  void Assemble_getAssembleParameters(Finl
126    
127  /*  /*
128   * $Log$   * $Log$
129     * Revision 1.5  2005/07/08 04:07:47  jgs
130     * Merge of development branch back to main trunk on 2005-07-08
131     *
132   * Revision 1.4  2004/12/15 07:08:32  jgs   * Revision 1.4  2004/12/15 07:08:32  jgs
133   * *** empty log message ***   * *** empty log message ***
134     * Revision 1.1.1.1.2.4  2005/07/01 07:02:13  gross
135     * some bug with OPENMP fixed
136     *
137     * Revision 1.1.1.1.2.3  2005/06/29 02:34:48  gross
138     * some changes towards 64 integers in finley
139     *
140     * Revision 1.1.1.1.2.2  2004/11/12 06:58:18  gross
141     * a lot of changes to get the linearPDE class running: most important change is that there is no matrix format exposed to the user anymore. the format is chosen by the Domain according to the solver and symmetry
142     *
143     * Revision 1.1.1.1.2.1  2004/10/28 22:59:24  gross
144     * finley's RecTest.py is running now: problem in SystemMatrixAdapater fixed
145     *
146     * Revision 1.1.1.1  2004/10/26 06:53:57  jgs
147     * initial import of project esys2
148     *
149     * Revision 1.2  2004/07/21 05:00:54  gross
150     * name changes in DataC
151     *
152     * Revision 1.1  2004/07/02 04:21:13  gross
153     * Finley C code has been included
154   *   *
155   *   *
156   */   */

Legend:
Removed from v.102  
changed lines
  Added in v.123

  ViewVC Help
Powered by ViewVC 1.1.26