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 /COM04/ NUMMAT, NUMNOD, NUMSKW, NUMBCS, NANALY,
25 . NUMELQ, NUMELS, NUMELC, NUMELT, NUMGEO,
26 . NFUNCT, NCONLD, NINVEL, NLASER, NINTER,
27 . NRWALL, NRBODY, NODMAS, NFXVEL, NRIVET,
28 . NUMELR, NUMELP, NSECT , NRBAG ,
29 . NJOINT, NUMELTG,NSLAG , NFACX ,
30 . NUMPOR, NACCELM,NPRETEN,NVOLU,
31 . NPART, NSURF, NSUBS, NGRAV, NRBY2 ,
32 . NGRNOD, NGRBRIC,NGRQUAD,NGRSHEL,NGRSH3N,
33 . NGRBEAM,NGRTRUS,NGRSPRI,NLINK, INVSTR,
34 . NSLIN, NUMELX, NCONX, ISUMNX, NANIM1D,
35 . NR2RLNK, NUMFRAM, SCODVER, SMINVER, SSRCVER,
36 . NUMELS10,NUMELS20,IDAMPG,NIBVEL,NUMELS16,
37 . NUMELS8,NACTIV ,NDAMP ,NUMELTG6,NUMELS8A,
38 . NRBYKIN,NBCSKIN,NSEGFLU,NEBCS,NEXMAD,
39 . NMADPRT,NMADSH4,NMADSH3,NMADSOL,NMADNOD,
40 . NFXBODY,NEIG ,NINTSUB,NVENTTOT,NUMELC0,
41 . NUMELTG0,NUMNOD0,NLEVSET,NDETO,NRBYM,
42 . NGSLNRBYM,NFRBYM,NIRBYM,
43 . NRBE3,NGRPART,NGPE,NTHPART,
44 . NTABLE,NRBE2,NHRBE2,NUMELCXFE,
45 . NUMELTGXFE,NLOAD,NLOADC,NLOADP,SIZFIELD,
46 . SIZLOADP,NBGAUGE,NUMNODXFE,NCLUSTER,NUMELIG3D,
47 . ISFEM,NLOADP_F, NUMNOR, NINTER25,
48 . NINTER25E,NUMPLY,NUMSTACK,NS10E,NINTERFRIC,
49 . NUMSKIN,NBCSCYC,NRBFAIL,NLOADP_HYD,NINTLOADP,
50 . NINTLOADP21,NLOADP_HYD_INTER,NTSHEG,NRBODY0
52 INTEGER NUMMAT, NUMNOD, NUMSKW, NUMBCS, NANALY,
53 . NUMELQ, NUMELS, NUMELC, NUMELT, NUMGEO,
54 . NFUNCT, NCONLD, NINVEL, NLASER, NINTER,
55 . NRWALL, NRBODY, NODMAS, NFXVEL, NRIVET,
56 . NUMELR, NUMELP, NSECT , NRBAG ,
57 . NJOINT, NUMELTG,NSLAG , NFACX ,
58 . NUMPOR, NACCELM,NPRETEN,NVOLU,
59 . NPART, NSURF, NSUBS, NGRAV, NRBY2 ,
60 . NGRNOD, NGRBRIC,NGRQUAD,NGRSHEL,NGRSH3N,
61 . NGRBEAM,NGRTRUS,NGRSPRI,NLINK, INVSTR,
62 . NSLIN, NUMELX, NCONX, ISUMNX, NANIM1D,
63 . NR2RLNK, NUMFRAM, SCODVER, SMINVER, SSRCVER,
64 . NUMELS10,NUMELS20,IDAMPG,NIBVEL,NUMELS16,
65 . NUMELS8,NACTIV ,NDAMP ,NUMELTG6,NUMELS8A,
66 . NRBYKIN,NBCSKIN,NSEGFLU,NEBCS,NEXMAD,
67 . NMADPRT,NMADSH4,NMADSH3,NMADSOL,NMADNOD,
68 . NFXBODY,NEIG ,NINTSUB,NVENTTOT,NUMELC0,
69 . NUMELTG0,NUMNOD0,NLEVSET,NDETO,NRBYM,
70 . NGSLNRBYM,NFRBYM,NIRBYM,
71 . NRBE3,NGRPART,NGPE,NTHPART,
72 . NTABLE,NRBE2,NHRBE2,NUMELCXFE,
73 . NUMELTGXFE,NLOAD,NLOADC,NLOADP,SIZFIELD,
74 . SIZLOADP,NBGAUGE,NUMNODXFE,NCLUSTER,NUMELIG3D,
75 . ISFEM,NLOADP_F, NUMNOR, NINTER25,
76 . NINTER25E,NUMPLY,NUMSTACK,NS10E,NINTERFRIC,
77 . NUMSKIN,NBCSCYC,NRBFAIL,NLOADP_HYD,NINTLOADP,
78 . NINTLOADP21,NLOADP_HYD_INTER,NTSHEG,NRBODY0
79C--------1---------2---------3---------4---------5---------6---------7--
end diagonal values have been computed in the(sparse) matrix id.SOL
1.15.0