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:
25 . SICODE, SISKEW, SISKWN, SIFRAME, SNETH,
26 . SIBCSLAG, SIPART, SNOM_OPT, SNPC, SIXTG,
27 . SIXTG1, SIXS, SIXQ, SIXC, SIXT, SIXP,
28 . SIXR, SITAB, SITABM1, SGJBUFI,
29 . SIFILL, SIMS, SISUBS, SIGRN, SISURF,
30 . SISLIN, SIBUFSSG, SKXX, SIXX, SKXSP, SIXSP,
31 . SNOD2SP, SISPSYM, SISPCOND, SISPHIO, SLPRTSPH, SLONFSPH,
32 . SIBCL, SIBFV, SIECRAN, SILAS, SIEBCS, SLACCELM,
33 . SNNLINK, SLNLINK, SIPARG, SDD_IAD,
34 . SIGRV, SIEXLNK, SIBVEL, SLBVEL, SIACTIV,
35 . SIBMPC, SKINET, SIPARI, SINBUF, SNPRW, SNPRWA, SLPRW, SLPRWA,
36 . SICONX, SIEXMAD, SMADPRT, SMADSH4, SMADSH3, SMADSOL, SMADNOD,
37 . SMADFAIL , SNPBY, SNPBYL, SLPBY, SLPBYL, SLRIVET,
38 . SNSTRF, SLJOINT, SNODPOR, SMONVOL, SLAGBUF,
39 . SIAD_ELEM, SIAD_RBY, SIAD_RBY2,
40 . SIAD_I2M, SIADCJ, SIAD_RBM, SIAD_RBM2, SIAD_SEC, SIAD_CUT ,
41 . SFR_ELEM, SFR_RBY , SFR_WALL, SFR_RBY2, SFR_I2M , SFR_MV,
42 . SFR_LL, SFR_CJ, SFR_RBM, SFR_RBM2, SFR_SEC, SFR_CUT,
43 . SRG_CUT, SFR_MAD, SFR_I18, SWEIGHT, SNEWFRONT, SNODGLOB,
44 . SNBRCVOIS,SNBSDVOIS,SLNRCVOIS,SLNSDVOIS,SNERCVOIS,SNESDVOIS,
45 . SLERCVOIS,SLESDVOIS,NE_SLERCVOIS,NE_SLESDVOIS,SNIMPWALE,SLIMPWALE,SNPSEGCOM,SLSEGCOM,
46 . SNPORGEO, SLNODPOR, SICODT, SICODR, SISKY, SADSKY,
47 . SPROCNE, SADDCNI2, SPROCNI2, SIADSDP, SIADRCP, SIADS,
48 . SIADWAL , SIADRBK , SIADI2, SIADMV2, SIADMV3,
49 . SIADLL, SIADRBM, SIADI18, SILINK, SFR_RL, SLLINK,
50 . SIADRL, SLINALE, SNEFLSW, SNNFLSW, SICUT,SLGRAV,SFASOLFR,
51 . SDD_R2R, SFR_LAGF, SLLAGF,SIGEO,SIPM,SXCELL,
52 . SFR_IAD,SDD_FRONT, SICONTACT,
53 . SISKWP, SNSKWP, SISENSP, SNSENSP, SIACCP, SNACCP,
55 . SIRBE3,SLRBE3,SIAD_RBE3M,SFR_RBE3M,SFR_RBYM,SFR_RBYM2,
56 . SIAD_RBYM,SIAD_RBYM2, SIADRBMK,SINOISE,SMADIDX,SNOM_SECT,
57 . SIRBE2,SLRBE2,SIAD_RBE2,SFR_RBE2,SIXTAB,SIXLEVSET,SPROCNE_PXFE,
58 . SITHVAR,SICFIELD,SLCFIELD,SILOADP,SLLOADP,
59 . SPROCNE_CRKXFE, SIBUFSSG_IO,SIBORDNODE,SIEDGESH,SXNODANIMEL,
60 . SIAD_EDGE,SFR_EDGE,SFR_NBEDGE,SIGAUP,SNGAUP,SDD_R2R_ELEM,
61 . SNODGLOBXFE,SRTHBUF,SKXIG3D,SIXIG3D,SKNOT,SIAD_CNDM,SFR_CNDM,
62 . SIADCND,SPROCNCND,SADDCNCND,STAB_MAT,SSEGQUADFR,
63 . LENSUBS,LENIGRNOD,LENIGRBRIC,LENIGRQUAD,LENIGRSH4N,LENIGRSH3N,
64 . LENIGRTRUS,LENIGRBEAM,LENIGRSPRI,LENIGRPART,LENISURF,LENISLIN,
65 . SKNOTLOCPC,SKNOTLOCEL,SIBCSCYC,SLBCSCYC,SCEP,SCEL
68 . SICODE, SISKEW, SISKWN, SIFRAME, SNETH,
69 . SIBCSLAG, SIPART, SNOM_OPT, SNPC, SIXTG,
70 . SIXTG1, SIXS, SIXQ, SIXC, SIXT, SIXP,
71 . SIXR, SITAB, SITABM1, SGJBUFI,
72 . SIFILL, SIMS, SISUBS, SIGRN, SISURF,
73 . SISLIN, SIBUFSSG, SKXX, SIXX, SKXSP, SIXSP,
74 . SNOD2SP, SISPSYM, SISPCOND, SISPHIO, SLPRTSPH, SLONFSPH,
75 . SIBCL, SIBFV, SIECRAN, SILAS, SIEBCS, SLACCELM,
76 . SNNLINK, SLNLINK, SIPARG, SDD_IAD,
77 . SIGRV, SIEXLNK, SIBVEL, SLBVEL, SIACTIV,
78 . SIBMPC, SKINET, SIPARI, SINBUF, SNPRW, SNPRWA, SLPRW, SLPRWA,
79 . SICONX, SIEXMAD, SMADPRT, SMADSH4, SMADSH3, SMADSOL, SMADNOD,
80 . SMADFAIL , SNPBY, SNPBYL, SLPBY, SLPBYL, SLRIVET,
81 . SNSTRF, SLJOINT, SNODPOR, SMONVOL, SLAGBUF,
82 . SIAD_ELEM, SIAD_RBY, SIAD_RBY2,
83 . SIAD_I2M, SIADCJ, SIAD_RBM, SIAD_RBM2, SIAD_SEC, SIAD_CUT ,
84 . SFR_ELEM, SFR_RBY , SFR_WALL, SFR_RBY2, SFR_I2M , SFR_MV,
85 . SFR_LL, SFR_CJ, SFR_RBM, SFR_RBM2, SFR_SEC, SFR_CUT,
86 . SRG_CUT, SFR_MAD, SFR_I18, SWEIGHT, SNEWFRONT, SNODGLOB,
87 . SNBRCVOIS,SNBSDVOIS,SLNRCVOIS,SLNSDVOIS,SNERCVOIS,SNESDVOIS,
88 . SLERCVOIS,SLESDVOIS,NE_SLERCVOIS,NE_SLESDVOIS,SNIMPWALE,SLIMPWALE,SNPSEGCOM,SLSEGCOM,
89 . SNPORGEO, SLNODPOR, SICODT, SICODR, SISKY, SADSKY,
90 . SPROCNE, SADDCNI2, SPROCNI2, SIADSDP, SIADRCP, SIADS,
91 . SIADWAL , SIADRBK , SIADI2, SIADMV2, SIADMV3,
92 . SIADLL, SIADRBM, SIADI18, SILINK, SFR_RL, SLLINK,
93 . SIADRL, SLINALE, SNEFLSW, SNNFLSW, SICUT,SLGRAV,SFASOLFR,
94 . SDD_R2R, SFR_LAGF, SLLAGF,SIGEO,SIPM,SXCELL,
95 . SFR_IAD,SDD_FRONT, SICONTACT,
96 . SISKWP, SNSKWP, SISENSP, SNSENSP, SIACCP, SNACCP,
98 . SIRBE3,SLRBE3,SIAD_RBE3M,SFR_RBE3M,SFR_RBYM,SFR_RBYM2,
99 . SIAD_RBYM,SIAD_RBYM2, SIADRBMK,SINOISE,SMADIDX,SNOM_SECT,
100 . SIRBE2,SLRBE2,SIAD_RBE2,SFR_RBE2,SIXTAB,SIXLEVSET,SPROCNE_PXFE,
101 . SITHVAR,SICFIELD,SLCFIELD,SILOADP,SLLOADP,
102 . SPROCNE_CRKXFE, SIBUFSSG_IO,SIBORDNODE,SIEDGESH,SXNODANIMEL,
103 . SIAD_EDGE,SFR_EDGE,SFR_NBEDGE,SIGAUP,SNGAUP,SDD_R2R_ELEM,
104 . SNODGLOBXFE,SRTHBUF,SKXIG3D,SIXIG3D,SKNOT,SIAD_CNDM,SFR_CNDM,
105 . SIADCND,SPROCNCND,SADDCNCND,STAB_MAT,SSEGQUADFR,
106 . LENSUBS,LENIGRNOD,LENIGRBRIC,LENIGRQUAD,LENIGRSH4N,LENIGRSH3N,
107 . LENIGRTRUS,LENIGRBEAM,LENIGRSPRI,LENIGRPART,LENISURF,LENISLIN,
108 . SKNOTLOCPC,SKNOTLOCEL,SIBCSCYC,SLBCSCYC,SCEP,SCEL
112 .
SX, SD, SV, SVR, SDR, STHKE,
113 . SDAMPR, SDAMP, SMS, SIN, STF, SPM,
114 . SSKEW, SXFRAME, SGEO, SEANI, SBUFMAT, SBUFGEO,
115 . SBUFSF, SRBMPC, SGJBUFR, SW, SVEUL, SFILL,
116 . SDFILL, SALPH, SWB, SDSAVE, SDRSAVE, SASAVE,
117 . SARSAVE, SSTSAVE, SSTRSAVE, SFSAVSAV, SSPBUF,
118 . SVSPHIO, SSPHVELN, SMSNF, SFORC,
119 . SVEL, SFSAV, SFZERO, SXLAS, SREBCS, SACCELM,
120 . SFBVEL, SGRAV, SFR_WAVE, SPARTS0,
122 . SDBUFIN, SRWBUF, SRWSAV, SRWALEB, SRBY, SRBYL,
123 . SRIVET, SSECBUF, SVOLMON, SLAMBDA, SWA, SFV,
124 . SA, SAR, SSTIFN, SVISCN, SSTIFR, SPARTSAV,
125 . SFSKY, SFSKYM, SFSKYI, SUWA, SVAL2, SPHI,
126 . SSEGVAR,
SR, SESTIF, SCRFLSW, SFLSW, SFANI,SFANI_CELL,
127 . SXCUT, SANIN, STANI, SSECFCUM, SWASPH,
128 . SW16, SDRETRIO, SLBVRS, SPV,SRCONX, SRCONTACT,
130 . SFRBE3,SFNOISE,SKVOL,SRXTAB,SCFIELD,
131 . SLOADP, SFSKYD, SDMSPH,NBR_GPMP,
136 .
SX, SD, SV, SVR, SDR, STHKE,
137 . SDAMPR, SDAMP, SMS, SIN, STF, SPM,
138 . SSKEW, SXFRAME, SGEO, SEANI, SBUFMAT, SBUFGEO,
139 . SBUFSF, SRBMPC, SGJBUFR, SW, SVEUL, SFILL,
140 . SDFILL, SALPH, SWB, SDSAVE, SDRSAVE, SASAVE,
141 . SARSAVE, SSTSAVE, SSTRSAVE, SFSAVSAV, SSPBUF,
142 . SVSPHIO, SSPHVELN, SMSNF, SFORC,
143 . SVEL, SFSAV, SFZERO, SXLAS, SREBCS, SACCELM,
144 . SFBVEL, SGRAV, SFR_WAVE, SPARTS0,
146 . SDBUFIN, SRWBUF, SRWSAV, SRWALEB, SRBY, SRBYL,
147 . SRIVET, SSECBUF, SVOLMON, SLAMBDA, SWA, SFV,
148 . SA, SAR, SSTIFN, SVISCN, SSTIFR, SPARTSAV,
149 . SFSKY, SFSKYM, SFSKYI, SUWA, SVAL2, SPHI,
150 . SSEGVAR,
SR, SESTIF, SCRFLSW, SFLSW, SFANI,SFANI_CELL,
151 . SXCUT, SANIN, STANI, SSECFCUM, SWASPH,
152 . SW16, SDRETRIO, SLBVRS, SPV,SRCONX, SRCONTACT,
154 . SFRBE3,SFNOISE,SKVOL,SRXTAB,SCFIELD,
155 . SLOADP, SFSKYD, SDMSPH,NBR_GPMP,
159 PARAMETER (LMXVINTG=4000)
161 COMMON /RESTVARS/ NNOISE_SAV
end diagonal values have been computed in the(sparse) matrix id.SOL