Actual source code: sseenabled.c
1: /* $Id: sseenabled.c,v 1.5 2001/04/16 02:59:26 bsmith Exp $ */
2: #define "petsc.h"
4: #ifdef PETSC_HAVE_ICL
6: /* Processor specific version for PentiumIII and Pentium4 */
7: __declspec(cpu_specific(pentium_iii))
8: int PetscSSEIsEnabled(PetscTruth *flag) {
9: flag = PETSC_TRUE;
10: return(0);
11: }
13: __declspec(cpu_specific(pentium_iii_no_xmm_regs))
14: int PetscSSEIsEnabled(PetscTruth *flag) {
15: flag = PETSC_FALSE;
16: return(0);
17: }
18: /* Generic Intel processor version (i.e., not PIII,P4) */
19: __declspec(cpu_specific(generic))
20: int PetscSSEIsEnabled(PetscTruth *flag) {
21: flag = PETSC_FALSE;
22: return(0);
23: }
25: /* Dummy stub performs the dispatch of appropriate version */
26: __declspec(cpu_dispatch(generic,pentium_iii_no_xmm_regs,pentium_iii))
27: int PetscSSEIsEnabled(void) {}
29: #else
31: /* Version to use if not compiling with ICL */
32: int PetscSSEIsEnabled(PetscTruth *flag) {
33: flag = PETSC_FALSE;
34: return(0);
35: }
37: #endif