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 /PARAM/ NPROPM, NVSIZ, NPROPG, NPARG, LVEUL,
26 . NPARI, LWAMP, LWANMP, NISX, NIGR,
27 . NISU, NIMV, NNPBY, NRBY ,NIFV,
28 . NTHVKI, NPSAV, NRCNX, NR2R ,NRWLP,
29 . NRVOLU, NBVELP ,NRIVF,
30 . NXFRAME,LACTIV,NICBAG ,NRCBAG ,NIBJET,
31 . NRBJET ,NIBHOL,NRBHOL ,LKJNI ,LKJNR ,
32 . NGJOINT,NUMMPC,NNPRW ,NPEBC ,NPROPGI,
33 . NPROPMI,NPARIR,LFXVELR,LFACCLD,NPEBCR,
34 . NITHGR ,NRDAMP,KSH4TREE,KSH3TREE,KPADMESH,
36 . NPLYMAX,NPLYXFE,EPLYXFE,NRBE2L,
37 . NPLYNODG,LSKEW,LISKN,LFACLOAD,NCRKNODG,
38 . NIBSPH ,NALENOVS,LLACCELM,LLGAUGE,NIXIG3D,
39 . NPT_STACK,NS_STACK,LRACTIV,NLEDGE,NIBCLD,
40 . NIGRV, LFACGRV, NSLIPRING, NRETRACTOR,N_ANCHOR_REMOTE,
41 . N_ANCHOR_REMOTE_SEND,NSLIPRING_G,NRETRACTOR_G,N_SEATBELT,
44 INTEGER NPROPM, NVSIZ, NPROPG, NPARG, LVEUL,
46 . NPARI, LWAMP, LWANMP, NISX, NIGR,
47 . NISU, NIMV, NNPBY, NRBY ,NIFV,
48 . NTHVKI, NPSAV, NRCNX, NR2R ,NRWLP,
49 . NRVOLU, NBVELP ,NRIVF,
50 . NXFRAME,LACTIV,NICBAG ,NRCBAG ,NIBJET,
51 . NRBJET ,NIBHOL,NRBHOL ,LKJNI ,LKJNR ,
52 . NGJOINT,NUMMPC,NNPRW ,NPEBC ,NPROPGI,
53 . NPROPMI,NPARIR,LFXVELR,LFACCLD,NPEBCR,
54 . NITHGR ,NRDAMP,KSH4TREE,KSH3TREE,KPADMESH,
56 . NPLYMAX,NPLYXFE,EPLYXFE,NRBE2L,
57 . NPLYNODG,LSKEW,LISKN,LFACLOAD,NCRKNODG,
58 . NIBSPH ,NALENOVS,LLACCELM,LLGAUGE,NIXIG3D,
59 . NPT_STACK,NS_STACK,LRACTIV,NLEDGE,NIBCLD,
60 . NIGRV, LFACGRV, NSLIPRING, NRETRACTOR,N_ANCHOR_REMOTE,
61 . N_ANCHOR_REMOTE_SEND,NSLIPRING_G,NRETRACTOR_G,N_SEATBELT,
end diagonal values have been computed in the(sparse) matrix id.SOL
1.15.0