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:
23C-------------------------------------------------------------------------------
25 INTEGER NDDL_SMS,KNZ_SMS,NNZ_SMS,NINDX1_SMS,NINDX2_SMS,NRB_SMS,
26 . IDTMINS,IDTGRS,IDTMINS_OLD,IDTGRS_OLD,NSMSPCG,IFRICW,
27 . ISMSNOK,LSKYI_SMS,NCPRISMS,IDTMINS_INT,IDTMINS_INT_OLD,
28 . M_VS_SMS, NCG_RUN_SMS, NUPDTL_SMS, I2NSN25, KFORSMS, ISMS_SELEC
30 . NDDL_SMS,KNZ_SMS,NNZ_SMS,NINDX1_SMS,NINDX2_SMS,NRB_SMS,
31 . IDTMINS,IDTGRS,IDTMINS_OLD,IDTGRS_OLD,NSMSPCG,IFRICW,
32 . ISMSNOK,LSKYI_SMS,NCPRISMS,IDTMINS_INT,IDTMINS_INT_OLD,
33 . M_VS_SMS, NCG_RUN_SMS, NUPDTL_SMS, I2NSN25, KFORSMS, ISMS_SELEC
36 . RES1_SMS,RES0_SMS, G0_SMS, G1_SMS, S_SMS, TOL_SMS,
37 . DTFACS, DTMINS, DTFACS_OLD, DTMINS_OLD,
38 . DTFACS_INT, DTMINS_INT, DTFACS_INT_OLD, DTMINS_INT_OLD,
39 . P_MACH_SMS, R_N2_SMS, R_N2_SMS1, R_N2_SMS2, R_N2_SMS3
41 . RES1_SMS,RES0_SMS, G0_SMS, G1_SMS, S_SMS, TOL_SMS,
42 . DTFACS, DTMINS, DTFACS_OLD, DTMINS_OLD,
43 . DTFACS_INT, DTMINS_INT, DTFACS_INT_OLD, DTMINS_INT_OLD,
44 . P_MACH_SMS, R_N2_SMS, R_N2_SMS1, R_N2_SMS2, R_N2_SMS3
47 . R6SMS(6),G6SMS(6),S6SMS(6),X6SMS(3,6)
48 COMMON /SMSDP/ R6SMS, G6SMS, S6SMS, X6SMS
end diagonal values have been computed in the(sparse) matrix id.SOL
1.15.0