/[escript]/branches/domexper/dudley/src/NodeFile.c
ViewVC logotype

Annotation of /branches/domexper/dudley/src/NodeFile.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 201 - (hide annotations)
Wed Nov 23 04:10:21 2005 UTC (13 years, 5 months ago) by jgs
Original Path: trunk/finley/src/finley/NodeFile.c
File MIME type: text/plain
File size: 2726 byte(s)
copy finleyC and CPPAdapter to finley and finley/CPPAdapter to
facilitate scons builds

1 jgs 150 /*
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 jgs 82 /**************************************************************/
16     /* */
17     /* Finley: Mesh : NodeFile */
18     /* */
19     /* allocates and deallocates node files */
20     /* */
21     /**************************************************************/
22    
23     /* Author: gross@access.edu.au */
24     /* Version: $Id$ */
25    
26     /**************************************************************/
27    
28     #include "NodeFile.h"
29    
30     /**************************************************************/
31    
32     /* allocates a node file to hold nodes */
33     /* use Finley_NodeFile_allocTable to allocate the node table (Id,Coordinatess). */
34    
35     Finley_NodeFile* Finley_NodeFile_alloc(int numDim){
36     Finley_NodeFile *out;
37    
38     /* allocate the return value */
39    
40 jgs 102 out=MEMALLOC(1,Finley_NodeFile);
41 jgs 82 if (Finley_checkPtr(out)) return NULL;
42     out->numNodes=0;
43     out->numDegreesOfFreedom=0;
44     out->reducedNumDegreesOfFreedom=0;
45     out->reducedNumNodes=0;
46     out->numDim=numDim;
47     out->Id=NULL;
48     out->Tag=NULL;
49     out->Coordinates=NULL;
50     out->degreeOfFreedom=NULL;
51     out->reducedDegreeOfFreedom=NULL;
52     out->toReduced=NULL;
53     return out;
54     }
55    
56     /* deallocates a node file: */
57    
58     void Finley_NodeFile_dealloc(Finley_NodeFile* in) {
59     if (in!=NULL) {
60     #ifdef Finley_TRACE
61     printf("node file is deallocated.\n");
62     #endif
63     Finley_NodeFile_deallocTable(in);
64     MEMFREE(in);
65     }
66     }
67     /*
68     * $Log$
69 jgs 150 * Revision 1.5 2005/09/15 03:44:23 jgs
70     * Merge of development branch dev-02 back to main trunk on 2005-09-15
71     *
72     * Revision 1.4.2.1 2005/09/07 06:26:20 gross
73     * the solver from finley are put into the standalone package paso now
74     *
75 jgs 102 * Revision 1.4 2004/12/15 07:08:33 jgs
76 jgs 97 * *** empty log message ***
77 jgs 82 *
78 jgs 97 *
79 jgs 82 *
80     */

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26