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 COMMON /RAD2R/NB_PART_SUB,NSUBDOM,NNODN,NELCN,NELTGN,
26 . SIZ_IPM_NEW,SIZ_PM_NEW,SIZ_IGEO_NEW,SIZ_GEO_NEW,
27 . IDDOM,IPID,DOM_NAME,NELTN,NELRN,NELPN,NPARN,
28 . NELSN,NELS10N,NELS20N,NELS16N,NELQN,NELURN,NODSUPR,
29 . R2R_FILNAM,N_PART,NEW_NRBY,NEW_NJOINT,NEW_NINTER,
30 . NEW_NLINK,NEW_NRBE3,NEW_NRBE2,NEW_NUMMPC,FLG_SPLIT,
31 . NEW_NVOLU,FLG_TIED,NTHREAD_R2R,NL_DDR2R,SFRONTB_R2R,
32 . R2R_SIU,NUMMAT0,NUMGEO0,SUB_FLAG,NSPHN,NINLETN,NEW_NGJOINT,
33 . FLG_SWALE,FLG_FSI,ROOTNAM0,IDDOM_L,R2R_FLAG_ERR_OFF,
34 . NEW_NRBYKIN,NEW_HM_NVOLU
36 INTEGER NB_PART_SUB,NSUBDOM,NNODN,NELCN,NELTGN,NELTN
37 INTEGER SIZ_IPM_NEW,SIZ_PM_NEW,IPID,NPARN,NELRN,NELPN
38 INTEGER SIZ_IGEO_NEW,SIZ_GEO_NEW,IDDOM,NODSUPR,N_PART
39 INTEGER NELSN,NELS10N,NELS20N,NELS16N,NELQN,NELURN
40 INTEGER NEW_NRBY,NEW_NJOINT,NEW_NINTER,NEW_NLINK,NEW_NRBE3,NEW_NRBYKIN
41 INTEGER NEW_NRBE2,NEW_NGJOINT,NEW_NUMMPC,FLG_SPLIT,NEW_NVOLU,NEW_HM_NVOLU
42 INTEGER FLG_TIED(5),NTHREAD_R2R,NL_DDR2R,SFRONTB_R2R,R2R_SIU
43 INTEGER NUMMAT0,NUMGEO0,SUB_FLAG,NSPHN,NINLETN,FLG_SWALE,FLG_FSI,IDDOM_L
45 CHARACTER DOM_NAME*2048,R2R_FILNAM*100,ROOTNAM0*80
end diagonal values have been computed in the(sparse) matrix id.SOL
1.15.0