CSC/ECE 506 Spring 2010/ch 2 maf: Difference between revisions
Jump to navigation
Jump to search
| Line 84: | Line 84: | ||
C DATA PARALLEL IMPLEMENTATION IN FORTRAN | C DATA PARALLEL IMPLEMENTATION IN FORTRAN | ||
REAL A(8), B(8), C(8), LOCAL_SUM(2) | REAL A(8), B(8), C(8), LOCAL_SUM(2), SUM | ||
FORALL ID = 1:2 | FORALL ID = 1:2 | ||
| Line 90: | Line 90: | ||
START_ITER = (ID - 1) * LOCAL_ITER + 1 | START_ITER = (ID - 1) * LOCAL_ITER + 1 | ||
END_ITER = START_ITER + LOCAL_ITER - 1 | END_ITER = START_ITER + LOCAL_ITER - 1 | ||
DO I = START_ITER:END_ITER | DO I = START_ITER:END_ITER | ||
A[I] = B[I] + C[I] | A[I] = B[I] + C[I] | ||
END DO | END DO | ||
LOCAL_SUM[ID] = 0; | LOCAL_SUM[ID] = 0; | ||
DO I = START_ITER:END_ITER | DO I = START_ITER:END_ITER | ||
Revision as of 06:55, 27 January 2010
Supplement to Chapter 2: The Data Parallel Programming Model
Overview
| Aspects | Shared Memory | Message Passing | Data Parallel |
|---|---|---|---|
| Communication | implicit (via loads/stores) | explicit messages | implicit |
| Synchronization | explicit | implicit (via messages) | implicit for SIMD; explicit for SPMD |
| Hardware support | typically required | none | |
| Development effort | lower | higher | higher |
| Tuning effort | higher | lower |
A Code Example
// Simple sequential code from Solihin 2008, page 25.
for (i = 0; i < 8; i++)
a[i] = b[i] + c[i];
sum = 0;
for (i = 0; i < 8; i++)
if (a[i] > 0)
sum = sum + a[i];
Print sum;
// Data parallel implementation in C for CUDA.
__global__ void kernel(
double* a,
double* b,
double* c,
double* local_sum)
{
int id = threadIdx.x;
int local_iter = 4;
int start_iter = id * local_iter;
int end_iter = start_iter + local_iter;
for (int i = start_iter; i < end_iter; i++)
a[i] = b[i] + c[i];
local_sum[id] = 0;
for (int i = start_iter; i < end_iter; i++)
local_sum[id] = local_sum[id] + a[i];
}
int main()
{
double a[8], b[8], c[8], local_sum[2];
kernel<<<1, 2>>>(a, b, c, local_sum);
double sum = local_sum[0] + local_sum[1];
cout << sum;
}
C DATA PARALLEL IMPLEMENTATION IN FORTRAN
REAL A(8), B(8), C(8), LOCAL_SUM(2), SUM
FORALL ID = 1:2
LOCAL_ITER = 4
START_ITER = (ID - 1) * LOCAL_ITER + 1
END_ITER = START_ITER + LOCAL_ITER - 1
DO I = START_ITER:END_ITER
A[I] = B[I] + C[I]
END DO
LOCAL_SUM[ID] = 0;
DO I = START_ITER:END_ITER
LOCAL_SUM[ID] = LOCAL_SUM[ID] + A[I]
END DO
END FORALL
SUM = LOCAL_SUM[0] + LOCAL_SUM[1]
WRITE(*,*) SUM