ParallelProgrammingProject/2forms_parallelism.c at main · Hadi-Fawad/ParallelProgrammingProject · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
#include <stdio.h>
#include <stdlib.h>
#include <omp.h>
#include <mpi.h>

#ifndef COMPUTE_NAME
#define COMPUTE_NAME parallel_baseline
#endif

#ifndef DISTRIBUTE_DATA_NAME
#define DISTRIBUTE_DATA_NAME parallel_baseline_distribute
#endif

#ifndef COLLECT_DATA_NAME
#define COLLECT_DATA_NAME parallel_baseline_collect
#endif

#ifndef DISTRIBUTED_ALLOCATE_NAME
#define DISTRIBUTED_ALLOCATE_NAME parallel_baseline_allocate
#endif

#ifndef DISTRIBUTED_FREE_NAME
#define DISTRIBUTED_FREE_NAME parallel_baseline_free
#endif

void COMPUTE_NAME(int m0, int k0, float *input_distributed, float *weights_distributed, float *output_distributed) {
    int rid;
    int num_ranks;
    int tag = 0;
    MPI_Status status;
    int root_rid = 0;

    MPI_Comm_rank(MPI_COMM_WORLD, &rid);
    MPI_Comm_size(MPI_COMM_WORLD, &num_ranks);

    // openMP for parallelism
    #pragma omp parallel for
    for (int i0 = 0; i0 < m0; ++i0) {
        float res = 0.0f;
        for (int p0 = 0; p0 < k0; ++p0) {
            res += input_distributed[(p0 + i0) % m0] * weights_distributed[p0];
        }
        output_distributed[i0] = res;
    }

    // MPI for distributed
    MPI_Barrier(MPI_COMM_WORLD);
}

void DISTRIBUTED_ALLOCATE_NAME(int m0, int k0, float **input_distributed, float **weights_distributed, float **output_distributed) {
    int rid;
    int num_ranks;
    int tag = 0;
    MPI_Status status;
    int root_rid = 0;

    MPI_Comm_rank(MPI_COMM_WORLD, &rid);
    MPI_Comm_size(MPI_COMM_WORLD, &num_ranks);

    if (rid == root_rid) {
        // This block will only run on the node that matches root_rid.
        *input_distributed = (float *)malloc(sizeof(float) * m0);
        *output_distributed = (float *)malloc(sizeof(float) * m0);
        *weights_distributed = (float *)malloc(sizeof(float) * k0);
    }
    else {
        // This will run on all other nodes whose rid is not root_rid.
    }
}

void DISTRIBUTE_DATA_NAME(int m0, int k0, float *input_sequential, float *weights_sequential, float *input_distributed, float *weights_distributed) {
    int rid;
    int num_ranks;
    int tag = 0;
    MPI_Status status;
    int root_rid = 0;

    MPI_Comm_rank(MPI_COMM_WORLD, &rid);
    MPI_Comm_size(MPI_COMM_WORLD, &num_ranks);

    if (rid == root_rid) {
        // This block will only run on the node that matches root_rid.
        // Distribute the inputs
        for (int i0 = 0; i0 < m0; ++i0)
            input_distributed[i0] = input_sequential[i0];

        // Distribute the weights
        for (int p0 = 0; p0 < k0; ++p0)
            weights_distributed[p0] = weights_sequential[p0];
    }
    else {
        // This will run on all other nodes whose rid is not root_rid.
    }
}

void COLLECT_DATA_NAME(int m0, int k0, float *output_distributed, float *output_sequential) {
    int rid;
    int num_ranks;
    int tag = 0;
    MPI_Status status;
    int root_rid = 0;

    MPI_Comm_rank(MPI_COMM_WORLD, &rid);
    MPI_Comm_size(MPI_COMM_WORLD, &num_ranks);

    if (rid == root_rid) {
        // This block will only run on the node that matches root_rid.
        // Collect the output
        for (int i0 = 0; i0 < m0; ++i0)
            output_sequential[i0] = output_distributed[i0];
    }
    else {
        // This will run on all other nodes whose rid is not root_rid.
    }
}

void DISTRIBUTED_FREE_NAME(int m0, int k0, float *input_distributed, float *weights_distributed, float *output_distributed) {
    int rid;
    int num_ranks;
    int tag = 0;
    MPI_Status status;
    int root_rid = 0;

    MPI_Comm_rank(MPI_COMM_WORLD, &rid);
    MPI_Comm_size(MPI_COMM_WORLD, &num_ranks);

    if (rid == root_rid) {
        // This block will only run on the node that matches root_rid.
        free(input_distributed);
        free(weights_distributed);
        free(output_distributed);
    }
    else {
        // This will run on all other nodes whose rid is not root_rid.
    }
}