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 PARAMETER (LSPMDV5 = 55)
26 COMMON /SPMDV5/ NSKYRW0 ,NSKYRBK0,NBDDNOD,NBDDNRB ,MULTIMAX,
27 . NBDDI2M ,NISKYI2 ,LCNI2 ,I2NSNT ,NSKYMV0 ,
28 . NSKYMVC0,NSKYLL0 ,NBDDNCJ,NBDDNRBM,NSKYRBM0,
29 . NNODTCUT,NNODLCUT, NUMNODG,NUMNODM,NUMELQG,
30 . NUMELCG,NUMELTGG,NUMELSG,NUMELPG,
31 . NUMELRG,NUMELTRG,NB1DG,NSKEWAG,SECTIOM,
32 . NUMELS16G,NUM16SHIFT,SPHSHIFT,NUMSPHG,NUMELXG,
33 . NBI18 ,NSKYI18,SKIPPON,IISROTS, NBDDRBE3M,
34 . NSKYRBE30,NSKYRBMK0,NBDDNRBE2,NRBE2G,NRBE3G,
35 . NBDDEDGE,I24COM3,I24COM4,NBDDNORT ,NBDDNOR_MAX,
36 . NBCCFR25, NBCCNOR, NSNT25,NBDDEDGT,NBDDEDG_MAX,
37 . NRTMX25, LCNCND,NUMELS10G,NUMELS20G,NUMSKING
41 INTEGER NSKYRW0 ,NSKYRBK0,NBDDNOD,NBDDNRB ,MULTIMAX,
42 . NBDDI2M ,NISKYI2 ,LCNI2 ,I2NSNT ,NSKYMV0 ,
43 . NSKYMVC0,NSKYLL0 ,NBDDNCJ,NBDDNRBM,NSKYRBM0,
44 . NNODTCUT,NNODLCUT,NUMNODG,NUMNODM,NUMELQG ,
45 . NUMELCG,NUMELTGG,NUMELSG,NUMELPG,
46 . NUMELRG ,NUMELTRG,NB1DG,NSKEWAG,SECTIOM,
47 . NUMELS16G,NUM16SHIFT,SPHSHIFT,NUMSPHG,NUMELXG,
48 . NBI18 ,NSKYI18,SKIPPON,IISROTS, NBDDRBE3M,
49 . NSKYRBE30,NSKYRBMK0,NBDDNRBE2,NRBE2G,NRBE3G,
50 . NBDDEDGE,I24COM3,I24COM4,NBDDNORT ,NBDDNOR_MAX,
51 . NBCCFR25,NBCCNOR, NSNT25,NBDDEDGT,NBDDEDG_MAX,
52 . NRTMX25, LCNCND,NUMELS10G,NUMELS20G,NUMSKING
56 PARAMETER (LCOMCFD = 10)
58 COMMON /COMCFD/NSVOIS ,NQVOIS ,NTGVOIS,NRCVVOIS,NSNDVOIS,NERVOIS,
59 . NESVOIS,ILAW11 ,NLWALE ,NSEGCOM, NUMPORL, NE_NSVOIS, NE_NQVOIS,
61 INTEGER NSVOIS ,NQVOIS ,NTGVOIS,NRCVVOIS,NSNDVOIS,NERVOIS,
62 . NESVOIS,ILAW11 ,NLWALE ,NSEGCOM, NUMPORL, NE_NSVOIS, NE_NQVOIS,
end diagonal values have been computed in the(sparse) matrix id.SOL
1.15.0