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 /SCR16R/ DTOUTP0,TOUTP0
29 PARAMETER (MX_OUTP = 140,MX_OUTP2 = 50000)
30 COMMON /SCR16/NV_OUTP,OUTP_V(MX_OUTP),NN_OUTP,OUTP_N(MX_OUTP),
31 . NSS_OUTP,OUTP_SS(MX_OUTP),NCS_OUTP,OUTP_CS(MX_OUTP),
32 . NTS_OUTP,OUTP_TS(MX_OUTP),NPS_OUTP,OUTP_PS(MX_OUTP),
33 . NRS_OUTP,OUTP_RS(MX_OUTP),
34 . NST_OUTP,OUTP_ST(MX_OUTP),NCT_OUTP,OUTP_CT(MX_OUTP),
35 . NTT_OUTP,OUTP_TT(MX_OUTP),NPT_OUTP,OUTP_PT(MX_OUTP),
36 . NRT_OUTP,OUTP_RT(MX_OUTP),IOUTP_FMT,OUTYY_FMT,
37 . NSPS_OUTP,OUTP_SPS(MX_OUTP),NSPT_OUTP,OUTP_SPT(MX_OUTP),
38 . IROOTYY,IDROT,MOUTPT,MOUTP
39 INTEGER NV_OUTP,OUTP_V,NN_OUTP,OUTP_N,
40 . NSS_OUTP,OUTP_SS,NCS_OUTP,OUTP_CS,
41 . NTS_OUTP,OUTP_TS,NPS_OUTP,OUTP_PS,
43 . NST_OUTP,OUTP_ST,NCT_OUTP,OUTP_CT,
44 . NTT_OUTP,OUTP_TT,NPT_OUTP,OUTP_PT,
45 . NRT_OUTP,OUTP_RT,IOUTP_FMT,OUTYY_FMT,
46 . NSPS_OUTP,OUTP_SPS,NSPT_OUTP,OUTP_SPT,
47 . IROOTYY,IDROT,MOUTPT,MOUTP(MX_OUTP2)
50 COMMON /SCR16_STATR/ DTSTAT0,TSTAT0,DTABF0(10),DTABFWR0(10)
52 . DTSTAT0,TSTAT0,DTABF0,DTABFWR0
53 INTEGER MX_STAT,MX_STAT2,MX_STAT3
54 PARAMETER (MX_STAT = 20,MX_STAT2 = 50000, MX_STAT3 = 128)
56 COMMON /SCR16_STATI/MX_STAT0,NSTATPRT,NC_STAT,STAT_C(MX_STAT),
57 . STAT_NUMELC,STAT_NUMELTG,
58 . STAT_NUMELC_G,STAT_NUMELTG_G,
59 . STAT_S(MX_STAT),STAT_NUMELS,STAT_NUMELQ,STAT_NUMELT,
60 . STAT_NUMELS_G,STAT_NUMELQ_G,STAT_NUMELT_G,
61 . STAT_N(MX_STAT),MSTATT,MSTAT,
62 . STAT_NUMELR,STAT_NUMELR_G,STAT_R(MX_STAT),
63 . STAT_NUMELP,STAT_NUMELP_G,STAT_P(MX_STAT),
64 . STAT_T(MX_STAT),NSTATALL,
65 . STAT_INIMAP(MX_STAT3)
66 INTEGER MX_STAT0,NSTATPRT,NC_STAT,STAT_C,
67 . STAT_NUMELC,STAT_NUMELTG,
68 . STAT_NUMELC_G,STAT_NUMELTG_G,
69 . STAT_S,STAT_NUMELS,STAT_NUMELQ,STAT_NUMELT,
70 . STAT_NUMELS_G,STAT_NUMELQ_G,STAT_NUMELT_G,
71 . STAT_N,MSTATT,MSTAT(MX_STAT2),
72 . STAT_NUMELR,STAT_NUMELR_G,STAT_R,
73 . STAT_NUMELP,STAT_NUMELP_G,STAT_P,STAT_T,NSTATALL,
end diagonal values have been computed in the(sparse) matrix id.SOL
1.15.0