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

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

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

revision 1552 by gross, Thu May 8 08:52:41 2008 UTC revision 1628 by phornby, Fri Jul 11 13:12:46 2008 UTC
# Line 26  Line 26 
26  #endif  #endif
27    
28  void Finley_Assemble_CopyNodalData(Finley_NodeFile* nodes,escriptDataC* out,escriptDataC* in) {  void Finley_Assemble_CopyNodalData(Finley_NodeFile* nodes,escriptDataC* out,escriptDataC* in) {
29      dim_t n,i,k,l, mpiSize;      dim_t n,k,l, mpiSize;
30      dim_t numComps=getDataPointSize(out);      dim_t numComps=getDataPointSize(out);
31      Paso_Coupler *coupler=NULL;      Paso_Coupler *coupler=NULL;
32      type_t in_data_type=getFunctionSpaceType(in);      type_t in_data_type=getFunctionSpaceType(in);
# Line 108  void Finley_Assemble_CopyNodalData(Finle Line 108  void Finley_Assemble_CopyNodalData(Finle
108                }                }
109    
110             } else if (out_data_type == FINLEY_REDUCED_NODES) {             } else if (out_data_type == FINLEY_REDUCED_NODES) {
111                #pragma omp parallel for private(n,i) schedule(static)                #pragma omp parallel for private(n) schedule(static)
112                for (n=0;n<nodes->reducedNodesMapping->numTargets;n++) {                for (n=0;n<nodes->reducedNodesMapping->numTargets;n++) {
113                     memcpy(getSampleDataFast(out,n),                     memcpy(getSampleDataFast(out,n),
114                            getSampleDataFast(in,nodes->reducedNodesMapping->map[n]),                            getSampleDataFast(in,nodes->reducedNodesMapping->map[n]),
# Line 125  void Finley_Assemble_CopyNodalData(Finle Line 125  void Finley_Assemble_CopyNodalData(Finle
125    
126             } else if (out_data_type == FINLEY_REDUCED_DEGREES_OF_FREEDOM) {             } else if (out_data_type == FINLEY_REDUCED_DEGREES_OF_FREEDOM) {
127            int nComps = Paso_Distribution_getMyNumComponents(nodes->reducedDegreesOfFreedomDistribution);            int nComps = Paso_Distribution_getMyNumComponents(nodes->reducedDegreesOfFreedomDistribution);
128                #pragma omp parallel for private(n,i) schedule(static)                #pragma omp parallel for private(n) schedule(static)
129                for (n=0;n<nComps;n++) {                for (n=0;n<nComps;n++) {
130                     memcpy(getSampleDataFast(out,n),                     memcpy(getSampleDataFast(out,n),
131                            getSampleDataFast(in,nodes->reducedDegreesOfFreedomMapping->map[n]),                            getSampleDataFast(in,nodes->reducedDegreesOfFreedomMapping->map[n]),

Legend:
Removed from v.1552  
changed lines
  Added in v.1628

  ViewVC Help
Powered by ViewVC 1.1.26