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 my_real, PARAMETER :: ZERO = 0.
24 my_real, PARAMETER :: ONE = 1.
25
26
27 COMMON /CONST/
28C--------------------------------------
29C Integers
30C--------------------------------------
31 . TWO, THREE,FOUR,FIVE,SIX ,SEVEN, EIGHT,NINE,TEN,
32 . ELEVEN,TWELVE ,FOURTEEN,FIFTEEN,SIXTEEN,TWENTY, TWENTY4,TWENTY5,
33 . TWENTY7,THIRTY ,THIRTY2,THIRTY6,FOURTY,FOURTY5,FOURTY8,
34 . FIFTY, SIXTY4,EIGHTY,EIGHTY16,EIGHTY19,
35 . HUNDRED,HUNDRED28,HUNDRED50,HUNDRED80,THREE100,TWOHUNDRED25,TWOHUNDRED95,
36 . TWOHUNDRED98,TWOHUNDRED93, THREEHUNDRED24,FIVEHUNDRED12,THREE1000,
37 . TWO1000,EIGHTEEN,CINQUANTE4,
38C--------------------------------------
39C 10^n
40C--------------------------------------
41 . EP02,EP03,EP04,EP05,EP06,EP07,EP08 ,EP09 ,EP10,EP11,EP12,
42 . EP13,EP14,EP15,EP16,EP17,EP18,EP19,EP20,EP29,EP30,EP31,
43 . EP35,EP36,EP37,
44C--------------------------------------
45C 10^-n
46C--------------------------------------
47 . EM01,EM02,EM03,EM04,EM05,EM06,EM07,EM08,EM09,EM10,EM11,
48 . EM12,EM13,EM14,EM15,EM16,EM17,EM18,EM19,EM20,EM30,EM35,
49C--------------------------------------
50C m10^-n
51C--------------------------------------
52 . ZEP1,ZEP2 ,ZEP3 ,ZEP4,ZEP5,ZEP6,ZEP7,ZEP8,ZEP9,ZEP01,
53 . ZEP02,ZEP03,ZEP04,ZEP05,ZEP06,ZEP07,ZEP08,ZEP09,TWOEM3,
54 . THREEEM3,FOUREM3,FIVEEM3,SIXEM3,SEVENEM3,EIGHTEM3,
55 . NINEEM3,TWOEM4,THREEEM4,FOUREM4,FIVEEM4,SIXEM4,
56 . SEVENEM4,EIGHTEM4,NINEEM4,TWOEM5,THREEEM5,FOUREM5,
57 . FIVEEM5,SIXEM5,SEVENEM5,EIGHTEM5,NINEEM5,TWOEM6,
58 . THREEEM6,FOUREM6,FIVEEM6,SIXEM6,SEVENEM6,EIGHTEM6 ,
59 . NINEEM6,
60C--------------------------------------
61C m10^n
62C--------------------------------------
63 . TWOEP30, THREEEP30,FOUREP30,ZEP9EP30,ONEP1EP30,ONEP2EP30,
64C--------------------------------------
65C Fractions
66C--------------------------------------
67 . HALF,THIRD,FOURTH,ONE_FIFTH,ONE_OVER_6,ONE_OVER_8,ONE_OVER_9,ONE_OVER_12,
68 . ONE_OVER_16,ONE_OVER_64,ONE_OVER_512,TWO_THIRD,THREE_HALF,THREE_OVER_4,TRHEE_OVER_14,TSEIZE,
69 . FOUR_OVER_3,FOUR_OVER_5,QNEUF,FIVE_OVER_3,FIVE_OVER_4,FIVE_OVER_6 ,SIX_OVER_5,SEVEN_HALF,
70 . SEVEN_OVER_5,SEVEN_OVER_9,NINE_OVER_2,NSEIZE,NINE_OVER_20,
71C--------------------------------------
72C 0.xxxx
73C--------------------------------------
74 . ZEP11,ZEP12,ZEP13,ZEP14,ZEP15,ZEP16,ZEP17,ZEP18,ZEP19,ZEP21,
75 . ZEP23,ZEP25,ZEP26,ZEP213,ZEP29,ZEP33,ZEP34,ZEP35,ZEP37,ZEP38,
76 . ZEP333,ZEP373,ZEP41,ZEP43,ZEP45,ZEP46,ZEP47,ZEP499,ZEP4187,
77 . ZEP62,ZEP65,ZEP66,ZEP67,ZEP71,ZEP74,ZEP707,ZEP81,ZEP82,ZEP84,
78 . ZEP85,ZEP87,ZEP89,ZEP92,ZEP93,ZEP94,ZEP95,ZEP96,ZEP97,ZEP99,
79 . ZEP995,ZEP997,ZEP999,ZEP9999,ZEP99999,ZEP931,ZEP015,ZEP015625,
80 . ZEP025,ZEP037,ZEP072169,ZEP075,
81C--------------------------------------
82C 1.xxxx
83C--------------------------------------
84 . ONEP01,ONEP001,ONEP0001,ONEP00001,ONEP02,ONEP03,ONEP04,ONEP05,ONEP06,
85 . ONEP08,ONEP09,ONEP1,ONEP11,ONEP12,ONEP13,ONEP14,ONEP15 ,ONEP16 ,ONEP17,
86 . ONEP18,ONEP19,ONEP136,ONEP138,ONEP2,ONEP21,ONEP23,ONEP24,ONEP25,ONEP26,
87 . ONEP27,ONEP28,ONEP251,ONEP252,ONEP3,ONEP31,ONEP32,ONEP33,ONEP34,ONEP35,
88 . ONEP36,ONEP37,ONEP38,ONEP39,ONEP333,ONEP3348,ONEP369,ONEP4,ONEP41,ONEP42,
89 . ONEP44,ONEP45,ONEP46,ONEP48,ONEP49,ONEP414,ONEP484,ONEP5 ,ONEP51,ONEP52,
90 . ONEP57,ONEP59,ONEP6,ONEP62,ONEP65,ONEP66,ONEP67,ONEP68,ONEP7,ONEP72,ONEP73,
91 . ONEP75,ONEP78,ONEP732,ONEP8,ONEP82,ONEP84,ONEP88,ONEP833,ONEP8688,
92 . ONEP9,ONEP92,ONEP96,ONEP98,
93C--------------------------------------
94C *.xxxx,
95C--------------------------------------
96 . TWOP03,TWOP05,TWOP06,TWOP07,TWOP08,TWOP1,TWOP2,
97 . TWOP30,TWOP4,TWOP5,TWOP60,TWOP8,TWOP11,TWOP12,TWOP13,
98 . TWOP16,TWOP19,TWOP23,TWOP24,TWOP25,TWOP33,TWOP38,TWOP45,
99 . TWOP47,TWOP52,TWOP83,TWOP84,TWOP85,TWOP185,TWOP261,
100 . TWOP645,THREEP02,THREEP06,THREEP14,THREEP15,THREEP25,THREEP27,
101 . THREEP44,THREEP46,THREEP52,THREEP72,THREEP76,THREEP8,THREEP94,
102 . THREEP266,THREEP464,THREEP4641,FOURP186,FOURP40,FOURP76,
103 . FIVEP5,FIVEP56,FIVEP76,SIP2832,NINEP24,NINEP38,NINEP793,ELEVENP5,
104 . TWELVEP6,FOURTEENP2,SIXTEENP5,O88P9844,ONZEP225,
105 . NINEP637EM5,ZEP999EP31,
106 . ZEP54,ZEP1381966,ZEP5854102,ONEP001EM32,ONEP3EM5,EIGHTP314EM5,
107C--------------------------------------
108C fractions
109C--------------------------------------
110 . ZEP426667,ZEP222,ZEP00666666667,ZEP01666666667 ,ZEP444,ONEP222,
111 . ONEP8333,TWOP444,TWOP6666666667,TWOP6667,FIVEP333,
112C--------------------------------------
113C--------------------------------------
114C Physics
115C--------------------------------------
116 . R_IGC,
117C--------------------------------------
118C Maths
119C--------------------------------------
120 . SQR2,SQR3,SQR5,SQR6,SQR7,SQR3_2,SQR4_3,SQR16_3,PI,INVPI,
121C--------------------------------------
122C alias
123C--------------------------------------
124 . EM3,EM4,EM5,EM6,EM7,EM8,EM9,EP9,
125 . FIVEEM2,TWOEM2,NINEEM2,ZEP80,UNP20,UNP30,UNP70,UNP90,
126 . VAR1,VAR2 , VAR3, VAR4 , VAR5, VAR6, VAR7, VAR8, VAR9,VAR10,
127 . VAR11,VAR12,VAR13, VAR14,VAR15,VAR16,VAR17,VAR18,VAR19,VAR20,
128 . VAR22,VAR23,VAR24,VAR25,VAR26,VAR27,VAR28, VAR29,
129 . VAR30,VAR31,VAR32,VAR33, VAR34,VAR35,VAR36,VAR37,VAR38,VAR39,
130 . VAR40,VAR41,VAR42,VAR43, VAR44,VAR45,VAR46,VAR47,VAR48,VAR49,
131 . VAR50,VAR51,VAR52,VAR53, VAR54,VAR56,VAR57,VAR58,VAR59,VAR60,
132 . VAR61,VAR62,VAR63,VAR64, VAR65,VAR66,VAR67
133C real
134 my_real
135C--------------------------------------
136C Integers
137C--------------------------------------
138 . TWO, THREE,FOUR,FIVE,SIX ,SEVEN, EIGHT,NINE,TEN,
139 . ELEVEN,TWELVE ,FOURTEEN,FIFTEEN,SIXTEEN,TWENTY, TWENTY4,TWENTY5,
140 . TWENTY7,THIRTY ,THIRTY2,THIRTY6,FOURTY,FOURTY5,FOURTY8,
141 . FIFTY, SIXTY4,EIGHTY,EIGHTY16,EIGHTY19,
142 . HUNDRED,HUNDRED28,HUNDRED50,HUNDRED80,THREE100,TWOHUNDRED25,TWOHUNDRED95,
143 . TWOHUNDRED98,TWOHUNDRED93, THREEHUNDRED24,FIVEHUNDRED12,THREE1000,
144 . TWO1000,EIGHTEEN,CINQUANTE4,
145C--------------------------------------
146C 10^n
147C--------------------------------------
148 . EP02,EP03,EP04,EP05,EP06,EP07,EP08 ,EP09 ,EP10,EP11,EP12,
149 . EP13,EP14,EP15,EP16,EP17,EP18,EP19,EP20,EP29,EP30,EP31,
150 . EP35,EP36,EP37,
151C--------------------------------------
152C 10^-n
153C--------------------------------------
154 . EM01,EM02,EM03,EM04,EM05,EM06,EM07,EM08,EM09,EM10,EM11,
155 . EM12,EM13,EM14,EM15,EM16,EM17,EM18,EM19,EM20,EM30,EM35,
156C--------------------------------------
157C m10^-n
158C--------------------------------------
159 . ZEP1,ZEP2 ,ZEP3 ,ZEP4,ZEP5,ZEP6,ZEP7,ZEP8,ZEP9,ZEP01,
160 . ZEP02,ZEP03,ZEP04,ZEP05,ZEP06,ZEP07,ZEP08,ZEP09,TWOEM3,
161 . THREEEM3,FOUREM3,FIVEEM3,SIXEM3,SEVENEM3,EIGHTEM3,
162 . NINEEM3,TWOEM4,THREEEM4,FOUREM4,FIVEEM4,SIXEM4,
163 . SEVENEM4,EIGHTEM4,NINEEM4,TWOEM5,THREEEM5,FOUREM5,
164 . FIVEEM5,SIXEM5,SEVENEM5,EIGHTEM5,NINEEM5,TWOEM6,
165 . THREEEM6,FOUREM6,FIVEEM6,SIXEM6,SEVENEM6,EIGHTEM6 ,
166 . NINEEM6,
167C--------------------------------------
168C m10^n
169C--------------------------------------
170 . TWOEP30, THREEEP30,FOUREP30,ZEP9EP30,ONEP1EP30,ONEP2EP30,
171C--------------------------------------
172C Fractions
173C--------------------------------------
174 . HALF,THIRD,FOURTH,ONE_FIFTH,ONE_OVER_6,ONE_OVER_8,ONE_OVER_9,ONE_OVER_12,
175 . ONE_OVER_16,ONE_OVER_64,ONE_OVER_512,TWO_THIRD,THREE_HALF,THREE_OVER_4,TRHEE_OVER_14,TSEIZE,
176 . FOUR_OVER_3,FOUR_OVER_5,QNEUF,FIVE_OVER_3,FIVE_OVER_4,FIVE_OVER_6 ,SIX_OVER_5,SEVEN_HALF,
177 . SEVEN_OVER_5,SEVEN_OVER_9,NINE_OVER_2,NSEIZE,NINE_OVER_20,
178C--------------------------------------
179C 0.xxxx
180C--------------------------------------
181 . ZEP11,ZEP12,ZEP13,ZEP14,ZEP15,ZEP16,ZEP17,ZEP18,ZEP19,ZEP21,
182 . ZEP23,ZEP25,ZEP26,ZEP213,ZEP29,ZEP33,ZEP34,ZEP35,ZEP37,ZEP38,
183 . ZEP333,ZEP373,ZEP41,ZEP43,ZEP45,ZEP46,ZEP47,ZEP499,ZEP4187,
184 . ZEP62,ZEP65,ZEP66,ZEP67,ZEP71,ZEP74,ZEP707,ZEP81,ZEP82,ZEP84,
185 . ZEP85,ZEP87,ZEP89,ZEP92,ZEP93,ZEP94,ZEP95,ZEP96,ZEP97,ZEP99,
186 . ZEP995,ZEP997,ZEP999,ZEP9999,ZEP99999,ZEP931,ZEP015,ZEP015625,
187 . ZEP025,ZEP037,ZEP072169,ZEP075,
188C--------------------------------------
189C 1.xxxx
190C--------------------------------------
191 . ONEP01,ONEP001,ONEP0001,ONEP00001,ONEP02,ONEP03,ONEP04,ONEP05,ONEP06,
192 . ONEP08,ONEP09,ONEP1,ONEP11,ONEP12,ONEP13,ONEP14,ONEP15 ,ONEP16 ,ONEP17,
193 . ONEP18,ONEP19,ONEP136,ONEP138,ONEP2,ONEP21,ONEP23,ONEP24,ONEP25,ONEP26,
194 . ONEP27,ONEP28,ONEP251,ONEP252,ONEP3,ONEP31,ONEP32,ONEP33,ONEP34,ONEP35,
195 . ONEP36,ONEP37,ONEP38,ONEP39,ONEP333,ONEP3348,ONEP369,ONEP4,ONEP41,ONEP42,
196 . ONEP44,ONEP45,ONEP46,ONEP48,ONEP49,ONEP414,ONEP484,ONEP5 ,ONEP51,ONEP52,
197 . ONEP57,ONEP59,ONEP6,ONEP62,ONEP65,ONEP66,ONEP67,ONEP68,ONEP7,ONEP72,ONEP73,
198 . ONEP75,ONEP78,ONEP732,ONEP8,ONEP82,ONEP84,ONEP88,ONEP833,ONEP8688,
199 . ONEP9,ONEP92,ONEP96,ONEP98,
200C--------------------------------------
201C *.xxxx,
202C--------------------------------------
203 . TWOP03,TWOP05,TWOP06,TWOP07,TWOP08,TWOP1,TWOP2,
204 . TWOP30,TWOP4,TWOP5,TWOP60,TWOP8,TWOP11,TWOP12,TWOP13,
205 . TWOP16,TWOP19,TWOP23,TWOP24,TWOP25,TWOP33,TWOP38,TWOP45,
206 . TWOP47,TWOP52,TWOP83,TWOP84,TWOP85,TWOP185,TWOP261,
207 . TWOP645,THREEP02,THREEP06,THREEP14,THREEP15,THREEP25,THREEP27,
208 . THREEP44,THREEP46,THREEP52,THREEP72,THREEP76,THREEP8,THREEP94,
209 . THREEP266,THREEP464,THREEP4641,FOURP186,FOURP40,FOURP76,
210 . FIVEP5,FIVEP56,FIVEP76,SIP2832,NINEP24,NINEP38,NINEP793,ELEVENP5,
211 . TWELVEP6,FOURTEENP2,SIXTEENP5,O88P9844,ONZEP225,
212 . NINEP637EM5,ZEP999EP31,
213 . ZEP54,ZEP1381966,ZEP5854102,ONEP001EM32,ONEP3EM5,EIGHTP314EM5,
214C--------------------------------------
215C Fractions
216C--------------------------------------
217 . ZEP426667,ZEP222,ZEP00666666667,ZEP01666666667 ,ZEP444,ONEP222,
218 . ONEP8333,TWOP444,TWOP6666666667,TWOP6667,FIVEP333,
219C--------------------------------------
220C Physics
221C--------------------------------------
222 . R_IGC,
223C--------------------------------------
224C Math
225C--------------------------------------
226 . SQR2,SQR3,SQR5,SQR6,SQR7,SQR3_2,SQR4_3,SQR16_3,PI,INVPI,
227C--------------------------------------
228C alias
229C--------------------------------------
230 . EM3,EM4,EM5,EM6,EM7,EM8,EM9,EP9,
231 . FIVEEM2,TWOEM2,NINEEM2,ZEP80,UNP20,UNP30,UNP70,UNP90,
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
239
240
241
242
TWO
#define TWO
Definition PBtools.h:65
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