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

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

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

revision 123 by jgs, Fri Jul 8 04:08:13 2005 UTC revision 147 by jgs, Fri Aug 12 01:45:47 2005 UTC
# Line 88  void Finley_Assemble_PDE(Finley_NodeFile Line 88  void Finley_Assemble_PDE(Finley_NodeFile
88    
89    if (! functionSpaceTypeEqual(funcspace,A) ) {    if (! functionSpaceTypeEqual(funcspace,A) ) {
90          Finley_ErrorCode=TYPE_ERROR;          Finley_ErrorCode=TYPE_ERROR;
91          sprintf(Finley_ErrorMsg,"unexpected function space typ for coefficient A");          sprintf(Finley_ErrorMsg,"unexpected function space type for coefficient A");
92    }    }
93    if (! functionSpaceTypeEqual(funcspace,B) ) {    if (! functionSpaceTypeEqual(funcspace,B) ) {
94          Finley_ErrorCode=TYPE_ERROR;          Finley_ErrorCode=TYPE_ERROR;
95          sprintf(Finley_ErrorMsg,"unexpected function space typ for coefficient B");          sprintf(Finley_ErrorMsg,"unexpected function space type for coefficient B");
96    }    }
97    if (! functionSpaceTypeEqual(funcspace,C) ) {    if (! functionSpaceTypeEqual(funcspace,C) ) {
98          Finley_ErrorCode=TYPE_ERROR;          Finley_ErrorCode=TYPE_ERROR;
99          sprintf(Finley_ErrorMsg,"unexpected function space typ for coefficient C");          sprintf(Finley_ErrorMsg,"unexpected function space type for coefficient C");
100    }    }
101    if (! functionSpaceTypeEqual(funcspace,D) ) {    if (! functionSpaceTypeEqual(funcspace,D) ) {
102          Finley_ErrorCode=TYPE_ERROR;          Finley_ErrorCode=TYPE_ERROR;
103          sprintf(Finley_ErrorMsg,"unexpected function space typ for coefficient D");          sprintf(Finley_ErrorMsg,"unexpected function space type for coefficient D");
104    }    }
105    if (! functionSpaceTypeEqual(funcspace,X) ) {    if (! functionSpaceTypeEqual(funcspace,X) ) {
106          Finley_ErrorCode=TYPE_ERROR;          Finley_ErrorCode=TYPE_ERROR;
107          sprintf(Finley_ErrorMsg,"unexpected function space typ for coefficient X");          sprintf(Finley_ErrorMsg,"unexpected function space type for coefficient X");
108    }    }
109    if (! functionSpaceTypeEqual(funcspace,Y) ) {    if (! functionSpaceTypeEqual(funcspace,Y) ) {
110          Finley_ErrorCode=TYPE_ERROR;          Finley_ErrorCode=TYPE_ERROR;
111          sprintf(Finley_ErrorMsg,"unexpected function space typ for coefficient Y");          sprintf(Finley_ErrorMsg,"unexpected function space type for coefficient Y");
112    }    }
113    
114    /* check if all function spaces are the same */    /* check if all function spaces are the same */
# Line 342  void Finley_Assemble_PDE(Finley_NodeFile Line 342  void Finley_Assemble_PDE(Finley_NodeFile
342  }  }
343  /*  /*
344   * $Log$   * $Log$
345     * Revision 1.6  2005/08/12 01:45:42  jgs
346     * erge of development branch dev-02 back to main trunk on 2005-08-12
347     *
348     * Revision 1.5.2.1  2005/08/03 08:54:27  gross
349     * contact element assemblage was called with wrong element table pointer
350     *
351   * Revision 1.5  2005/07/08 04:07:46  jgs   * Revision 1.5  2005/07/08 04:07:46  jgs
352   * Merge of development branch back to main trunk on 2005-07-08   * Merge of development branch back to main trunk on 2005-07-08
353   *   *

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

  ViewVC Help
Powered by ViewVC 1.1.26