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

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

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

revision 82 by jgs, Tue Oct 26 06:53:54 2004 UTC revision 150 by jgs, Thu Sep 15 03:44:45 2005 UTC
# Line 1  Line 1 
1  /* $Id$ */  /*
2     ******************************************************************************
3     *                                                                            *
4     *       COPYRIGHT  ACcESS 2003,2004,2005 -  All Rights Reserved              *
5     *                                                                            *
6     * This software is the property of ACcESS. No part of this code              *
7     * may be copied in any form or by any means without the expressed written    *
8     * consent of ACcESS.  Copying, use or modification of this software          *
9     * by any unauthorised person is illegal unless that person has a software    *
10     * license agreement with ACcESS.                                             *
11     *                                                                            *
12     ******************************************************************************
13    */
14    
15  /**************************************************************/  /**************************************************************/
16    
17  /*   Finley: Mesh: NodeFile */  /*   Finley: Mesh: NodeFile */
# Line 7  Line 20 
20    
21  /**************************************************************/  /**************************************************************/
22    
 /*   Copyrights by ACcESS Australia 2003/04 */  
23  /*   Author: gross@access.edu.au */  /*   Author: gross@access.edu.au */
24  /*   Version: $Id$ */  /*   Version: $Id$ */
25    
26  /**************************************************************/  /**************************************************************/
27    
 #include "Common.h"  
 #include "Finley.h"  
28  #include "NodeFile.h"  #include "NodeFile.h"
29  #include "Util.h"  #include "Util.h"
 #include "escript/Data/DataC.h"  
30    
31  /**************************************************************/  /**************************************************************/
32    
33    
34  void Finley_NodeFile_setCoordinates(Finley_NodeFile* self,escriptDataC* newX) {  void Finley_NodeFile_setCoordinates(Finley_NodeFile* self,escriptDataC* newX) {
35      char error_msg[LenErrorMsg_MAX];
36     int n;     int n;
37     if (getDataPointSize(newX)!=self->numDim)  {     if (getDataPointSize(newX)!=self->numDim)  {
38        Finley_ErrorCode=VALUE_ERROR;        sprintf(error_msg,"__FILE__: dimension of new coordinates has to be %d.",self->numDim);
39        sprintf(Finley_ErrorMsg,"dimension of new coordinates has to be %d.",self->numDim);        Finley_setError(VALUE_ERROR,error_msg);
40     } else if (! numSamplesEqual(newX,1,self->numNodes)) {     } else if (! numSamplesEqual(newX,1,self->numNodes)) {
41           Finley_ErrorCode=VALUE_ERROR;           sprintf(error_msg,"__FILE__: number of give nodes must to be %d.",self->numNodes);
42           sprintf(Finley_ErrorMsg,"number of give nodes must to be %d.",self->numNodes);           Finley_setError(VALUE_ERROR,error_msg);
43     } else {     } else {
44            #pragma omp parallel for private(n) schedule(static)            #pragma omp parallel for private(n) schedule(static)
45            for (n=0;n<self->numNodes;n++)            for (n=0;n<self->numNodes;n++)
# Line 38  void Finley_NodeFile_setCoordinates(Finl Line 48  void Finley_NodeFile_setCoordinates(Finl
48  }  }
49  /*  /*
50  * $Log$  * $Log$
51  * Revision 1.1  2004/10/26 06:53:57  jgs  * Revision 1.2  2005/09/15 03:44:23  jgs
52  * Initial revision  * Merge of development branch dev-02 back to main trunk on 2005-09-15
53    *
54    * Revision 1.1.1.1.6.1  2005/09/07 06:26:20  gross
55    * the solver from finley are put into the standalone package paso now
56    *
57    * Revision 1.1.1.1  2004/10/26 06:53:57  jgs
58    * initial import of project esys2
59  *  *
60  * Revision 1.5  2004/08/26 12:03:52  gross  * Revision 1.5  2004/08/26 12:03:52  gross
61  * Some other bug in Finley_Assemble_gradient fixed.  * Some other bug in Finley_Assemble_gradient fixed.

Legend:
Removed from v.82  
changed lines
  Added in v.150

  ViewVC Help
Powered by ViewVC 1.1.26