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:
23 INTEGER MAXLAY,ANIM_EPSP,ANIM_STRESS,ANIM_DAMA,ANIM_STRAIN,ANIM_EPSDOT,ANIM_WPLA
24 PARAMETER(MAXLAY = 100)
25 COMMON /ANIVAR1/ ANIM_EPSP(MAXLAY)
26 COMMON /ANIVAR2/ ANIM_STRESS(MAXLAY)
27 COMMON /ANIVAR3/ ANIM_DAMA(MAXLAY)
28 COMMON /ANIVAR4/ ANIM_STRAIN(MAXLAY)
29 COMMON /ANIVAR5/ ANIM_EPSDOT(MAXLAY)
30 COMMON /ANIVAR6/ ANIM_WPLA(MAXLAY)
33 PARAMETER (MX_PLY_ANIM = 8100)
34 COMMON /SCR25/IEPSDOTALL_PLY,IDAMAALL_PLY,
35 . PLY_ANIM(MX_PLY_ANIM),PLY_ANIM_STRESS(MX_PLY_ANIM),
36 . PLY_ANIM_PHI(MX_PLY_ANIM),PLY_ANIM_EPSP(MX_PLY_ANIM),
37 . PLY_ANIM_STRAIN(MX_PLY_ANIM),PLY_ANIM_EPSDOT(MX_PLY_ANIM),
38 . PLY_ANIM_DAMA(MX_PLY_ANIM),
39 . NBPLY_ANIM,NBPLY_ANIM_STRESS,NBPLY_ANIM_PHI,
40 . NBPLY_ANIM_EPSP,NBPLY_ANIM_STRAIN,NBPLY_ANIM_EPSDOT,
42 . IBRICK_STRESSALL,IBRICK_STRAINALL,IBRICK_EPSPALL,IBEAM_EPSPALL
43 INTEGER IEPSDOTALL_PLY,IDAMAALL_PLY,
44 . PLY_ANIM,PLY_ANIM_STRESS,PLY_ANIM_PHI,PLY_ANIM_EPSP,
45 . PLY_ANIM_STRAIN,PLY_ANIM_EPSDOT,PLY_ANIM_DAMA,
46 . NBPLY_ANIM,NBPLY_ANIM_STRESS,NBPLY_ANIM_PHI,
47 . NBPLY_ANIM_EPSP,NBPLY_ANIM_STRAIN,NBPLY_ANIM_EPSDOT,
49 . IBRICK_STRESSALL,IBRICK_STRAINALL,IBRICK_EPSPALL,IBEAM_EPSPALL
end diagonal values have been computed in the(sparse) matrix id.SOL
1.15.0