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 . IMPL_S, ISOLV, IPREC, ITOL, NITOL , MAXB ,
26 . ILINE , ISPRB ,IMCONV,ISETK ,N_LIM , L_LIM , NEXP,
27 . IKG , IKPAT , NNSIZ,LPRINT,NPRINT, MAX_L,INSOLV,
28 . IDTC ,IDYNA ,NL_DTP,NL_DTN,IMPDEB, IDSC,MAXB0,IMPMV,
29 . IMP_RBY,IMP_INT,ISPRN,IMUMPSD,NDDL_L,ISIGINI,IDSGAP,ILINTF,
30 . INTP_C ,L_BFGS ,IRREF,IMPL_S0,N_PAT ,MAXB1 ,IMP_CHK,
31 . IMP_IW ,IMP_IR ,IDY_DAMP,IQSTAT, NDEB0 ,NDEB1,IMP_INT7,
32 . NT_IMP1,ITTOFF ,NDDLI_G ,IBUCKL,IAUTSPC,ISCAU,ITRMAX,
33 . IMP_LR ,LMEMV ,IKT ,INCONV ,IREFI ,ILINE_S,NLS_LIM ,
34 . NDIVER ,IHELAS ,NDTFIX,IDTFIX ,IKPRES ,ISOLV_D,IKPROJ ,
35 . IAL_M ,NCY_MAX,ILAST ,NT_IMP5,IPUPD ,IT_BCS,IT_PCG ,
36 . ISMDISP,ITER_NL,NDDL_G,NNZK_G ,NPCGPV ,IPRO_S0,INEGA ,
37 . IRWALL ,IMUMPSV,IIKGOFF,LCOKM,ISOLINFO,ISOLHIST,SOLVNFO,
38 . ISOLTPL,ISOLMNTR,PRSTIFMAT,PRSTIFMAT_NC,PRSTIFMAT_IT,
39 . M_MSG,M_ORDER,M_OCORE,IRIG_M,ISOLPGRS
40 INTEGER IMPL_S, ISOLV, IPREC, ITOL, NITOL, MAXB ,
41 . ILINE , ISPRB ,IMCONV,ISETK ,N_LIM , L_LIM , NEXP,
42 . IKG , IKPAT , NNSIZ,LPRINT,NPRINT, MAX_L,INSOLV,
43 . IDTC ,IDYNA ,NL_DTP,NL_DTN,IMPDEB, IDSC,MAXB0,IMPMV,
44 . IMP_RBY,IMP_INT,ISPRN,IMUMPSD,NDDL_L,ISIGINI,IDSGAP,ILINTF,
45 . INTP_C ,L_BFGS ,IRREF,IMPL_S0,N_PAT ,MAXB1 ,IMP_CHK,
46 . IMP_IW ,IMP_IR ,IDY_DAMP,IQSTAT, NDEB0 ,NDEB1,IMP_INT7,
47 . NT_IMP1,ITTOFF ,NDDLI_G ,IBUCKL,IAUTSPC,ISCAU,ITRMAX,
48 . IMP_LR ,LMEMV ,IKT ,INCONV,IREFI ,ILINE_S,NLS_LIM,
49 . NDIVER ,IHELAS ,NDTFIX ,IDTFIX,IKPRES ,ISOLV_D,IKPROJ ,
50 . IAL_M ,NCY_MAX,ILAST ,NT_IMP5,IPUPD ,IT_BCS,IT_PCG ,
51 . ISMDISP,ITER_NL,NDDL_G,NNZK_G,NPCGPV ,IPRO_S0,INEGA ,
52 . IRWALL ,IMUMPSV,IIKGOFF,LCOKM,ISOLINFO,ISOLHIST,SOLVNFO,
53 . ISOLTPL,ISOLMNTR,PRSTIFMAT,PRSTIFMAT_NC,PRSTIFMAT_IT ,
54 . M_MSG,M_ORDER,M_OCORE,IRIG_M,ISOLPGRS
55 COMMON /IMPL1_PRIVATE/ NG_IMP
56!$OMP THREADPRIVATE(/IMPL1_PRIVATE/)
58C------L_LIM: linear iteration num limit;N_LIM : iteration num to update K
end diagonal values have been computed in the(sparse) matrix id.SOL
1.15.0