nattoheaven

      SUBROUTINE SEARCH1(IDATA,IDX,INPUT,IOUT,N)
      IMPLICIT NONE
      INTEGER IDATA,IDX,INPUT,IOUT,I,N,IL,IR,IC
      DIMENSION IDATA(N),IDX(N),INPUT(N),IOUT(N)
      DO 20 I=1,N
         IL=1
         IR=N
 30      IC=(IL+IR)/2
         IF(IDATA(IDX(IC)).EQ.INPUT(I))THEN
            IOUT(I)=IC

nattoheaven

#include <iostream>
#include <string>
#include <ctime>

#define _mm_malloc(a, b) _aligned_malloc(a, b)

#include <CL/cl.h>

const char triad_kernel[] =
    "__kernel void\n"

nattoheaven

#include <stdio.h>
#include <xmmintrin.h>

int
main()
{
  int i;
  float fi;
  union {
    int i;

nattoheaven

#if defined(__APPLE__)
#include <OpenGL/CGLCurrent.h>
#include <GLUT/glut.h>
#include <OpenCL/cl_gl_ext.h>
#else
#if defined(_WIN32) || defined(_WIN64)
#include <GL/glew.h>
#else
#include <GL/glxew.h>
#endif