OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
constant.inc
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23
24 COMMON /CONST/
25C--------------------------------------
26C Integers
27C--------------------------------------
28 . INFINITY,ZERO,ONE ,TWO, THREE,FOUR,FIVE,SIX ,SEVEN, EIGHT,NINE,TEN,
29 . ELEVEN,TWELVE ,FOURTEEN,FIFTEEN,SIXTEEN,TWENTY, TWENTY4,TWENTY5,
30 . TWENTY7,THIRTY ,THIRTY2,THIRTY6,FOURTY,FOURTY5,FOURTY8,
31 . FIFTY, SIXTY4,EIGHTY,EIGHTY16,EIGHTY19,
32 . HUNDRED,HUNDRED28,HUNDRED50,HUNDRED80,THREE100,TWOHUNDRED25,TWOHUNDRED95,
33 . TWOHUNDRED98,TWOHUNDRED93, THREEHUNDRED24,FIVEHUNDRED12,THREE1000,
34 . NINTY,
35C--------------------------------------
36C 10^n
37C--------------------------------------
38 . EP02,EP03,EP04,EP05,EP06,EP07,EP08 ,EP09 ,EP10,EP11,EP12,
39 . EP13,EP14,EP15,EP16,EP17,EP18,EP19,EP20,EP29,EP30,EP31,
40 . EP35,EP36,EP37,
41C--------------------------------------
42C 10^-n
43C--------------------------------------
44 . EM01,EM02,EM03,EM04,EM05,EM06,EM07,EM08,EM09,EM10,EM11,
45 . EM12,EM13,EM14,EM15,EM16,EM17,EM18,EM19,EM20,EM30,EM35,
46C--------------------------------------
47C m10^-n
48C--------------------------------------
49 . ZEP1,ZEP2 ,ZEP3 ,ZEP4,ZEP5,ZEP6,ZEP7,ZEP8,ZEP9,ZEP01,
50 . ZEP02,ZEP03,ZEP04,ZEP05,ZEP06,ZEP07,ZEP08,ZEP09,TWOEM3,
51 . THREEEM3,FOUREM3,FIVEEM3,SIXEM3,SEVENEM3,EIGHTEM3,
52 . NINEEM3,TWOEM4,THREEEM4,FOUREM4,FIVEEM4,SIXEM4,
53 . SEVENEM4,EIGHTEM4,NINEEM4,TWOEM5,THREEEM5,FOUREM5,
54 . FIVEEM5,SIXEM5,SEVENEM5,EIGHTEM5,NINEEM5,TWOEM6,
55 . THREEEM6,FOUREM6,FIVEEM6,SIXEM6,SEVENEM6,EIGHTEM6 ,
56 . NINEEM6,
57C--------------------------------------
58C m10^n
59C--------------------------------------
60 . TWOEP30, THREEEP30,FOUREP30,ZEP9EP30,
61C--------------------------------------
62C Fractions
63C--------------------------------------
64 . HALF,THIRD,FOURTH,ONE_FIFTH,ONE_OVER_6,ONE_OVER_8,ONE_OVER_9,ONE_OVER_12,
65 . ONE_OVER_16,ONE_OVER_64,ONE_OVER_512,TWO_THIRD,THREE_HALF,THREE_OVER_4,TRHEE_OVER_14,
66 . FOUR_OVER_3,FOUR_OVER_5,FIVE_OVER_3,FIVE_OVER_4,FIVE_OVER_6 ,SIX_OVER_5,SEVEN_HALF,
67 . SEVEN_OVER_5,SEVEN_OVER_9,NINE_OVER_2,NINE_OVER_20,
68C--------------------------------------
69C 0.xxxx
70C--------------------------------------
71 . ZEP11,ZEP12,ZEP13,ZEP14,ZEP15,ZEP16,ZEP17,ZEP18,ZEP19,ZEP21,
72 . ZEP23,ZEP25,ZEP26,ZEP213,ZEP29,ZEP33,ZEP34,ZEP35,ZEP37,ZEP38,
73 . ZEP333,ZEP373,ZEP41,ZEP43,ZEP45,ZEP46,ZEP47,ZEP499,ZEP4187,
74 . ZEP62,ZEP65,ZEP66,ZEP67,ZEP71,ZEP74,ZEP707,ZEP81,ZEP82,ZEP84,
75 . ZEP85,ZEP87,ZEP89,ZEP92,ZEP93,ZEP94,ZEP95,ZEP96,ZEP97,ZEP98,ZEP99,
76 . ZEP995,ZEP997,ZEP999,ZEP9999,ZEP99999,ZEP931,ZEP015,ZEP015625,
77 . ZEP025,ZEP037,ZEP072169,ZEP075,ZEP475,
78C--------------------------------------
79C 1.xxxx
80C--------------------------------------
81 . ONEP01,ONEP001,ONEP0001,ONEP00001,ONEP02,ONEP03,ONEP04,ONEP05,ONEP06,
82 . ONEP08,ONEP09,ONEP1,ONEP11,ONEP12,ONEP13,ONEP14,ONEP15 ,ONEP16 ,ONEP17,
83 . ONEP18,ONEP19,ONEP136,ONEP138,ONEP2,ONEP21,ONEP23,ONEP24,ONEP25,ONEP26,
84 . ONEP27,ONEP28,ONEP251,ONEP252,ONEP3,ONEP31,ONEP32,ONEP33,ONEP34,ONEP35,
85 . ONEP36,ONEP37,ONEP38,ONEP39,ONEP333,ONEP3348,ONEP369,ONEP4,ONEP41,ONEP42,
86 . ONEP44,ONEP45,ONEP46,ONEP48,ONEP49,ONEP414,ONEP484,ONEP5 ,ONEP51,ONEP52,
87 . ONEP57,ONEP59,ONEP6,ONEP62,ONEP65,ONEP66,ONEP67,ONEP68,ONEP7,ONEP72,ONEP73,
88 . ONEP75,ONEP78,ONEP732,ONEP8,ONEP82,ONEP84,ONEP88,ONEP833,ONEP8688,ONEP9,
89 . ONEP92,ONEP96,ONEP98,
90C--------------------------------------
91C *.xxxx,
92C--------------------------------------
93 . TWOP03,TWOP05,TWOP06,TWOP07,TWOP08,TWOP1,TWOP2,TWOP30,
94 . TWOP4,TWOP5,TWOP60,TWOP8,TWOP11,TWOP12,TWOP13,TWOP16,
95 . TWOP19,TWOP23,TWOP24,TWOP25,TWOP33,TWOP38,TWOP45,TWOP47,
96 . TWOP52,TWOP83,TWOP84,TWOP85,TWOP185,TWOP261,TWOP645,
97 . THREEP02,THREEP06,THREEP14,THREEP15,THREEP25,THREEP27,THREEP44,
98 . THREEP46,THREEP52,THREEP72,THREEP76,THREEP8,THREEP94,THREEP266,
99 . THREEP464,THREEP4641,FOURP186,FOURP40,FOURP76,FIVEP5,
100 . FIVEP56,FIVEP76,SIP2832,NINEP24,NINEP38,NINEP793,ELEVENP5,TWELVEP6,
101 . FOURTEENP2,SIXTEENP5,O88P9844,ONEP3EM5,ONEP001EM32,NINEP637EM5,
102 . EIGHTP314EM5,ONEP1EP30,ONEP2EP30,ZEP999EP31,
103C--------------------------------------
104C fractions
105C--------------------------------------
106 . ZEP426667,ZEP222,ZEP00666666667,ZEP01666666667,ZEP444,ONEP222,
107 . ONEP8333,TWOP444,TWOP6666666667,TWOP6667,FIVEP333,
108 . ZEP54,ZEP1381966,ZEP5854102,
109C--------------------------------------
110C Physics
111C--------------------------------------
112 . R_IGC, STEFBOLTZ,
113C--------------------------------------
114C Maths
115C--------------------------------------
116 . SQR2,SQR3,SQR5,SQR6,SQR7,SQR3_2,SQR4_3,SQR16_3,PI,INVPI,
117C--------------------------------------
118C alias
119C--------------------------------------
120 . EP9,ZEP80,ZEP90,UNP20,UNP30,UNP70,
121 . UNP90,UNEM3,UNEM4,UNEM5,UNEM6,EM3,EM4,
122 . EM5,EM6,EM7,EM8,EM9,TWOEM2,FIVEEM2,NINEEM2,
123C--------------------------------------
124 . VAR1,VAR2 , VAR3, VAR4 , VAR5, VAR6, VAR7, VAR8, VAR9,VAR10,
125 . VAR11,VAR12,VAR13, VAR14,VAR15,VAR16,VAR17,VAR18,VAR19,VAR20,
126 . VAR22,VAR23,VAR24,VAR25,VAR26,VAR27,VAR28, VAR29,
127 . VAR30,VAR31,VAR32,VAR33, VAR34,VAR35,VAR36,VAR37,VAR38,VAR39,
128 . VAR40,VAR41,VAR42,VAR43, VAR44,VAR45,VAR46,VAR47,VAR48,VAR49,
129 . VAR50,VAR51,VAR52,VAR53, VAR54,VAR56,VAR57,VAR58,VAR59,VAR60,
130 . VAR61,VAR62,VAR63,VAR64, VAR65,VAR66,VAR67
131C------------------------------------------------------------------------
132 my_real
133C--------------------------------------
134C Integers
135C--------------------------------------
136 . INFINITY,ZERO,ONE ,TWO, THREE,FOUR,FIVE,SIX ,SEVEN, EIGHT,NINE,TEN,
137 . ELEVEN,TWELVE ,FOURTEEN,FIFTEEN,SIXTEEN,TWENTY, TWENTY4,TWENTY5,
138 . TWENTY7,THIRTY ,THIRTY2,THIRTY6,FOURTY,FOURTY5,FOURTY8,
139 . FIFTY, SIXTY4,EIGHTY,EIGHTY16,EIGHTY19,
140 . HUNDRED,HUNDRED28,HUNDRED50,HUNDRED80,THREE100,TWOHUNDRED25,TWOHUNDRED95,
141 . TWOHUNDRED98,TWOHUNDRED93, THREEHUNDRED24,FIVEHUNDRED12,THREE1000,
142 . NINTY,
143C--------------------------------------
144C 10^n
145C--------------------------------------
146 . EP02,EP03,EP04,EP05,EP06,EP07,EP08 ,EP09 ,EP10,EP11,EP12,
147 . EP13,EP14,EP15,EP16,EP17,EP18,EP19,EP20,EP29,EP30,EP31,
148 . EP35,EP36,EP37,
149C--------------------------------------
150C 10^-n
151C--------------------------------------
152 . EM01,EM02,EM03,EM04,EM05,EM06,EM07,EM08,EM09,EM10,EM11,
153 . EM12,EM13,EM14,EM15,EM16,EM17,EM18,EM19,EM20,EM30,EM35,
154C--------------------------------------
155C m10^-n
156C--------------------------------------
157 . ZEP1,ZEP2 ,ZEP3 ,ZEP4,ZEP5,ZEP6,ZEP7,ZEP8,ZEP9,ZEP01,
158 . ZEP02,ZEP03,ZEP04,ZEP05,ZEP06,ZEP07,ZEP08,ZEP09,TWOEM3,
159 . THREEEM3,FOUREM3,FIVEEM3,SIXEM3,SEVENEM3,EIGHTEM3,
160 . NINEEM3,TWOEM4,THREEEM4,FOUREM4,FIVEEM4,SIXEM4,
161 . SEVENEM4,EIGHTEM4,NINEEM4,TWOEM5,THREEEM5,FOUREM5,
162 . FIVEEM5,SIXEM5,SEVENEM5,EIGHTEM5,NINEEM5,TWOEM6,
163 . THREEEM6,FOUREM6,FIVEEM6,SIXEM6,SEVENEM6,EIGHTEM6 ,
164 . NINEEM6,
165C--------------------------------------
166C m10^n
167C--------------------------------------
168 . TWOEP30, THREEEP30,FOUREP30,ZEP9EP30,
169C--------------------------------------
170C Fractions
171C--------------------------------------
172 . HALF,THIRD,FOURTH,ONE_FIFTH,ONE_OVER_6,ONE_OVER_8,ONE_OVER_9,ONE_OVER_12,
173 . ONE_OVER_16,ONE_OVER_64,ONE_OVER_512,TWO_THIRD,THREE_HALF,THREE_OVER_4,TRHEE_OVER_14,
174 . FOUR_OVER_3,FOUR_OVER_5 ,FIVE_OVER_3,FIVE_OVER_4,FIVE_OVER_6 ,SIX_OVER_5,SEVEN_HALF,
175 . SEVEN_OVER_5,SEVEN_OVER_9,NINE_OVER_2,NINE_OVER_20,
176C--------------------------------------
177C 0.xxxx
178C--------------------------------------
179 . ZEP11,ZEP12,ZEP13,ZEP14,ZEP15,ZEP16,ZEP17,ZEP18,ZEP19,ZEP21,
180 . ZEP23,ZEP25,ZEP26,ZEP213,ZEP29,ZEP33,ZEP34,ZEP35,ZEP37,ZEP38,
181 . ZEP333,ZEP373,ZEP41,ZEP43,ZEP45,ZEP46,ZEP47,ZEP499,ZEP4187,
182 . ZEP62,ZEP65,ZEP66,ZEP67,ZEP71,ZEP74,ZEP707,ZEP81,ZEP82,ZEP84,
183 . ZEP85,ZEP87,ZEP89,ZEP92,ZEP93,ZEP94,ZEP95,ZEP96,ZEP97,ZEP98,ZEP99,
184 . ZEP995,ZEP997,ZEP999,ZEP9999,ZEP99999,ZEP931,ZEP015,ZEP015625,
185 . ZEP025,ZEP037,ZEP072169,ZEP075,ZEP475,
186C--------------------------------------
187C 1.xxxx
188C--------------------------------------
189 . ONEP01,ONEP001,ONEP0001,ONEP00001,ONEP02,ONEP03,ONEP04,ONEP05,ONEP06,
190 . ONEP08,ONEP09,ONEP1,ONEP11,ONEP12,ONEP13,ONEP14,ONEP15 ,ONEP16 ,ONEP17,
191 . ONEP18,ONEP19,ONEP136,ONEP138,ONEP2,ONEP21,ONEP23,ONEP24,ONEP25,ONEP26,
192 . ONEP27,ONEP28,ONEP251,ONEP252,ONEP3,ONEP31,ONEP32,ONEP33,ONEP34,ONEP35,
193 . ONEP36,ONEP37,ONEP38,ONEP39,ONEP333,ONEP3348,ONEP369,ONEP4,ONEP41,ONEP42,
194 . ONEP44,ONEP45,ONEP46,ONEP48,ONEP49,ONEP414,ONEP484,ONEP5 ,ONEP51,ONEP52,
195 . ONEP57,ONEP59,ONEP6,ONEP62,ONEP65,ONEP66,ONEP67,ONEP68,ONEP7,ONEP72,ONEP73,
196 . ONEP75,ONEP78,ONEP732,ONEP8,ONEP82,ONEP84,ONEP88,ONEP833,ONEP8688,ONEP9,
197 . ONEP92,ONEP96,ONEP98,
198C--------------------------------------
199C *.xxxx,
200C--------------------------------------
201 . TWOP03,TWOP05,TWOP06,TWOP07,TWOP08,TWOP1,TWOP2,TWOP30,
202 . TWOP4,TWOP5,TWOP60,TWOP8,TWOP11,TWOP12,TWOP13,TWOP16,
203 . TWOP19,TWOP23,TWOP24,TWOP25,TWOP33,TWOP38,TWOP45,TWOP47,
204 . TWOP52,TWOP83,TWOP84,TWOP85,TWOP185,TWOP261,TWOP645,
205 . THREEP02,THREEP06,THREEP14,THREEP15,THREEP25,THREEP27,THREEP44,
206 . THREEP46,THREEP52,THREEP72,THREEP76,THREEP8,THREEP94,THREEP266,
207 . THREEP464,THREEP4641,FOURP186,FOURP40,FOURP76,FIVEP5,
208 . FIVEP56,FIVEP76,SIP2832,NINEP24,NINEP38,NINEP793,ELEVENP5,TWELVEP6,
209 . FOURTEENP2,SIXTEENP5,O88P9844,ONEP3EM5,ONEP001EM32,NINEP637EM5,
210 . EIGHTP314EM5,ONEP1EP30,ONEP2EP30,ZEP999EP31,
211C--------------------------------------
212C Fractions
213C--------------------------------------
214 . ZEP426667,ZEP222,ZEP00666666667,ZEP01666666667,ZEP444,ONEP222,
215 . ONEP8333,TWOP444,TWOP6666666667,TWOP6667,FIVEP333,
216 . ZEP54,ZEP1381966,ZEP5854102,
217C--------------------------------------
218C Physics
219C--------------------------------------
220 . R_IGC, STEFBOLTZ,
221C--------------------------------------
222C Math
223C--------------------------------------
224 . SQR2,SQR3,SQR5,SQR6,SQR7,SQR3_2,SQR4_3,SQR16_3,PI,INVPI,
225C--------------------------------------
226C alias
227C--------------------------------------
228 . EP9,ZEP80,ZEP90,UNP20,UNP30,UNP70,
229 . UNP90,UNEM3,UNEM4,UNEM5,UNEM6,EM3,EM4,
230 . EM5,EM6,EM7,EM8,EM9,TWOEM2,FIVEEM2,NINEEM2,
231C--------------------------------------
232 . VAR1,VAR2 , VAR3, VAR4 , VAR5, VAR6, VAR7, VAR8, VAR9,VAR10,
233 . VAR11,VAR12,VAR13, VAR14,VAR15,VAR16,VAR17,VAR18,VAR19,VAR20,
234 . VAR22,VAR23,VAR24,VAR25,VAR26,VAR27,VAR28, VAR29,
235 . VAR30,VAR31,VAR32,VAR33, VAR34,VAR35,VAR36,VAR37,VAR38,VAR39,
236 . VAR40,VAR41,VAR42,VAR43, VAR44,VAR45,VAR46,VAR47,VAR48,VAR49,
237 . VAR50,VAR51,VAR52,VAR53, VAR54,VAR56,VAR57,VAR58,VAR59,VAR60,
238 . VAR61,VAR62,VAR63,VAR64, VAR65,VAR66,VAR67
ONE
#define ONE
Definition PBtools.h:64
TWO
#define TWO
Definition PBtools.h:65
ZERO
#define ZERO
Definition PBtools.h:66
PI
#define PI
Definition c_h3d_create_rwalls.cpp:71
my_real
#define my_real
Definition cppsort.cpp:32
the
end diagonal values have been computed in the(sparse) matrix id.SOL
n
n
Definition schur_example.m:9