/[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 123 by jgs, Fri Jul 8 04:08:13 2005 UTC revision 147 by jgs, Fri Aug 12 01:45:47 2005 UTC
# Line 115  void Finley_Assemble_CopyNodalData(Finle Line 115  void Finley_Assemble_CopyNodalData(Finle
115                    if (n>=0) Finley_copyDouble(numComps,getSampleData(in,nodes->degreeOfFreedom[i]),getSampleData(out,n));                    if (n>=0) Finley_copyDouble(numComps,getSampleData(in,nodes->degreeOfFreedom[i]),getSampleData(out,n));
116                }                }
117             }             }
118         } else if (in_data_type == FINLEY_REDUCED_DEGREES_OF_FREEDOM) {          } else if (in_data_type == FINLEY_REDUCED_DEGREES_OF_FREEDOM) {
119             if (out_data_type == FINLEY_REDUCED_DEGREES_OF_FREEDOM) {             if (out_data_type == FINLEY_REDUCED_DEGREES_OF_FREEDOM) {
120                #pragma omp parallel for private(n) schedule(static)                #pragma omp parallel for private(n) schedule(static)
121                for (n=0;n<nodes->reducedNumDegreesOfFreedom;n++)                for (n=0;n<nodes->reducedNumDegreesOfFreedom;n++)
122                      Finley_copyDouble(numComps,getSampleData(in,n),getSampleData(out,n));                      Finley_copyDouble(numComps,getSampleData(in,n),getSampleData(out,n));
123               } else if (out_data_type == FINLEY_DEGREES_OF_FREEDOM && numSamplesEqual(out,1,nodes->reducedNumDegreesOfFreedom)) {
124                  #pragma omp parallel for private(n) schedule(static)
125                  for (i=0;i<nodes->numNodes;i++) {
126                      n=nodes->reducedDegreeOfFreedom[i];
127                      if (n>=0) Finley_copyDouble(numComps,getSampleData(in,n),getSampleData(out,nodes->degreeOfFreedom[i]));
128                  }
129               } else if (out_data_type == FINLEY_NODES && numSamplesEqual(out,1,nodes->reducedNumDegreesOfFreedom)) {
130                  #pragma omp parallel for private(n) schedule(static)
131                  for (i=0;i<nodes->numNodes;i++) {
132                      n=nodes->reducedDegreeOfFreedom[i];
133                      if (n>=0) Finley_copyDouble(numComps,getSampleData(in,n),getSampleData(out,i));
134                  }
135             } else {             } else {
136               Finley_ErrorCode=TYPE_ERROR;               Finley_ErrorCode=TYPE_ERROR;
137               sprintf(Finley_ErrorMsg,"cannot copy from data on reduced degrees of freedom");               sprintf(Finley_ErrorMsg,"cannot copy from data on reduced degrees of freedom");
138             }             }
139        }          }
140     }     }
141     return;     return;
142  }  }
143  /*  /*
144   * $Log$   * $Log$
145     * Revision 1.3  2005/08/12 01:45:42  jgs
146     * erge of development branch dev-02 back to main trunk on 2005-08-12
147     *
148     * Revision 1.2.2.2  2005/08/09 02:23:12  gross
149     * print statement removed
150     *
151     * Revision 1.2.2.1  2005/08/03 09:55:33  gross
152     * ContactTest is passing now./mk install!
153     *
154   * Revision 1.2  2005/07/08 04:07:45  jgs   * Revision 1.2  2005/07/08 04:07:45  jgs
155   * Merge of development branch back to main trunk on 2005-07-08   * Merge of development branch back to main trunk on 2005-07-08
156   *   *

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

  ViewVC Help
Powered by ViewVC 1.1.26