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:
24c----------------------------------------------------------
26 PARAMETER (MX_ANI = 80000)
27c----------------------------------------------------------
28 COMMON /SCR14/NV_ANI,ANIM_V(MX_ANI),NT_ANI,ANIM_T(MX_ANI),
29 . NE_ANI,ANIM_E(MX_ANI),NN_ANI,ANIM_N(MX_ANI),
30 . NCT_ANI,ANIM_CT(MX_ANI),NCE_ANI,ANIM_CE(MX_ANI),
31 . NST_ANI,ANIM_ST(MX_ANI),NSE_ANI,ANIM_SE(MX_ANI),
32 . NFT_ANI,ANIM_FT(MX_ANI),NFE_ANI,ANIM_FE(MX_ANI),
33 . ANIM_M,ANIM_K,ANIM_U,ANIM_MAT,IEPSDOT,FMT_ANI,
34 . ANIM_VERS,IZIP,IFVANI,IFAILA,IAD_GPS,
35 . IZIPSTRS,ANIM_PLY,ANIM_CRK,
36 . TITLETAB,NTITLETAB,NLTITLE,
37 . ISTRESALL,ISTRAIALL,IEPSDOALL,IEPSPALL,IORTHDALL,
38 . IEPSPFULL,ISTRESFULL,IPLYALL,ISTRESALL_PLY,ISTRESALL_PLY_IPT,
39 . IPHIALL_PLY,IEPSPALL_PLY,ISTRAINALL_PLY,IDAMAFULL,ISTRAINFULL,
40 . IEPSDOFULL,IPHIALL,IWPLAFULL,IWPLAALL,IDAMAALL,
41 . INXTFALL,SIGH1ALL,SIGH2ALL
42 INTEGER NV_ANI,ANIM_V,NT_ANI,ANIM_T,NE_ANI,ANIM_E,
43 . NST_ANI,ANIM_ST,NSE_ANI,ANIM_SE,
44 . NCT_ANI,ANIM_CT,NCE_ANI,ANIM_CE,
45 . NFT_ANI,ANIM_FT,NFE_ANI,ANIM_FE,
46 . NN_ANI,ANIM_N,ANIM_M,ANIM_K,ANIM_U,ANIM_MAT,
47 . IEPSDOT,FMT_ANI,ANIM_VERS,IZIP,IFVANI,IFAILA,
48 . IAD_GPS,IZIPSTRS,ANIM_PLY,ANIM_CRK,
49 . NTITLETAB(MX_ANI),NLTITLE,
50 . ISTRESALL,ISTRAIALL,IEPSDOALL,IEPSPALL,IORTHDALL,
51 . IEPSPFULL,ISTRESFULL,IPLYALL,ISTRESALL_PLY,ISTRESALL_PLY_IPT,
52 . IPHIALL_PLY,IEPSPALL_PLY,ISTRAINALL_PLY,IDAMAFULL,ISTRAINFULL,
53 . IEPSDOFULL,IPHIALL,IWPLAFULL,IWPLAALL,IDAMAALL,
54 . INXTFALL,SIGH1ALL,SIGH2ALL
55 CHARACTER*80 TITLETAB(MX_ANI)
end diagonal values have been computed in the(sparse) matrix id.SOL
1.15.0