/[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 775 by elspeth, Wed Mar 22 02:46:56 2006 UTC revision 776 by gross, Wed Jul 12 00:07:31 2006 UTC
# Line 33  void Finley_NodeFile_setCoordinates(Finl Line 33  void Finley_NodeFile_setCoordinates(Finl
33    char error_msg[LenErrorMsg_MAX];    char error_msg[LenErrorMsg_MAX];
34     int n;     int n;
35     if (getDataPointSize(newX)!=self->numDim)  {     if (getDataPointSize(newX)!=self->numDim)  {
36        sprintf(error_msg,"__FILE__: dimension of new coordinates has to be %d.",self->numDim);        sprintf(error_msg,"Finley_NodeFile_setCoordinates: dimension of new coordinates has to be %d.",self->numDim);
37        Finley_setError(VALUE_ERROR,error_msg);        Finley_setError(VALUE_ERROR,error_msg);
38     } else if (! numSamplesEqual(newX,1,self->numNodes)) {     } else if (! numSamplesEqual(newX,1,self->numNodes)) {
39           sprintf(error_msg,"__FILE__: number of give nodes must to be %d.",self->numNodes);           sprintf(error_msg,"Finley_NodeFile_setCoordinates: number of give nodes must to be %d.",self->numNodes);
40           Finley_setError(VALUE_ERROR,error_msg);           Finley_setError(VALUE_ERROR,error_msg);
41     } else {     } else {
42              Finley_increaseStatus(self);
43            #pragma omp parallel for private(n) schedule(static)            #pragma omp parallel for private(n) schedule(static)
44            for (n=0;n<self->numNodes;n++)            for (n=0;n<self->numNodes;n++)
45              Finley_copyDouble(self->numDim,getSampleData(newX,n),&(self->Coordinates[INDEX2(0,n,self->numDim)]));              Finley_copyDouble(self->numDim,getSampleData(newX,n),&(self->Coordinates[INDEX2(0,n,self->numDim)]));

Legend:
Removed from v.775  
changed lines
  Added in v.776

  ViewVC Help
Powered by ViewVC 1.1.26