nattoheaven

#include <stdio.h>
#include <pgm.h>

#define MAXITER 255

#define CUDA_SAFE_CALL(E) do {                                          \
    cudaError_t e = (E);                                                \
    if (e != cudaSuccess) {                                             \
      printf("line %d: CUDA error: %s\n", __LINE__, cudaGetErrorString(e)); \
      exit(-2);                                                         \

nattoheaven

/********************************************************************

 This benchmark test program is measuring a cpu performance
 of floating point operation by a Poisson equation solver.

 If you have any question, please ask me via email.
 written by Ryutaro HIMENO, November 26, 2001.
 Version 3.0
 ----------------------------------------------
 Ryutaro Himeno, Dr. of Eng.

nattoheaven

#include <stdio.h>
#include <omp.h>

#include <sys/time.h>

#ifdef RDRAND
typedef char seed_t;
static inline unsigned int
myrand(seed_t *seed)
{

nattoheaven

/********************************************************************

 This benchmark test program is measuring a cpu performance
 of floating point operation by a Poisson equation solver.

 If you have any question, please ask me via email.
 written by Ryutaro HIMENO, November 26, 2001.
 Version 3.0
 ----------------------------------------------
 Ryutaro Himeno, Dr. of Eng.

nattoheaven

#include <stdio.h>
#include <omp.h>

#include <sys/time.h>

#ifdef CURAND
#include <curand.h>

typedef struct {
  curandGenerator_t gen;

nattoheaven

#include <stdio.h>
#include <stdlib.h>
#include <pthread.h>

static double zr = 0.0;
static double zi = 0.0;
static const double cr = 0.1;
static const double ci = 0.1;

#ifndef TSX

nattoheaven

#include <stdio.h>
#include <stdlib.h>
#include <pthread.h>
#include <unistd.h>

#include <immintrin.h>

static volatile double zr = 0.0;
static volatile double zi = 0.0;
static const double cr = 0.1;

nattoheaven

#include <stdio.h>
#include <stdlib.h>
#include <pthread.h>
#include <unistd.h>

#include <immintrin.h>

static volatile double zr = 0.0;
static volatile double zi = 0.0;
static const double cr = 0.1;

nattoheaven

#!/usr/bin/ruby

for narg in 0..10 do
  File.open('kernel' + narg.to_s + '.cu', 'w') do |kernel|
    kernel.write('extern "C" __global__ void kernel(');
    for iarg in 0...narg do
      if (iarg != 0) then
        kernel.write(',');
      end
      kernel.write('void *a');

nattoheaven

#!/usr/bin/ruby

for narg in 0..10 do
  File.open('kernel_dp' + narg.to_s + '.cu', 'w') do |kernel|
    kernel.write('extern "C" __global__ void kernel(');
    for iarg in 0...narg do
      if (iarg != 0) then
        kernel.write(',');
      end
      kernel.write('void *a');