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, 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 . NSHFRONT,TRIMAT,NSPROC, NDSOLV, NSBMAX,
34 . NSVMAXT, NFLOW, ICONDP, DSNROW, DSNCOL,
35 . DSNBLOC, NBUCK, NFASOLFR,KCONTACT,
37 . IRIGID_MAT,ISTAMPING, IPLYXFEM, IPLYBCS,IREAC,
38 . IGRELEM,IREST_MSELT,NTHREAD0,IALELAG,INVOL,
39 . LCNEPXFEM,NABFWR(10),ABFILE(10),INT2PEN,IDAMP_RDOF,
40 . LCNECRKXFEM,ICRASH,FTEMPVAR21,INTPLYXFEM,NFILSOL,
41 . IPART_STACK,ISH3NFRAM,IS17_OLD,NSEGQUADFR,NLPRI,
42 . INTERADHESION,NITSCHE,INISPRI,IMASSI,TH_STRAIN
43 INTEGER N2D, NCPRI, IALE, NGROUP,
44 . NCYCLE, IRUN, IGER, LBUFEL, IRODDL,
45 . IEULER, IHSH, ITESTV, ITURB,
46 . ILAG, ISECUT, IDAMP, IRXDP, NMULT,
47 . INTEG8, ISIGI, NSPMD, LENWA, ISGIFL,
48 . NNODS, NCNOIS, LCNE0, IPARI0,
49 . IMAXIMP,NNOISER,NSPGROUP,IRESMD, IFRWV,
50 . INTBAG ,ICLOSE ,LICBAG ,LRCBAG,LIBAGJET,
51 . LRBAGJET,LIBAGHOL,LRBAGHOL,ISHFRAM,
52 . NSHFRONT,TRIMAT,NSPROC, NDSOLV, NSBMAX,
53 . NSVMAXT, NFLOW, ICONDP, DSNROW, DSNCOL,
54 . DSNBLOC, NBUCK, NFASOLFR,KCONTACT,
56 . IRIGID_MAT,ISTAMPING, IPLYXFEM, IPLYBCS,IREAC,
57 . IGRELEM,IREST_MSELT,NTHREAD0,IALELAG,INVOL,
58 . LCNEPXFEM,NABFWR,ABFILE,INT2PEN,IDAMP_RDOF,
59 . LCNECRKXFEM,ICRASH,FTEMPVAR21,INTPLYXFEM,NFILSOL,
60 . IPART_STACK,ISH3NFRAM,IS17_OLD,NSEGQUADFR,NLPRI,
61 . INTERADHESION,NITSCHE,INISPRI,IMASSI,TH_STRAIN
end diagonal values have been computed in the(sparse) matrix id.SOL
1.15.0