2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
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.
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.
14Copyright> You should have received a copy of
the GNU Affero General Public License
15Copyright> along with
this program. If not, see <https:
18Copyright> Commercial Alternative: Altair Radioss Software
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:
25 COMMON /DDSPMDV5/ TPSREF,TPSENG,
26 . SOL1TNL(0:MAXLAW,3),SOL8TNL(0:MAXLAW,3),
27 . SHTNL(0:MAXLAW,0:3,3),
28 . SOLTELT(20),SHTELT(30),TRITNL(0:MAXLAW,0:3,3),TRITELT(10),
29 . TET4TNL(0:MAXLAW,3),TET10TNL(0:MAXLAW,3),TET4TELT(10),
31 . RUPTURE_SHELL(MAXFAIL,6),
32 . RUPTURE_SOL(MAXFAIL,3),RUPTURE_SOL12(MAXFAIL,3),
33 . RUPTURE_TET4(MAXFAIL,3),RUPTURE_TET10(MAXFAIL,3),
34 . SHTNL_OPTION(10,5),SOL_OPTION(10,5),NLOCAL_OPTION(10),
35 . ELM_OVER_COST(10),VISC_PRONY_COST
38 . TPSREF,TPSENG,SOL1TNL,SOL8TNL,
40 . TRITNL,SOLTELT,SHTELT,TRITELT,
41 . TET4TNL,TET10TNL,TET4TELT,
44 . RUPTURE_SOL,RUPTURE_SOL12,
45 . RUPTURE_TET4,RUPTURE_TET10,
46 . SHTNL_OPTION,SOL_OPTION,NLOCAL_OPTION,
47 . ELM_OVER_COST,VISC_PRONY_COST
end diagonal values have been computed in the(sparse) matrix id.SOL
1.15.0