/[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 149 by jgs, Thu Sep 1 03:31:39 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 337  void Finley_Assemble_PDE(Finley_NodeFile Line 337  void Finley_Assemble_PDE(Finley_NodeFile
337           THREAD_MEMFREE(index_col);           THREAD_MEMFREE(index_col);
338           THREAD_MEMFREE(index_row);           THREAD_MEMFREE(index_row);
339       }       }
340         #ifdef Finley_TRACE
341       printf("timing: assemblage PDE: %.4e sec\n",Finley_timer()-time0);       printf("timing: assemblage PDE: %.4e sec\n",Finley_timer()-time0);
342         #endif
343    }    }
344  }  }
345  /*  /*
346   * $Log$   * $Log$
347     * Revision 1.7  2005/09/01 03:31:35  jgs
348     * Merge of development branch dev-02 back to main trunk on 2005-09-01
349     *
350     * Revision 1.6  2005/08/12 01:45:42  jgs
351     * erge of development branch dev-02 back to main trunk on 2005-08-12
352     *
353     * Revision 1.5.2.2  2005/08/24 02:02:18  gross
354     * timing output switched off. solver output can be swiched through getSolution(verbose=True) now.
355     *
356     * Revision 1.5.2.1  2005/08/03 08:54:27  gross
357     * contact element assemblage was called with wrong element table pointer
358     *
359   * Revision 1.5  2005/07/08 04:07:46  jgs   * Revision 1.5  2005/07/08 04:07:46  jgs
360   * Merge of development branch back to main trunk on 2005-07-08   * Merge of development branch back to main trunk on 2005-07-08
361   *   *

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

  ViewVC Help
Powered by ViewVC 1.1.26