Contents of /trunk/finley/src/Assemble_handelShapeMissMatch.c

Revision 616 - (show annotations)
Wed Mar 22 02:46:56 2006 UTC (13 years, 5 months ago) by elspeth
File MIME type: text/plain
File size: 6178 byte(s)
```Copyright added to more source files.

```
 1 /* 2 ************************************************************ 3 * Copyright 2006 by ACcESS MNRF * 4 * * 5 * http://www.access.edu.au * 6 * Primary Business: Queensland, Australia * 7 * Licensed under the Open Software License version 3.0 * 8 * http://www.opensource.org/licenses/osl-3.0.php * 9 * * 10 ************************************************************ 11 */ 12 13 /**************************************************************/ 14 15 /* assemblage routines: */ 16 17 /* these routines handel cases where there ia a miss match in the number of nodes and the number of shape funtion: */ 18 19 /* _in: V[N,numNodes0,numNodes1] is reduced into V[N,numShapes0,numShapes1] */ 20 /* _out: V[N,numShapes0,numShapes1] is expanded into V[N,numNodes0,numNodes1] */ 21 /* in both cases the leading dimenisons are unchanged */ 22 23 24 /**************************************************************/ 25 26 /* Copyrights by ACcESS Australia 2003,2004,2005 */ 27 /* Author: gross@access.edu.au */ 28 /* version: \$Id\$ */ 29 30 /**************************************************************/ 31 32 #include "Assemble.h" 33 34 /**************************************************************/ 35 36 /* this takes the mean value: */ 37 38 void Finley_Assemble_handelShapeMissMatch_Mean_in(dim_t N, dim_t numNodes0,dim_t numNodes1, double* V,dim_t numShapes0, dim_t numShapes1) { 39 dim_t l0=MIN(numShapes0,numNodes0-numShapes0); 40 dim_t l1=MIN(numShapes1,numNodes1-numShapes1); 41 dim_t i,k0,k1; 42 if (MAX(l0,l1)>0) { 43 if (numNodes1==numShapes1) { 44 for (k0=0;k00) { 69 if (numNodes1==numShapes1) { 70 for (k0=0;k00) { 106 if (numNodes1==numShapes1) { 107 for (k0=0;k00) { 134 if (numNodes1==numShapes1) { 135 for (k0=0;k0

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision