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

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

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

temp/finley/src/Assemble_interpolate.c revision 1387 by trankine, Fri Jan 11 07:45:26 2008 UTC trunk/finley/src/Assemble_interpolate.c revision 1981 by jfenwick, Thu Nov 6 05:27:33 2008 UTC
# Line 1  Line 1 
1    
 /* $Id$ */  
   
2  /*******************************************************  /*******************************************************
3   *  *
4   *           Copyright 2003-2007 by ACceSS MNRF  * Copyright (c) 2003-2008 by University of Queensland
5   *       Copyright 2007 by University of Queensland  * Earth Systems Science Computational Center (ESSCC)
6   *  * http://www.uq.edu.au/esscc
7   *                http://esscc.uq.edu.au  *
8   *        Primary Business: Queensland, Australia  * Primary Business: Queensland, Australia
9   *  Licensed under the Open Software License version 3.0  * Licensed under the Open Software License version 3.0
10   *     http://www.opensource.org/licenses/osl-3.0.php  * http://www.opensource.org/licenses/osl-3.0.php
11   *  *
12   *******************************************************/  *******************************************************/
13    
14    
15  /**************************************************************/  /**************************************************************/
16    
# Line 30  Line 29 
29    
30  void Finley_Assemble_interpolate(Finley_NodeFile *nodes, Finley_ElementFile* elements,escriptDataC* data,escriptDataC* interpolated_data) {  void Finley_Assemble_interpolate(Finley_NodeFile *nodes, Finley_ElementFile* elements,escriptDataC* data,escriptDataC* interpolated_data) {
31    double* local_data=NULL,*S=NULL,*data_array;    double* local_data=NULL,*S=NULL,*data_array;
32    index_t dof_offset,*resort_nodesi, NN, NS;    index_t dof_offset, NN, NS;
33    bool_t reduced_integration=FALSE;    bool_t reduced_integration=FALSE;
34    dim_t q,i,NS_DOF,NN_DOF,numNodes,e, numQuad;    dim_t q,i,NS_DOF,NN_DOF,numNodes=0,e, numQuad;
35    Finley_RefElement* reference_element=NULL;    Finley_RefElement* reference_element=NULL;
36    dim_t numComps=getDataPointSize(data);    dim_t numComps=getDataPointSize(data);
37    index_t id[MAX_numNodes], *resort_nodes, *map;    index_t id[MAX_numNodes], *resort_nodes=0, *map=0;
38    type_t data_type=getFunctionSpaceType(data);    type_t data_type=getFunctionSpaceType(data);
39    type_t type;    type_t type;
40    size_t numComps_size;    size_t numComps_size;

Legend:
Removed from v.1387  
changed lines
  Added in v.1981

  ViewVC Help
Powered by ViewVC 1.1.26