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:
24 COMMON /COM01/ N2D, NCPRI, IALE, NGROUP,
25 . NCYCLE, IRUN, IGER, LBUFEL, IRODDL,
26 . IEULER, IMULTI_FVM, IHSH, ITESTV, ITURB,
27 . ILAG, ISECUT, IDAMP, IRXDP, NMULT,
28 . INTEG8, ISIGI, NSPMD, LENWA, ISGIFL,
29 . NNODS, NCNOIS, LCNE0, IPARI0,
30 . IMAXIMP,NNOISER,NSPGROUP,IRESMD, IFRWV,
31 . INTBAG ,ICLOSE ,LICBAG ,LRCBAG,LIBAGJET,
32 . LRBAGJET,LIBAGHOL,LRBAGHOL,ISHFRAM,
33 . TRIMAT,IUSHELL,IUSOLID,NUSHELL,
34 . NUSOLID, NVSHELL,INISHVAR, NSPROC, NDSOLV,
35 . NSBMAX, NSVMAXT, NFLOW, ICONDP,NVSOLID1,
36 . NVSOLID2,NFASOLFR,KCONTACT,
37 . IORTSHEL,NORTSHEL,ICRACK,IUSRSHEL,
38 . IMPOSE_DR,IRIGID_MAT,ISTAMPING,IINTTHICK,
39 . IPLYXFEM,IPLYBCS,IREAC,IGRELEM,IREST_MSELT,
40 . NTHREAD,IALELAG,INVOL,IIMPLICIT,IRODDL0,
41 . NVSOLID3,IMASADD,IDAMP_RDOF,KMP_SET,KMPSTSIZ,
42 . ICRASH,STACKSIZ,FTEMPVAR21,NVSOLID4,INTPLYXFEM,
43 . UNITMAX,NVSHELL1,NFILSOL,IPART_STACK,TEST_POIDS,
44 . IPRIVATE,IPERTURB,IPART_PCOMPP,ITHKSHEL,ISH3NFRAM,
45 . IUFACYLD,NVSHELL2,NVSOLID5,NUBEAM,NVBEAM,NVTRUSS,
46 . IS17OLD ,NSEGQUADFR, NUMBCSN,INTERADHESION,NITSCHE,
47 . INISPRI ,INISHVAR1,NVSPRI,NVSOLID6,TH_STRAIN
49 INTEGER N2D, NCPRI, IALE, NGROUP,
50 . NCYCLE, IRUN, IGER, LBUFEL, IRODDL,
51 . IEULER, IMULTI_FVM, IHSH, ITESTV, ITURB,
52 . ILAG, ISECUT, IDAMP, IRXDP, NMULT,
53 . INTEG8, ISIGI, NSPMD, LENWA, ISGIFL,
54 . NNODS, NCNOIS, LCNE0, IPARI0,
55 . IMAXIMP,NNOISER,NSPGROUP,IRESMD, IFRWV,
56 . INTBAG ,ICLOSE ,LICBAG ,LRCBAG,LIBAGJET,
57 . LRBAGJET,LIBAGHOL,LRBAGHOL,ISHFRAM,
58 . TRIMAT,IUSHELL,IUSOLID,NUSHELL,
59 . NUSOLID, NVSHELL,INISHVAR, NSPROC, NDSOLV,
60 . NSBMAX, NSVMAXT, NFLOW, ICONDP,NVSOLID1,
61 . NVSOLID2,NFASOLFR,KCONTACT,
62 . IORTSHEL,NORTSHEL,ICRACK,IUSRSHEL,
63 . IMPOSE_DR,IRIGID_MAT,ISTAMPING,IINTTHICK,
64 . IPLYXFEM,IPLYBCS,IREAC,IGRELEM,IREST_MSELT,
65 . NTHREAD,IALELAG,INVOL,IIMPLICIT,IRODDL0,
66 . NVSOLID3,IMASADD,IDAMP_RDOF,KMP_SET,KMPSTSIZ,
67 . ICRASH,STACKSIZ,FTEMPVAR21,NVSOLID4,INTPLYXFEM,
68 . UNITMAX,NVSHELL1,NFILSOL,IPART_STACK,TEST_POIDS,
69 . IPRIVATE,IPERTURB,IPART_PCOMPP,ITHKSHEL,ISH3NFRAM,
70 . IUFACYLD,NVSHELL2,NVSOLID5,NUBEAM,NVBEAM,NVTRUSS,
71 . IS17OLD ,NSEGQUADFR, NUMBCSN,INTERADHESION,NITSCHE,
72 . INISPRI ,INISHVAR1,NVSPRI,NVSOLID6,TH_STRAIN
end diagonal values have been computed in the(sparse) matrix id.SOL
1.15.0