OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
simd.inc
Go to the documentation of this file.
1 !Copyright> OpenRadioss
2 !Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3 !Copyright>
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.
8 !Copyright>
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.
13 !Copyright>
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://www.gnu.org/licenses/>.
16 !Copyright>
17 !Copyright>
18 !Copyright> Commercial Alternative: Altair Radioss Software
19 !Copyright>
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://www.altair.com/radioss/.
23#include "hardware.inc"
24#if CPP_mach == CPP_ymp || CPP_mach == CPP_ymp_spmd || CPP_mach == CPP_c90 || CPP_mach == CPP_t90 || CPP_mach == CPP_t90_i3e || CPP_mach == CPP_cx1 || CPP_mach == CPP_cx1_spmd
25CDIR$ IVDEP
26#elif CPP_mach == CPP_cvx
27C$DIR NO_RECURRENCE
28#elif CPP_mach == CPP_sx4 || CPP_mach == CPP_sx4_i3e || CPP_mach == CPP_sx5_spmd
29*VDIR NODEP
30#elif CPP_mach == CPP_vpp || CPP_mach == CPP_vpp_spmd
31!OCL NOVREC
32#elif CPP_mach == CPP_sun25
33C$pragma SUN pipeloop=0
34#elif CPP_mach == CPP_sgi6 && CPP_rel == 50
35CDIR$ IVDEP
36#elif CPP_mach == CPP_p4linux964 || CPP_mach == p4win64
37!DIR$ SIMD
38#elif 1
39#endif
end diagonal values have been computed in the(sparse) matrix id.SOL