1 !Copyright> OpenRadioss
2 !Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
4 !Copyright> This program is free software: you can redistribute it and/or modify
5 !Copyright> it under
the terms of
the GNU Affero General Public License as published by
6 !Copyright>
the Free Software Foundation, either version 3 of
the License, or
7 !Copyright> (at your option) any later version.
9 !Copyright> This program is distributed in
the hope that it will be useful,
10 !Copyright> but WITHOUT ANY WARRANTY; without even
the implied warranty of
11 !Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
the
12 !Copyright> GNU Affero General Public License
for more details.
14 !Copyright> You should have received a copy of
the GNU Affero General Public License
15 !Copyright> along with
this program. If not, see <https:
18 !Copyright> Commercial Alternative: Altair Radioss Software
20 !Copyright> As an alternative to
this open-source version, Altair also offers Altair Radioss
21 !Copyright> software under a commercial license. Contact Altair to discuss further
if the
22 !Copyright> commercial version may interest you: https:
23#if CPP_mach == CPP_deca_mp || (CPP_mach == CPP_sgi6 && _MIPS_SZLONG == 64)||(CPP_mach == CPP_hp11 && CPP_rel == 640)
24#define tlock INTEGER*8
25#elif (CPP_mach == CPP_hp11 && CPP_rel == 600) || (CPP_mach == CPP_sx4_i3e && defined(_OPENMP)) || (CPP_mach == CPP_pwr4) || (CPP_mach == CPP_sun25 && CPP_rel == 580) || (CPP_mach == CPP_ppw) || CPP_mach == CPP_cx1 || CPP_mach == CPP_il
26#define tlock INTEGER*8
27#elif CPP_mach == CPP_ppc
28#define tlock type(f_pthread_mutex_t) ::
29#elif (CPP_mach == CPP_sun25 && CPP_rel == 1000)
30#define tlock INTEGER*8
end diagonal values have been computed in the(sparse) matrix id.SOL
1.15.0