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:
23C--------------------------------------------------------------------
24C Attention : Chaque nouvelle variable ajoutee dans ce common
25C doit etre imperativement initialisee dans la routine
26C INITBUF, et non directement dans les routines telles
27C que FORINT, ALEMAIN, etc.
28C--------------------------------------------------------------------
30C$PAR INSTANCE TASK /VECT01/
32 task_common /VECT01/ LFT, LLT, NFT, MTN, IAD, ITY, NPT, JALE,
33 . ISMSTR, JEUL, JTUR, JTHE, JLAG, JMULT,JHBE,JIVF,NVAUX,JPOR,
34 . JCVT, JSPH,JCLOSE,JPLASOL, IREP,IINT,IHET,IGTYP,
35 . ISORTH,ISORTHG,ISRAT,ISROT,ICSEN,IFAILURE,
36 . JSMS,ISPH2SOL,IPARTSPH,IGRE,IFORMDT
37c$dir thread_private(/VECT01/)
38!IBM* THREADLOCAL /VECT01/
39!$OMP THREADPRIVATE(/VECT01/)
40 INTEGER LFT, LLT, NFT, MTN, IAD, ITY, NPT, JALE, ISMSTR, JEUL,
41 . JTUR, JTHE, JLAG, JMULT,JHBE,JIVF,NVAUX,JPOR,
42 . JCVT, JSPH, JCLOSE, JPLASOL, IREP,IINT,IHET,IGTYP,
43 . ISORTH,ISORTHG,ISRAT,ISROT,ICSEN,IFAILURE,
44 . JSMS,ISPH2SOL,IPARTSPH,IGRE,IFORMDT
end diagonal values have been computed in the(sparse) matrix id.SOL
1.15.0