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