0024057: Eliminate compiler warning C4100 in MSVC++ with warning level 4
[occt.git] / src / IGESAppli / IGESAppli_FiniteElement.cxx
1 // Created by: CKY / Contract Toubro-Larsen
2 // Copyright (c) 1993-1999 Matra Datavision
3 // Copyright (c) 1999-2012 OPEN CASCADE SAS
4 //
5 // The content of this file is subject to the Open CASCADE Technology Public
6 // License Version 6.5 (the "License"). You may not use the content of this file
7 // except in compliance with the License. Please obtain a copy of the License
8 // at http://www.opencascade.org and read it completely before using this file.
9 //
10 // The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
11 // main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
12 //
13 // The Original Code and all software distributed under the License is
14 // distributed on an "AS IS" basis, without warranty of any kind, and the
15 // Initial Developer hereby disclaims all such warranties, including without
16 // limitation, any warranties of merchantability, fitness for a particular
17 // purpose or non-infringement. Please see the License for the specific terms
18 // and conditions governing the rights and limitations under the License.
19
20 //--------------------------------------------------------------------
21 //--------------------------------------------------------------------
22
23 #include <IGESAppli_FiniteElement.ixx>
24 #include <Standard_DimensionMismatch.hxx>
25 #include <IGESAppli.hxx>
26
27 IGESAppli_FiniteElement::IGESAppli_FiniteElement ()    {  }
28
29
30     void  IGESAppli_FiniteElement::Init
31   (const Standard_Integer aType,
32    const Handle(IGESAppli_HArray1OfNode)&  allNodes,
33    const Handle(TCollection_HAsciiString)& aName)
34 {
35   if (allNodes->Lower() != 1)
36     Standard_DimensionMismatch::Raise("IGESAppli_FiniteElement : Init");
37   theTopology = aType;
38   theNodes    = allNodes;
39   theName     = aName;
40   InitTypeAndForm(136,0);
41 }
42
43     Standard_Integer  IGESAppli_FiniteElement::Topology () const
44 {
45   return theTopology;
46 }
47
48     Handle(IGESAppli_Node)  IGESAppli_FiniteElement::Node
49   (const Standard_Integer Index) const
50 {
51   return theNodes->Value(Index);
52 }
53
54     Handle(TCollection_HAsciiString)  IGESAppli_FiniteElement::Name () const
55 {
56   return theName;
57 }
58
59     Standard_Integer  IGESAppli_FiniteElement::NbNodes () const
60 {
61   return theNodes->Length();
62 }