TRUST 1.9.8
HPC thermohydraulic platform
Loading...
Searching...
No Matches
Lire_Ideas.h
1/****************************************************************************
2* Copyright (c) 2022, CEA
3* All rights reserved.
4*
5* Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
6* 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
7* 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.
8* 3. Neither the name of the copyright holder nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission.
9*
10* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
11* IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
12* OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
13*
14*****************************************************************************/
15
16#ifndef Lire_Ideas_included
17#define Lire_Ideas_included
18
19#include <Interprete_geometrique_base.h>
20
21extern "C"
22{
23#ifdef F77_Majuscule
24 //
25 // Subroutine LIREPREM
26 //
27 void F77DECLARE(LIREPREM)(const char* const,
28 int*,
29 int*,
30 int*,
31 int*,
32 int*,
33 int*,
34 int*,
35 int*);
36 //
37 // Subroutine LIREIDEAS
38 //
39 void F77DECLARE(LIREIDEAS)(const char* const,
40 int*,
41 double*,
42 double*,
43 double*,
44 int*,
45 int*,
46 int*,
47 int*,
48 int*,
49 int*,
50 int*,
51 int*,
52 int*,
53 int*,
54 int*);
55#else
56 //
57 // Subroutine lireprem
58 //
59 void F77DECLARE(lireprem)(const char* const,
60 int*,
61 int*,
62 int*,
63 int*,
64 int*,
65 int*,
66 int*,
67 int*);
68 //
69 // Subroutine lireideas
70 //
71 void F77DECLARE(lireideas)(const char* const,
72 int*,
73 double*,
74 double*,
75 double*,
76 int*,
77 int*,
78 int*,
79 int*,
80 int*,
81 int*,
82 int*,
83 int*,
84 int*,
85 int*,
86 int*);
87#endif
88}
89#ifndef F77_Majuscule
90inline void F77DECLARE(LIREPREM)(const char* const name,
91 int* i2,
92 int* i3,
93 int* i4,
94 int* i5,
95 int* i6,
96 int* i7,
97 int* i8,
98 int* i9)
99{
100 F77NAME(lireprem)(name, i2, i3, i4, i5, i6 , i7, i8, i9);
101}
102//
103#endif
104//
105#ifndef F77_Majuscule
106inline void F77DECLARE(LIREIDEAS)( const char* const name,
107 int* i1,
108 double* x,
109 double* y,
110 double* z,
111 int* i4,
112 int* i5,
113 int* i6,
114 int* i7,
115 int* i8,
116 int* i9,
117 int* i10,
118 int* i11,
119 int* i12,
120 int* i13,
121 int* i14)
122{
123
124 F77NAME(lireideas)(name, i1, x, y, z, i4, i5, i6, i7, i8,
125 i9, i10, i11, i12, i13, i14);
126}
127//
128#endif
129
130
131class Lire_Ideas : public Interprete_geometrique_base
132{
133
134 Declare_instanciable(Lire_Ideas);
135
136public :
137
138 Entree& interpreter_(Entree&) override;
139
140};
141
142
143#endif
144
Lire_Ideas
Definition Lire_Ideas.h:132
Lire_Ideas::interpreter_
Entree & interpreter_(Entree &) override
Definition Lire_Ideas.cpp:37
Objet_U::Entree
friend class Entree
Definition Objet_U.h:76