]> AND Private Git Repository - book_gpu.git/blob - BookGPU/Chapters/chapter6/PartieAsync.tex
Logo AND Algorithmique Numérique Distribuée

Private GIT Repository
new
[book_gpu.git] / BookGPU / Chapters / chapter6 / PartieAsync.tex
1 \section{General scheme of asynchronous parallel code with
2 computation/communication overlapping}
3 \label{ch6:part2}
4
5 In the previous part, we have seen how to efficiently implement overlap of
6 computations (CPU and GPU) with communications (GPU transfers and inter-node
7 communications).  However, we have previously shown that for some parallel
8 iterative algorithms, it is sometimes even more efficient to use an asynchronous
9 scheme of iterations\index{iterations!asynchronous} \cite{HPCS2002,ParCo05,Para10}.  In that case, the nodes do
10 not wait for each others but they perform their iterations using the last
11 external data they have received from the other nodes, even if this
12 data was produced \emph{before} the previous iteration on the other nodes.
13
14 Formally, if we denote by $f=(f_1,...,f_n)$ the function representing the
15 iterative process and by $x^t=(x_1^t,...,x_n^t)$ the values of the $n$ elements of
16 the system at iteration $t$, we pass from a synchronous iterative scheme of the
17 form:
18 %% \begin{algorithm}[H]
19 %%   \caption{Synchronous iterative scheme}\label{algo:ch6p2sync}
20 %%   \begin{Algo}
21 %%     $x^{0}=(x_{1}^{0},...,x_{n}^{0})$\\
22 %%     \textbf{for} $t=0,1,...$\\
23 %%     \>\textbf{for} $i=1,...,n$\\
24 %%     \>\>$x_{i}^{t+1}=f_{i}(x_{1}^t,...,x_i^t,...,x_{n}^t)$\\
25 %%     \>\textbf{endfor}\\
26 %%     \textbf{endfor}
27 %%   \end{Algo}
28 %% \end{algorithm}
29 \begin{algorithm}[H]
30   \caption{Synchronous iterative scheme}\label{algo:ch6p2sync}
31   $x^{0}=(x_{1}^{0},...,x_{n}^{0})$\;
32   \For{ $t=0,1,...$} {
33     \For{ $i=1,...,n$}{
34       $x_{i}^{t+1}=f_{i}(x_{1}^t,...,x_i^t,...,x_{n}^t)$\;
35     }
36   }
37 \end{algorithm}
38
39
40 \noindent
41 to an asynchronous iterative scheme of the form:\\
42 %% \begin{algorithm}[H]
43 %%   \caption{Asynchronous iterative scheme}\label{algo:ch6p2async}
44 %%   \begin{Algo}
45 %%     $x^{0}=(x_{1}^{0},...,x_{n}^{0})$\\
46 %%     \textbf{for} $t=0,1,...$\\
47 %%     \>\textbf{for} $i=1,...,n$\\
48 %%     \>\>$x_{i}^{t+1}=\left\{
49 %%       \begin{array}[h]{ll}
50 %%         x_i^t & \text{if } i \text{ is \emph{not} updated at iteration } i\\
51 %%         f_i(x_1^{s_1^i(t)},...,x_n^{s_n^i(t)}) & \text{if } i \text{ is updated at iteration } i
52 %%       \end{array}
53 %%     \right.$\\
54 %%     \>\textbf{endfor}\\
55 %%     \textbf{endfor}
56 %%   \end{Algo}
57 %% \end{algorithm}
58 \begin{algorithm}[H]
59   \caption{Asynchronous iterative scheme}\label{algo:ch6p2async}
60     $x^{0}=(x_{1}^{0},...,x_{n}^{0})$\;
61     \For {$t=0,1,...$} {
62       \For{ $i=1,...,n$} {
63         $x_{i}^{t+1}=\left\{
64       \begin{array}[h]{ll}
65         x_i^t & \text{if } i \text{ is \emph{not} updated at iteration } i\\
66         f_i(x_1^{s_1^i(t)},...,x_n^{s_n^i(t)}) & \text{if } i \text{ is updated at iteration } i
67       \end{array}
68     \right.$
69       }
70     }
71 \end{algorithm}
72 where $s_j^i(t)$ is the iteration number of the production of the value $x_j$ of
73 element $j$  that is  used on element  $i$ at iteration  $t$ (see for example~\cite{BT89,
74   FS2000} for further details).
75 Such schemes  are called AIAC\index{AIAC} for  \emph{Asynchronous Iterations and
76   Asynchronous Communications}.  They combine  two aspects that are respectively
77 different computation speeds of  the computing elements and communication delays
78 between them.
79
80 The key feature of such algorithmic schemes
81 is  that they  may be  faster  than their  synchronous counterparts  due to  the
82 implied total overlap of computations  with communications: in fact, this scheme
83 suppresses all the  idle times induced by nodes  synchronizations between each iteration.
84
85 However, the efficiency of such a scheme is directly linked to the frequency at
86 which new data arrives on each node. Typically,
87 if a node receives newer data only every four or five local iterations, it is
88 strongly probable that the evolution of its local iterative process will be
89 slower than if it receives data at every iteration. The key point here is that
90 this frequency does not only depend on the hardware configuration of the
91 parallel system but it also depends on the software that is used to
92 implement the algorithmic scheme.
93
94 The impact of the programming environments used to implement asynchronous
95 algorithms has already been investigated in~\cite{SuperCo05}.  Although the
96 features required to efficiently implement asynchronous schemes have not
97 changed, the available programming environments and computing hardware have
98 evolved, in particular now GPUs are available.  So, there is a need to reconsider the
99 implementation schemes of AIAC according to the new de facto standards for parallel
100 programming (communications and threads) as well as the integration of the GPUs.
101 One of the main objective here is to obtain a maximal overlap between the
102 activities of the three types of devices that are the CPU, the GPU and the
103 network. Moreover, another objective is to present what we think
104 is the best compromise between the simplicity of the implementation and its
105 maintainability on one side and its
106 performance on the other side.  This is especially important for industries where
107 implementation and maintenance costs are strong constraints.
108
109 For the sake of clarity, we present the different algorithmic schemes in a progressive
110 order of complexity, from the basic asynchronous scheme to the complete scheme
111 with full overlap.  Between these two extremes, we propose a synchronization
112 mechanism on top of our asynchronous scheme that can be used either statically or
113 dynamically during the application execution.
114
115 Although there exist several programming environments for inter-node
116 communications, multi-threading and GPU programming, a few of them have
117 become \emph{de facto standards}, either due to their good stability, their ease
118 of use and/or their wide adoption by the scientific community.
119 Therefore, as in the previous section all the schemes presented in the following use MPI~\cite{MPI},
120 OpenMP~\cite{openMP} and CUDA~\cite{CUDA}.  However, there is no loss of
121 generality as those schemes may easily be implemented with other libraries.
122
123 Finally, in order to stay as clear as possible, only the parts of code and
124 variables related to the control of parallelism (communications, threads,...)
125 are presented in our schemes. The inner organization of data is not detailed as
126 it depends on the application.  We only consider that we have two data arrays
127 (previous version and current version) and communication buffers.  However, in
128 most of the cases, those buffers can correspond to the data arrays themselves to
129 avoid data copies.
130
131 \subsection{A basic asynchronous scheme}
132 \label{ch6:p2BasicAsync}
133
134 The first step toward our complete scheme is to implement a basic asynchronous
135 scheme that includes an actual overlap of the communications with the
136 computations\index{overlap!computation and communication}. In order to ensure that the communications are actually performed
137 in parallel of the computations, it is necessary to use different threads.  It
138 is important to remember that asynchronous communications provided in
139 communication libraries like MPI are not systematically performed in parallel of
140 the computations~\cite{ChVCV13,Hoefler08a}.  So, the logical and classical way
141 to implement such an overlap is to use three threads: one for
142 computing, one for sending and one for receiving. Moreover, since
143 the communication is performed by threads, blocking synchronous communications\index{MPI!communication!blocking}\index{MPI!communication!synchronous}
144 can be used without deteriorating the overall performance.
145
146 In this basic version, the termination\index{termination} of the global process is performed
147 individually on each node according to their own termination. This can be guided by either a
148 number of iterations or a local convergence detection\index{convergence detection}. The important step at
149 the end of the process is to perform the receptions of all pending
150 communications in order to ensure the termination of the two communication
151 threads.
152
153 So, the global organization of this scheme is set up in \Lst{algo:ch6p2BasicAsync}.
154
155 % \begin{algorithm}[H]
156 %   \caption{Initialization of the basic asynchronous scheme.}
157 %   \label{algo:ch6p2BasicAsync}
158 \begin{Listing}{algo:ch6p2BasicAsync}{Initialization of the basic asynchronous scheme}
159 // Variables declaration and initialization
160 // Controls the sendings from the computing thread
161 omp_lock_t lockSend; 
162 // Ensures the initial reception of external data
163 omp_lock_t lockRec;  
164 char Finished = 0; // Boolean indicating the end of the process
165 // Boolean indicating if previous data sendings are still in progress
166 char SendsInProgress = 0; 
167 // Threshold of the residual for convergence detection
168 double Threshold; 
169
170 // Parameters reading
171 ...
172
173 // MPI initialization
174 MPI_Init_thread(argc, argv, MPI_THREAD_MULTIPLE, &provided);
175 MPI_Comm_size(MPI_COMM_WORLD, &nbP);
176 MPI_Comm_rank(MPI_COMM_WORLD, &numP);
177
178 // Data initialization and distribution among the nodes
179 ...
180
181 // OpenMP initialization (mainly declarations and setting up of locks)
182 omp_set_num_threads(3);
183 omp_init_lock(&lockSend);
184 omp_set_lock(&lockSend);//Initially locked, unlocked to start sendings
185 omp_init_lock(&lockRec);
186 //Initially locked, unlocked when initial data are received
187 omp_set_lock(&lockRec);
188
189 #pragma omp parallel
190 {
191   switch(omp_get_thread_num()){
192     case COMPUTATION :
193     computations(... @\emph{relevant parameters}@ ...);
194     break;
195     
196     case SENDINGS :
197     sendings();
198     break;
199     
200     case RECEPTIONS :
201     receptions();
202     break;
203   }
204 }
205
206 // Cleaning of OpenMP locks
207 omp_test_lock(&lockSend);
208 omp_unset_lock(&lockSend);
209 omp_destroy_lock(&lockSend);
210 omp_test_lock(&lockRec);
211 omp_unset_lock(&lockRec);
212 omp_destroy_lock(&lockRec);
213
214 // MPI termination
215 MPI_Finalize();
216 \end{Listing}
217 %\end{algorithm}
218
219 % \ANNOT{Est-ce qu'on laisse le 1er échange de données ou pas dans
220 %   l'algo~\ref{algo:ch6p2BasicAsyncComp} ? (lignes 16-19)\\
221 %   (ça n'est pas nécessaire si les données de
222 %   départ sont distribuées avec les dépendances qui correspondent, sinon il faut
223 %   le faire)} 
224
225 In this scheme, the \texttt{lockRec} mutex\index{OpenMP!mutex} is not mandatory.
226 It is only used to ensure that data dependencies are actually exchanged at the
227 first iteration of the process.  Data initialization and distribution
228 (lines~16-17) are not detailed here because they are directly related to the
229 application. The important point is that, in most cases, they should be done
230 before the iterative process.  The computing function is given in
231 \Lst{algo:ch6p2BasicAsyncComp}.
232
233 %\begin{algorithm}[H]
234 %  \caption{Computing function in the basic asynchronous scheme.}
235 %  \label{algo:ch6p2BasicAsyncComp}
236 \begin{Listing}{algo:ch6p2BasicAsyncComp}{Computing function in the basic asynchronous scheme}
237 // Variables declaration and initialization
238 int iter = 1;      // Number of the current iteration
239 double difference; // Variation of one element between two iterations
240 double residual;   // Residual of the current iteration
241
242 // Computation loop
243 while(!Finished){
244   // Sendings of data dependencies if there is no previous sending
245   // in progress
246   if(!SendsInProgress){
247     // Potential copy of data to be sent in additional buffers
248     ...
249     // Change of sending state
250     SendsInProgress = 1;
251     omp_unset_lock(&lockSend);
252   }
253   
254   // Blocking receptions at the first iteration
255   if(iter == 1){
256     omp_set_lock(&lockRec);
257   }
258   
259   // Initialization of the residual
260   residual = 0.0;
261   // Swapping of data arrays (current and previous)
262   tmp = current;      // Pointers swapping to avoid
263   current = previous; // actual data copies between
264   previous = tmp;     // the two data versions
265   // Computation of current iteration over local data
266   for(ind=0; ind<localSize; ++ind){
267     // Updating of current array using previous array 
268     ...
269     // Updating of the residual
270     // (max difference between two successive iterations)
271     difference = fabs(current[ind] - previous[ind]);
272     if(difference > residual){
273       residual = difference;
274     }
275   }
276     
277   // Checking of the end of the process (residual under threshold)
278   // Other conditions can be added to the termination detection
279   if(residual <= Threshold){
280     Finished = 1;
281     omp_unset_lock(&lockSend); // Activation of end messages sendings
282     MPI_Ssend(&Finished, 1, MPI_CHAR, numP, tagEnd, MPI_COMM_WORLD);
283   }
284   
285   // Updating of the iteration number
286   iter++;
287 }
288 \end{Listing}
289 %\end{algorithm}
290
291 As mentioned above, it can be seen in line~18 of \Lst{algo:ch6p2BasicAsyncComp}
292 that the \texttt{lockRec} mutex is used only at the first iteration to wait for
293 the initial data dependencies before the computations. The residual\index{residual}, initialized
294 in line~23 and computed in lines~34-37, is defined by the maximal difference
295 between the elements from two consecutive iterations. It is classically used to
296 detect the local convergence of the process on each node.  In the more
297 complete schemes presented in the sequel, a global termination detection that
298 takes the states of all the nodes into account will be exhibited.
299
300 Finally, the local convergence is tested and updated when necessary. In line~44,
301 the \texttt{lockSend} mutex is unlocked to allow the sending function to send
302 final messages to the dependency nodes.  Those messages are required to keep the
303 reception function alive until all the final messages have been received.
304 Otherwise, a node could stop its reception function whereas other nodes are
305 still trying to communicate with it.  Moreover, a local sending of a final
306 message to the node itself is required (line~45) to ensure that the reception
307 function will not stay blocked in a message probing
308 (see~\Lst{algo:ch6p2BasicAsyncReceptions}, line~11). This may happen if the node
309 receives the final messages from its dependencies \emph{before} being itself in
310 local convergence.
311
312 All the messages but this final local one are performed in the sending function
313 described in \Lst{algo:ch6p2BasicAsyncSendings}.
314
315 The main loop is only conditioned by the end of the computing process (line~4).
316 At each iteration, the thread waits for the permission from the computing thread
317 (according to the \texttt{lockSend} mutex).  Then, data are sent with
318 blocking synchronous communications.  The \texttt{SendsInProgress} boolean
319 allows the computing thread to skip data sendings as long as a previous sending
320 is in progress. This skip is possible due to the nature of asynchronous
321 algorithms that allows such \emph{message loss}\index{message!loss/miss} or \emph{message miss}. After
322 the main loop, the final messages are sent to the dependencies of the node.
323
324 %\begin{algorithm}[H]
325 %  \caption{Sending function in the basic asynchronous scheme.}
326 %  \label{algo:ch6p2BasicAsyncSendings}
327 \begin{Listing}{algo:ch6p2BasicAsyncSendings}{Sending function in the basic asynchronous scheme}
328 // Variables declaration and initialization
329 ...
330
331 while(!Finished){
332   omp_set_lock(&lockSend); // Waiting for signal from the comp. thread
333   if(!Finished){
334     // Blocking synchronous sends to all dependencies
335     for(i=0; i<nbDeps; ++i){
336       MPI_Ssend(&dataToSend[deps[i]], nb_data, type_of_data, deps[i], tagCom, MPI_COMM_WORLD);
337     }
338     SendsInProgress = 0; // Indicates that the sendings are done
339   }
340 }
341 // At the end of the process, sendings of final messages
342 for(i=0; i<nbDeps; ++i){
343   MPI_Ssend(&Finished, 1, MPI_CHAR, deps[i], tagEnd, MPI_COMM_WORLD);
344 }
345 \end{Listing}
346 %\end{algorithm}
347
348 The last function, detailed in \Lst{algo:ch6p2BasicAsyncReceptions}, does all the messages receptions.
349 %\begin{algorithm}[H]
350 %  \caption{Reception function in the basic asynchronous scheme.}
351 %  \label{algo:ch6p2BasicAsyncReceptions}
352 \begin{Listing}{algo:ch6p2BasicAsyncReceptions}{Reception function in the basic asynchronous scheme}
353 // Variables declaration and initialization
354 char countReceipts = 0; // Boolean indicating whether receptions are 
355 // counted or not
356 int nbEndMsg = 0;       // Number of end messages received
357 int arrived = 0;        // Boolean indicating if a message is arrived
358 int srcNd;              // Source node of the message
359 int size;               // Message size
360
361 // Main loop of receptions
362 while(!Finished){
363   // Waiting for an incoming message
364   MPI_Probe(MPI_ANY_SOURCE, MPI_ANY_TAG, MPI_COMM_WORLD, &status);
365   if(!Finished){
366     // Management of data messages
367     switch(status.MPI_TAG){
368       case tagCom: // Management of data messages
369        // Get the source node of the message
370        srcNd = status.MPI_SOURCE; 
371        // Actual data reception in the corresponding buffer
372        MPI_Recv(dataBufferOf(srcNd), nbDataOf(srcNd), dataTypeOf(srcNd), srcNd, tagCom, MPI_COMM_WORLD, &status); 
373        // Unlocking of the computing thread when data are received 
374        // from all dependencies
375        if(countReceipts == 1 && ... @\emph{receptions from ALL dependencies}@ ...){
376          omp_unset_lock(&lockRec);
377          countReceipts = 0; // No more counting after first iteration
378        }
379        break;
380       case tagEnd: // Management of end messages
381        // Actual end message reception in dummy buffer
382        MPI_Recv(dummyBuffer, 1, MPI_CHAR, status.MPI_SOURCE, tagEnd, MPI_COMM_WORLD, &status); 
383        nbEndMsg++;
384     }
385   }
386 }
387
388 // Reception of pending messages and counting of end messages
389 do{ // Loop over the remaining incoming/waited messages
390   MPI_Probe(MPI_ANY_SOURCE, MPI_ANY_TAG, MPI_COMM_WORLD, &status);
391   MPI_Get_count(&status, MPI_CHAR, &size);
392   // Actual reception in dummy buffer
393   MPI_Recv(dummyBuffer, size, MPI_CHAR, status.MPI_SOURCE, status.MPI_TAG, MPI_COMM_WORLD, &status); 
394   if(status.MPI_TAG == tagEnd){ // Counting of end messages
395     nbEndMsg++;
396   }
397   MPI_Iprobe(MPI_ANY_SOURCE, MPI_ANY_TAG, MPI_COMM_WORLD, &arrived, &status);
398 }while(arrived == 1 || nbEndMsg < nbDeps + 1);
399 \end{Listing}
400 %\end{algorithm}
401
402 As in the sending function, the main loop of receptions is done while the
403 iterative process is not \texttt{Finished}.  In line~11, the thread waits until
404 a message arrives on the node.  Then, it performs the actual reception and the
405 corresponding subsequent actions (potential data copies for data messages and
406 counting for end messages). Lines 20-23 check that all data dependencies have
407 been received before unlocking the \texttt{lockRec} mutex. As mentioned before,
408 they are not mandatory and are included only to ensure that all data
409 dependencies are received at the first iteration. Lines 25-28 are required to
410 manage end messages that arrive on the node \emph{before} it reaches its own
411 termination process. As the nodes are \emph{not} synchronized, this may happen.
412 Finally, lines 34-43 perform the receptions of all pending communications,
413 including the remaining end messages (at least the one from the node itself).
414
415 \medskip
416 So, with those algorithms, we obtain a quite simple and efficient asynchronous
417 iterative scheme. It is interesting to notice that GPU computing can be easily
418 included in the computing thread.  This will be fully addressed in
419 paragraph~\ref{ch6:p2GPUAsync}.  However, before presenting the complete
420 asynchronous scheme with GPU computing, we have to detail how our initial scheme
421 can be made synchronous.
422
423 \subsection{Synchronization of the  asynchronous scheme}
424 \label{ch6:p2SsyncOverAsync}
425
426 The presence of synchronization in the previous scheme may seem contradictory to our goal,
427 and obviously, it is neither the simplest way to obtain a synchronous scheme nor
428 the most efficient (as presented in~\Sec{ch6:part1}). However, it is necessary
429 for our global convergence detection strategy\index{convergence detection!global}. Recall that the
430 global convergence\index{convergence!global} is the extension of the local convergence\index{convergence!local} concept to all the
431 nodes. This implies that all the nodes have to be in local convergence at the
432 same time to achieve global convergence. Typically, if we use the residual and a
433 threshold to stop the iterative process, all the nodes have to continue their
434 local iterative process until \emph{all} of them obtain a residual under the
435 threshold.
436
437 % Moreover, it  allows the gathering  of both operating  modes in a  single source
438 % code, which tends to improve  the implementation and maintenance costs when both
439 % versions are required.
440 % The  second one  is  that
441 In our context, the interest of being able to dynamically change the operating
442 mode (sync/async) during the process execution, is that this strongly simplifies
443 the global convergence detection.  In fact, our past experience in the design
444 and implementation of global convergence detection in asynchronous
445 algorithms~\cite{SuperCo05, BCC07, Vecpar08a}, have led us to the conclusion
446 that although a decentralized detection scheme is possible and may be more
447 efficient in some situations, its much higher complexity is an
448 obstacle to actual use in practice, especially in industrial contexts where
449 implementation/maintenance costs are strong constraints. Moreover, although the
450 decentralized scheme does not slow down the computations, it requires more iterations than a synchronous version and
451 thus may induce longer detection times in some cases.  So, the solution we
452 present below is a good compromise between simplicity and efficiency.  It
453 consists in dynamically changing the operating mode between asynchronous and synchronous
454 during the execution of the process in order to check the global convergence.
455 This is why we need to synchronize our asynchronous scheme.
456
457 In each  algorithm of the  initial scheme, we  only exhibit the  additional code
458 required to change the operating mode.
459
460 %\begin{algorithm}[H]
461 %  \caption{Initialization of the synchronized scheme.}
462 %  \label{algo:ch6p2Sync}
463 \begin{Listing}{algo:ch6p2Sync}{Initialization of the synchronized scheme}
464 // Variables declarations and initialization
465 ...
466 // Controls the synchronous exchange of local states 
467 omp_lock_t lockStates; 
468 // Controls the synchronization at the end of each iteration
469 omp_lock_t lockIter;   
470 //Boolean indicating whether the local stabilization is reached or not
471 char localCV = 0;      
472 // Number of other nodes being in local stabilization
473 int nbOtherCVs = 0;    
474
475 // Parameters reading
476 ...
477 // MPI initialization
478 ...
479 // Data initialization and distribution among the nodes
480 ...
481 // OpenMP initialization (mainly declarations and setting up of locks)
482 ...
483 omp_init_lock(&lockStates);
484 // Initially locked, unlocked when all state messages are received
485 omp_set_lock(&lockStates); 
486 omp_init_lock(&lockIter);
487 // Initially locked, unlocked when all "end of iteration" messages are
488 // received
489 omp_set_lock(&lockIter);   
490
491 // Threads launching
492 #pragma omp parallel
493 {
494   switch(omp_get_thread_num()){
495     ...
496   }
497 }
498
499 // Cleaning of OpenMP locks
500 ...
501 omp_test_lock(&lockStates);
502 omp_unset_lock(&lockStates);
503 omp_destroy_lock(&lockStates);
504 omp_test_lock(&lockIter);
505 omp_unset_lock(&lockIter);
506 omp_destroy_lock(&lockIter);
507
508 // MPI termination
509 MPI_Finalize();
510 \end{Listing}
511 %\end{algorithm}
512
513 As can be seen in \Lst{algo:ch6p2Sync}, the synchronization implies two
514 additional mutex.  The \texttt{lockStates} mutex is used to wait for the
515 receptions of all state messages coming from the other nodes.  As shown
516 in \Lst{algo:ch6p2SyncComp}, those messages contain only a boolean indicating
517 for each node if it is in local convergence\index{convergence!local}. So, once all the states are
518 received on a node, it is possible to determine if all the nodes are in local
519 convergence, and thus to detect the global convergence.  The \texttt{lockIter}
520 mutex is used to synchronize all the nodes at the end of each iteration.  There
521 are also two new variables that respectively represent the local state of the
522 node (\texttt{localCV}) according to the iterative process (convergence) and the
523 number of other nodes that are in local convergence (\texttt{nbOtherCVs}).
524
525 The computation thread is where most of the modifications take place, as shown
526 in \Lst{algo:ch6p2SyncComp}.
527
528 %\begin{algorithm}[H]
529 %  \caption{Computing function in the synchronized scheme.}
530 %  \label{algo:ch6p2SyncComp}
531 \begin{Listing}{algo:ch6p2SyncComp}{Computing function in the synchronized scheme}
532 // Variables declarations and initialization
533 ...
534
535 // Computation loop
536 while(!Finished){
537   // Sendings of data dependencies at @\emph{each}@ iteration
538   // Potential copy of data to be sent in additional buffers
539   ...
540   omp_unset_lock(&lockSend);
541
542   // Blocking receptions at @\emph{each}@ iteration
543   omp_set_lock(&lockRec);
544   
545   // Local computation 
546   // (init of residual, arrays swapping and iteration computation)
547   ...
548   
549   // Checking of the stabilization of the local process
550   // Other conditions than the residual can be added
551   if(residual <= Threshold){
552     localCV = 1;
553   }else{
554     localCV = 0;
555   }
556       
557   // Global exchange of local states of the nodes
558   for(ind=0; ind<nbP; ++ind){
559     if(ind != numP){
560       MPI_Ssend(&localCV, 1, MPI_CHAR, ind, tagState, MPI_COMM_WORLD);
561     }
562   }
563   
564   // Waiting for the state messages receptions from the other nodes
565   omp_set_lock(&lockStates);
566   
567   //Determination of global convergence (if all nodes are in local CV)
568   if(localCV + nbOtherCVs == nbP){
569     // Entering global CV state
570     Finished = 1;
571     // Unlocking of sending thread to start sendings of end messages
572     omp_unset_lock(&lockSend);
573     MPI_Ssend(&Finished, 1, MPI_CHAR, numP, tagEnd, MPI_COMM_WORLD);
574   }else{
575     // Resetting of information about the states of the other nodes
576     ...
577     // Global barrier at the end of each iteration during the process
578     for(ind=0; ind<nbP; ++ind){
579       if(ind != numP){
580         MPI_Ssend(&Finished, 1, MPI_CHAR, ind, tagIter, MPI_COMM_WORLD);
581       }
582     }
583     omp_set_lock(&lockIter);
584   }
585   
586
587   // Updating of the iteration number
588   iter++;
589 }
590 \end{Listing}
591 %\end{algorithm}
592
593 Most of the added code is related to the waiting for specific communications.
594 Between lines~6 and~7, the use of the flag \texttt{SendsInProgress} is no longer
595 needed since the sends are performed at each iteration.  In line~12, the
596 thread waits for the data receptions from its dependencies. In
597 lines~26-34, the local states are determined and exchanged among all nodes.  A
598 new message tag (\texttt{tagState}) is required for identifying those messages.
599 In line~37, the global termination state is determined.  When it is reached,
600 lines~38-42 change the \texttt{Finished} boolean to stop the iterative process,
601 and send the end messages.  Otherwise each node resets its local state
602 information about the other nodes and a global barrier is done between all the
603 nodes at the end of each iteration with another new tag (\texttt{tagIter}).
604 That barrier is needed to ensure that data messages from successive iterations
605 are actually received during the \emph{same} iteration on the destination nodes.
606 Nevertheless, it is not useful at the termination of the global process as it is
607 replaced by the global exchange of end messages.
608
609 There is no big modification induced by the synchronization in the sending
610 function. The only change could be the suppression of line~11 that is not useful
611 in this case.  Apart from that, the function stays the same as
612 in \Lst{algo:ch6p2BasicAsyncSendings}.
613
614 In the reception function, given in \Lst{algo:ch6p2SyncReceptions}, there are
615 mainly two insertions (in lines~19-30 and 31-40), corresponding to the
616 additional types of messages to receive.  There is also the insertion of three
617 variables that are used for the receptions of the new message types.  In
618 lines~24-29 and 34-39 are located messages counting and mutex unlocking
619 mechanisms that are used to block the computing thread at the corresponding steps of its
620 execution. They are similar to the mechanism used for managing the end messages
621 at the end of the entire process.  Line~23 directly updates the
622 number of other nodes that are in local convergence by adding the
623 received state of the source node. This is possible due to the encoding that is used to
624 represent the local convergence (1) and the non-convergence (0).
625
626 %\begin{algorithm}[H]
627 %  \caption{Reception function in the synchronized scheme.}
628 %  \label{algo:ch6p2SyncReceptions}
629 \begin{Listing}{algo:ch6p2SyncReceptions}{Reception function in the synchronized scheme}
630 // Variables declarations and initialization
631 ...
632 int nbStateMsg = 0; // Number of local state messages received
633 int nbIterMsg = 0;  // Number of "end of iteration" messages received
634 char recvdState;    // Received state from another node (0 or 1)
635
636 // Main loop of receptions
637 while(!Finished){
638   // Waiting for an incoming message
639   MPI_Probe(MPI_ANY_SOURCE, MPI_ANY_TAG, MPI_COMM_WORLD, &status);
640   if(!Finished){
641     switch(status.MPI_TAG){ // Actions related to message type
642       case tagCom: // Management of data messages
643        ...
644        break;
645       case tagEnd: // Management of termination messages
646        ...
647        break;
648       case tagState: // Management of local state messages
649        // Actual reception of the message
650        MPI_Recv(&recvdState, 1, MPI_CHAR, status.MPI_SOURCE, tagState, MPI_COMM_WORLD, &status); 
651     // Updates of numbers of stabilized nodes and received state msgs 
652        nbOtherCVs += recvdState;
653        nbStateMsg++;
654        // Unlocking of the computing thread when states of all other 
655        // nodes are received
656        if(nbStateMsg == nbP-1){
657          nbStateMsg = 0;
658          omp_unset_lock(&lockStates);
659        }
660        break;
661       case tagIter: // Management of "end of iteration" messages
662        // Actual reception of the message in dummy buffer
663        MPI_Recv(dummyBuffer, 1, MPI_CHAR, status.MPI_SOURCE, tagIter, MPI_COMM_WORLD, &status); 
664        nbIterMsg++; // Update of the nb of iteration messages
665        // Unlocking of the computing thread when iteration messages 
666        // are received from all other nodes       
667        if(nbIterMsg == nbP - 1){
668          nbIterMsg = 0;
669          omp_unset_lock(&lockIter);
670        }
671        break;
672     }
673   }
674 }
675
676 // Reception of pending messages and counting of end messages
677 do{ // Loop over the remaining incoming/waited messages
678   ...
679 }while(arrived == 1 || nbEndMsg < nbDeps + 1);
680 \end{Listing}
681 %\end{algorithm}
682
683 Now that we can synchronize our asynchronous scheme, the final step is to
684 dynamically alternate the two operating modes in order to regularly check the
685 global convergence of the iterative process. This is detailed in the following
686 paragraph together with the inclusion of GPU computing in the final asynchronous
687 scheme.
688
689 \subsection{Asynchronous scheme using MPI, OpenMP and CUDA}
690 \label{ch6:p2GPUAsync}
691
692 As mentioned above, the strategy proposed to obtain a good compromise between
693 simplicity and efficiency in the asynchronous scheme is to dynamically change
694 the operating mode of the process.  A good way to obtain a maximal
695 simplification of the final scheme while preserving good performance is to
696 perform local and global convergence detections only in synchronous
697 mode. Moreover, as two successive iterations are sufficient in synchronous mode
698 to detect local and global convergences, the key is to alternate some
699 asynchronous iterations with two synchronous iterations until
700 convergence.
701
702 The last problem is to decide \emph{when} to switch from the
703 asynchronous to the synchronous mode.  Here again, for the sake of simplicity, any
704 asynchronous mechanism for \emph{detecting} such instant is avoided and we
705 prefer to use a mechanism that is local to each node. Obviously, that local system must
706 rely neither on the number of local iterations done nor on the local
707 convergence.  The former would slow down the fastest nodes according to the
708 slowest ones.  The latter would provoke too much synchronization because the
709 residuals on all nodes commonly do not evolve in the same way and, in most
710 cases, there is a convergence wave phenomenon throughout the elements.  So, a
711 good solution is to insert a local timer mechanism on each node with a given
712 initial duration. Then, that duration may be modified during the execution
713 according to the successive results of the synchronous sections.
714
715 Another problem induced by entering synchronous mode from the asynchronous one
716 is the possibility to receive some data messages
717 from previous asynchronous iterations during synchronous iterations. This could lead to deadlocks. In order
718 to avoid this, a wait of the end of previous send is added to the
719 transition between the two modes.  This is implemented by replacing the variable
720 \texttt{SendsInProgress} by a mutex \texttt{lockSendsDone} which is unlocked
721 once all the messages have been sent in the sending function.  Moreover, it is
722 also necessary to stamp data messages\index{message!stamping} (by the function \texttt{stampData}) with
723 a Boolean indicating whether they have been sent during a synchronous or
724 asynchronous iteration.  Then, the \texttt{lockRec} mutex is unlocked only
725 after to the complete reception of data messages from synchronous
726 iterations.  The message ordering of point-to-point communications in MPI
727 together with the barrier at the end of each iteration ensure two important
728 properties of this mechanism. First, data messages from previous
729 asynchronous iterations will be received but not taken into account during
730 synchronous sections. Then, a data message from a synchronous
731 iteration cannot be received in another synchronous iteration.  In the
732 asynchronous sections, no additional mechanism is needed as there are no such
733 constraints concerning the data receptions.
734
735 Finally, the required modifications of the previous scheme
736 % to make it dynamically change its operating mode (asynchronous or synchronous)
737 are mainly related to the computing thread.  Small additions or modifications
738 are also required in the main process and the other threads.
739
740 In the main process, two new variables are added to store respectively the main
741 operating mode of the iterative process (\texttt{mainMode}) and the duration of
742 asynchronous sections (\texttt{asyncDuration}). Those variables are
743 initialized by the programmer. The \texttt{lockSendsDone} mutex is also declared,
744 initialized (locked) and destroyed with the other mutex in this process.
745
746 In the computing function, shown in \Lst{algo:ch6p2AsyncSyncComp}, the
747 modifications consist of the insertion of the timer mechanism and of the conditions
748 to differentiate the actions to be done in each mode.  Some additional variables
749 are also required to store the current operating mode in action during the
750 execution (\texttt{curMode}), the starting time of the current asynchronous
751 section (\texttt{asyncStart}) and the number of successive synchronous
752 iterations done (\texttt{nbSyncIter}).
753
754 %\begin{algorithm}[H]
755 %  \caption{Computing function in the final asynchronous scheme.}% without GPU computing.}
756 %  \label{algo:ch6p2AsyncSyncComp}
757 %\pagebreak
758 \begin{Listing}{algo:ch6p2AsyncSyncComp}{Computing function in the final asynchronous scheme}% without GPU computing.}
759 // Variables declarations and initialization
760 ...
761 OpMode curMode = SYNC;// Current operating mode (always begin in sync)
762 double asyncStart;    // Starting time of the current async section
763 int nbSyncIter = 0;   // Number of sync iterations done in async mode
764
765 // Computation loop
766 while(!Finished){
767   // Determination of the dynamic operating mode
768   if(curMode == ASYNC){
769     // Entering synchronous mode when asyncDuration is reached
770 @%    // (additional conditions can be specified if needed) 
771 @    if(MPI_Wtime() - asyncStart >= asyncDuration){
772     // Waiting for the end of previous sends before starting sync mode
773       omp_set_lock(&lockSendsDone);
774       curMode = SYNC;              // Entering synchronous mode
775       stampData(dataToSend, SYNC); // Mark data to send with sync flag
776       nbSyncIter = 0;
777     }
778   }else{
779    // In main async mode, going back to async mode when the max number 
780    // of sync iterations are done
781     if(mainMode == ASYNC){
782       nbSyncIter++; // Update of the number of sync iterations done
783       if(nbSyncIter == 2){
784         curMode = ASYNC;              // Going back to async mode
785         stampData(dataToSend, ASYNC); // Mark data to send
786         asyncStart = MPI_Wtime();     // Get the async starting time
787       }
788     }
789   }
790
791   // Sendings of data dependencies
792   if(curMode == SYNC || !SendsInProgress){
793     ... 
794   }
795
796   // Blocking data receptions in sync mode
797   if(curMode == SYNC){
798     omp_set_lock(&lockRec);
799   }  
800
801   // Local computation 
802   // (init of residual, arrays swapping and iteration computation)
803   ...
804
805   // Checking of convergences (local & global) only in sync mode
806   if(curMode == SYNC){
807     // Local convergence checking (residual under threshold)
808     ...
809     // Blocking global exchange of local states of the nodes
810     ...
811     // Determination of global convergence (all nodes in local CV)
812     //    Stop of the iterative process and sending of end messages
813     // or Re-initialization of state information and iteration barrier
814     ...
815     }
816   }
817     
818   // Updating of the iteration number
819   iter++;
820 }
821 \end{Listing}
822 %\end{algorithm}
823
824 In the sending function, the only modification is the replacement in line~11 of
825 the assignment of variable \texttt{SendsInProgress} by the unlocking of
826 \texttt{lockSendsDone}.  Finally, in the reception function, the only
827 modification is the insertion before line~19
828 of \Lst{algo:ch6p2BasicAsyncReceptions} of the extraction of the stamp from the
829 message and its counting among the receipts only if the stamp is \texttt{SYNC}.
830
831 The final step to get our complete scheme using GPU is to insert the GPU
832 management in the computing thread.  The first possibility, detailed
833 in \Lst{algo:ch6p2syncGPU}, is to simply replace the
834 CPU kernel (lines~41-43 in \Lst{algo:ch6p2AsyncSyncComp}) by a blocking GPU kernel call.  This includes data
835 transfers from the node RAM to the GPU RAM, the launching of the GPU kernel, the
836 waiting for kernel completion and the results transfers from GPU RAM to
837 node RAM.
838
839 %\begin{algorithm}[H]
840 %  \caption{Computing function in the final asynchronous scheme.}
841 %  \label{algo:ch6p2syncGPU}
842 \begin{Listing}{algo:ch6p2syncGPU}{Computing function in the final asynchronous scheme}
843 // Variables declarations and initialization
844 ...
845 dim3 Dg, Db; // CUDA kernel grids
846
847 // Computation loop
848 while(!Finished){
849   // Determination of the dynamic operating mode, sendings of data
850   // dependencies and blocking data receptions in sync mode
851   ...
852   // Local GPU computation
853   // Data transfers from node RAM to GPU
854   CHECK_CUDA_SUCCESS(cudaMemcpyToSymbol(dataOnGPU, dataInRAM, inputsSize, 0, cudaMemcpyHostToDevice), "Data transfer");
855   ... // There may be several data transfers: typically A and b in 
856       // linear problems
857   // GPU grid definition
858   Db.x = BLOCK_SIZE_X; // BLOCK_SIZE_# are kernel design dependent
859   Db.y = BLOCK_SIZE_Y;
860   Db.z = BLOCK_SIZE_Z;
861   Dg.x = localSize/BLOCK_SIZE_X + (localSize%BLOCK_SIZE_X ? 1 : 0);
862   Dg.y = localSize/BLOCK_SIZE_Y + (localSize%BLOCK_SIZE_Y ? 1 : 0);
863   Dg.z = localSize/BLOCK_SIZE_Z + (localSize%BLOCK_SIZE_Z ? 1 : 0);
864   // Use of shared memory (when possible)
865   cudaFuncSetCacheConfig(gpuKernelName, cudaFuncCachePreferShared);
866   // Kernel call
867   gpuKernelName<<<Dg,Db>>>(... @\emph{kernel parameters}@ ...);
868   // Waiting for kernel completion
869   cudaDeviceSynchronize(); 
870   // Results transfer from GPU to node RAM
871   CHECK_CUDA_SUCCESS(cudaMemcpyFromSymbol(resultsInRam, resultsOnGPU, resultsSize, 0, cudaMemcpyDeviceToHost), "Results transfer");
872   // Potential post-treatment of results on the CPU
873   ...
874
875   // Convergences checking
876   ...
877 }
878 \end{Listing}
879 %\end{algorithm}
880
881 This scheme provides asynchronism through a cluster of GPUs as well as a
882 complete overlap of communications with GPU computations (similarly
883 to~\Sec{ch6:part1}).  However, the autonomy of GPU devices according to their
884 host can be further exploited in order to perform some computations on the CPU
885 while the GPU kernel is running. The nature of computations that can be done by
886 the CPU may vary depending on the application. For example, when processing data
887 streams (pipelines), pre-processing of next data item and/or post-processing of
888 previous result can be done on the CPU while the GPU is processing the current
889 data item.  In other cases, the CPU can perform \emph{auxiliary}
890 computations\index{computation!auxiliary}
891 that are not absolutely required to obtain the result but that may accelerate
892 the entire iterative process.  Another possibility would be to distribute the
893 main computations between the GPU and CPU. However, this
894 usually leads to poor performance increases. This is mainly due to data
895 dependencies that often require additional transfers between CPU and GPU.
896
897 So, if we consider that the application enables such overlap of
898 computations, its implementation is straightforward as it consists in inserting
899 the additional CPU computations between lines~23 and~24
900 in \Lst{algo:ch6p2syncGPU}.  Nevertheless, such scheme is fully efficient only
901 if the computation times on both sides are similar.
902
903 In some cases, especially with auxiliary computations, another interesting
904 solution is to add a fourth CPU thread to perform them. This suppresses the
905 duration constraint over those optional computations as they are performed in
906 parallel of the main iterative process, without blocking it.  Moreover, this
907 scheme stays coherent with current architectures as most nodes include four CPU
908 cores.  The algorithmic scheme of such context of complete overlap of
909 CPU/GPU computations and communications is described in
910 Listings~\ref{algo:ch6p2FullOverAsyncMain},~\ref{algo:ch6p2FullOverAsyncComp1}
911 and~\ref{algo:ch6p2FullOverAsyncComp2}, where we suppose that  auxiliary
912 computations use intermediate results of the main computation process from any previous iteration. This may be
913 different according to the application.
914
915 %\begin{algorithm}[H]
916 %  \caption{Initialization of the main process of complete overlap with asynchronism.}
917 % \label{algo:ch6p2FullOverAsyncMain}
918 \pagebreak
919 \begin{Listing}{algo:ch6p2FullOverAsyncMain}{Initialization of the main process of complete overlap with asynchronism}
920 // Variables declarations and initialization
921 ...
922 omp_lock_t lockAux;   // Informs main thread about new aux results
923 omp_lock_t lockRes;   // Informs aux thread about new results 
924 omp_lock_t lockWrite; // Controls exclusion of results access
925 ... auxRes ... ;      // Results of auxiliary computations 
926
927 // Parameters reading, MPI initialization, data initialization and
928 // distribution
929 ...
930 // OpenMP initialization
931 ...
932 omp_init_lock(&lockAux);
933 omp_set_lock(&lockAux);//Unlocked when new aux results are available
934 omp_init_lock(&lockRes);
935 omp_set_lock(&lockRes);  // Unlocked when new results are available
936 omp_init_lock(&lockWrite);
937 omp_unset_lock(&lockWrite); // Controls access to results from threads
938
939 #pragma omp parallel
940 {
941   switch(omp_get_thread_num()){
942     case COMPUTATION :
943     computations(... @\emph{relevant parameters}@ ...);
944     break;
945
946     case AUX_COMPS :
947     auxComps(... @\emph{relevant parameters}@ ...);
948     break;
949     
950     case SENDINGS :
951     sendings();
952     break;
953     
954     case RECEPTIONS :
955     receptions();
956     break;
957   }
958 }
959
960 // Cleaning of OpenMP locks
961 ...
962 omp_test_lock(&lockAux);
963 omp_unset_lock(&lockAux);
964 omp_destroy_lock(&lockAux);
965 omp_test_lock(&lockRes);
966 omp_unset_lock(&lockRes);
967 omp_destroy_lock(&lockRes);
968 omp_test_lock(&lockWrite);
969 omp_unset_lock(&lockWrite);
970 omp_destroy_lock(&lockWrite);
971
972 // MPI termination
973 MPI_Finalize();
974 \end{Listing}
975 %\end{algorithm}
976
977 %\begin{algorithm}[H]
978 %  \caption{Computing function in the final asynchronous scheme with CPU/GPU overlap.}
979 %  \label{algo:ch6p2FullOverAsyncComp1}
980 \pagebreak
981 \begin{Listing}{algo:ch6p2FullOverAsyncComp1}{Computing function in the final asynchronous scheme with CPU/GPU overlap}
982 // Variables declarations and initialization
983 ...
984 dim3 Dg, Db; // CUDA kernel grids
985
986 // Computation loop
987 while(!Finished){
988   // Determination of the dynamic operating mode, sendings of data 
989   // dependencies and blocking data receptions in sync mode
990   ...
991   // Local GPU computation
992   // Data transfers from node RAM to GPU, GPU grid definition and init 
993   // of shared mem
994   CHECK_CUDA_SUCCESS(cudaMemcpyToSymbol(dataOnGPU, dataInRAM, inputsSize, 0, cudaMemcpyHostToDevice), "Data transfer");
995   ...
996   // Kernel call
997   gpuKernelName<<<Dg,Db>>>(... @\emph{kernel parameters}@ ...);
998   // Potential pre/post-treatments in pipeline like computations
999   ...
1000   // Waiting for kernel completion
1001   cudaDeviceSynchronize(); 
1002   // Results transfer from GPU to node RAM
1003   omp_set_lock(&lockWrite); // Wait for write access to resultsInRam
1004   CHECK_CUDA_SUCCESS(cudaMemcpyFromSymbol(resultsInRam, resultsOnGPU, resultsSize, 0, cudaMemcpyDeviceToHost), "Results transfer");
1005   // Potential post-treatments in non-pipeline computations
1006   ...
1007   omp_unset_lock(&lockWrite); // Give back read access to aux thread
1008   omp_test_lock(&lockRes);
1009   omp_unset_lock(&lockRes);   // Informs aux thread of new results
1010
1011   // Auxiliary computations availability checking
1012   if(omp_test_lock(&lockAux)){
1013     // Use auxRes to update the iterative process
1014     ... // May induce additional GPU transfers
1015   }
1016
1017   // Convergences checking
1018   if(curMode == SYNC){
1019     // Local convergence checking and global exchange of local states
1020     ...
1021     // Determination of global convergence (all nodes in local CV)
1022     if(cvLocale == 1 && nbCVLocales == nbP-1){
1023       // Stop of the iterative process and sending of end messages
1024       ...
1025       // Unlocking of aux thread for termination
1026       omp_test_lock(&lockRes);
1027       omp_unset_lock(&lockRes);
1028     }else{
1029       // Re-initialization of state information and iteration barrier
1030       ...
1031     }
1032   }
1033 }
1034 \end{Listing}
1035 %\end{algorithm}
1036
1037 %\begin{algorithm}[H]
1038 %  \caption{Auxiliary computing function in the final asynchronous scheme with CPU/GPU overlap.}
1039 %  \label{algo:ch6p2FullOverAsyncComp2}
1040 \pagebreak
1041 \begin{Listing}{algo:ch6p2FullOverAsyncComp2}{Auxiliary computing function in the final asynchronous scheme with CPU/GPU overlap}
1042 // Variables declarations and initialization
1043 ... auxInput ... // Local array for input data
1044
1045 // Computation loop
1046 while(!Finished){
1047   // Data copy from resultsInRam into auxInput
1048   omp_set_lock(&lockRes);   // Waiting for new results from main comps
1049   if(!Finished){
1050     omp_set_lock(&lockWrite); // Waiting for access to results
1051     for(ind=0; ind<resultsSize; ++ind){
1052       auxInput[ind] = resultsInRam[ind];
1053     }
1054     omp_unset_lock(&lockWrite);//Give back write access to main thread
1055     // Auxiliary computations with possible interruption at the end
1056     for(ind=0; ind<auxSize && !Finished; ++ind){
1057       // Computation of auxRes array according to auxInput
1058       ...
1059     }
1060 // Informs main thread that new aux results are available in auxData
1061     omp_test_lock(&lockAux); // Ensures mutex is locked when unlocking
1062     omp_unset_lock(&lockAux);
1063   }
1064 }
1065 \end{Listing}
1066 %\end{algorithm}
1067
1068 As can be seen in \Lst{algo:ch6p2FullOverAsyncMain}, there are three additional
1069 mutex (\texttt{lockAux}, \texttt{lockRes} and \texttt{lockWrite}) that are used
1070 respectively to inform the main computation thread that new auxiliary results
1071 are available (lines~20-21 in \Lst{algo:ch6p2FullOverAsyncComp2} and line~29 in
1072 \Lst{algo:ch6p2FullOverAsyncComp1}), to inform the auxiliary thread that new
1073 results from the main thread are available (lines~25-26
1074 in \Lst{algo:ch6p2FullOverAsyncComp1} and line~7
1075 in \Lst{algo:ch6p2FullOverAsyncComp2}), and to perform exclusive accesses to the
1076 results from those two threads (lines~20,~24
1077 in \Lst{algo:ch6p2FullOverAsyncComp1} and 9,~13
1078 in \Lst{algo:ch6p2FullOverAsyncComp2}).  Also, an additional array
1079 (\texttt{auxRes}) is required to store the results of the auxiliary computations
1080 as well as a local array for the input of the auxiliary function
1081 (\texttt{auxInput}). That last function has the same general organization as the
1082 send/receive ones, that is a global loop conditioned by the end of the global
1083 process.  At each iteration in this function, the thread waits for the
1084 availability of new results produced by the main computation thread. This avoids
1085 to perform the same computations several times with the same input data.
1086 Then, input data of auxiliary computations
1087 % (as supposed here, they often
1088 % correspond to the results of the main computations, but may sometimes be
1089 % something else)
1090 is copied with a mutual exclusion mechanism. Finally, auxiliary
1091 computations are performed.  When they are completed, the associated mutex is
1092 unlocked to signal the availability of those auxiliary results to the main
1093 computing thread.  The main thread regularly checks this availability at the end
1094 of its iterations and takes them into account whenever this is possible.
1095
1096 Finally, we  obtain an algorithmic  scheme allowing maximal  overlap between
1097 CPU and  GPU computations as well  as communications. It is  worth noticing that
1098 such scheme is also usable for systems without GPUs but 4-cores nodes.
1099
1100 \subsection{Experimental validation}
1101 \label{sec:ch6p2expes}
1102
1103 As in~\Sec{ch6:part1},  we validate the  feasibility of our  asynchronous scheme
1104 with  some experiments  performed with  a representative  example  of scientific
1105 application.      It     is    a     three-dimensional     version    of     the
1106 advection-diffusion-reaction   process\index{PDE example}  that   models  the   evolution   of  the
1107 concentrations of  two chemical  species in shallow  waters. As this  process is
1108 dynamic in time,  the simulation is performed for a  given number of consecutive
1109 time steps.  This  implies two nested loops in the  iterative process, the outer
1110 one for the time  steps and the inner one for solving  the problem at each time.
1111 Full details about this PDE  problem can be found in~\cite{ChapNRJ2011}. That
1112 two-stage  iterative process  implies a  few adaptations  of the  general scheme
1113 presented above in order to include the  outer iterations over  the time steps,  but the
1114 inner iterative process closely follows the same scheme.
1115
1116 We show two  series of experiments performed with 16 nodes  of the first cluster
1117 described  in~\Sec{ch6:p1expes}.  The  first one  deals with  the  comparison of
1118 synchronous and asynchronous computations.  The second one is related to the use
1119 of auxiliary computations. In the context of our PDE application, they consist in
1120 the update of the Jacobian of the system.
1121
1122 \subsubsection*{Synchronous and asynchronous computations}
1123
1124 The first experiment allows us  to check that the asynchronous behavior obtained
1125 with our  scheme corresponds  to the expected  one according to  its synchronous
1126 counterpart. So,  we show  in~\Fig{fig:ch6p2syncasync} the computation  times of
1127 our test application  in both modes for different problem  sizes. The size shown
1128 is the number of discrete spatial elements on each side of the cube representing
1129 the  3D   volume.  Moreover,  for  each   of  these  elements,   there  are  the
1130 concentrations of the two chemical species considered.  So, for example, size 30
1131 corresponds in fact to $30\times30\times30\times2$ values.
1132
1133 \begin{figure}[h]
1134   \centering
1135   \includegraphics[width=.75\columnwidth]{Chapters/chapter6/curves/syncasync.pdf}
1136   \caption{Computation times of the test application in synchronous and
1137     asynchronous modes.}
1138   \label{fig:ch6p2syncasync}
1139 \end{figure}
1140
1141 The results obtained show that  the asynchronous version is sensibly faster than
1142 the synchronous one  for smaller problem sizes, then it  becomes similar or even
1143 a bit slower  for  larger problem  sizes.   A  closer  comparison of computation  and
1144 communication times  in each execution  confirms that this behavior  is consistent.
1145 The  asynchronous version is  interesting if communication time
1146 is similar or  larger than computation time.  In our  example, this is the
1147 case up  to a problem  size between 50 and 60.   Then, computations  become longer
1148 than communications. Since asynchronous computations  often require more
1149 iterations to converge, the gain  obtained on the communication side becomes smaller
1150 than the  overhead generated on the computation side, and the  asynchronous version
1151 takes longer.
1152 % So, the observed behavior is fully coherent with the expected behavior.
1153
1154 \subsubsection*{Overlap of auxiliary computations}
1155
1156 In this experiment, we use only the asynchronous version of the application.  In
1157 the context of  our test application, we have an iterative  PDE solver based on
1158 Netwon    resolution.    Such    solvers    are   written    under   the    form
1159 $x=T(x),~x\in\Reals^n$ where $T(x)=x-F'(x)^{-1}F(x)$ and $F'$ is the Jacobian of
1160 the system.  In such cases, it is  necessary to compute the vector $\Delta x$ in
1161 $F'\times \Delta  x=-F$ to update $x$ with  $\Delta x$. There are  two levels of
1162 iterations, the  inner level to get a  stabilized version of $x$,  and the outer
1163 level to compute $x$ at the successive time steps in the simulation process.  In
1164 this context,  classical algorithms either compute  $F'$ only at the  first iteration
1165 of each time step or at some iterations but not all because the  computation of $F'$ is done
1166 in the main iterative process and it has a relatively high computing cost.
1167
1168 However, with the scheme presented above, it is possible to continuously compute
1169 new  versions  of  $F'$  in  parallel  to the  main  iterative  process  without
1170 penalizing  it. Hence,  $F'$ is  updated  as often  as possible  and taken  into
1171 account in  the main computations  when it is  relevant. So, the  Newton process
1172 should be  accelerated a little bit.
1173
1174 We  compare the  performance obtained  with overlapped  Jacobian  updatings and
1175 non-overlapped ones for several problem sizes, see~\Fig{fig:ch6p2aux}.
1176 \begin{figure}[h]
1177   \centering
1178   \includegraphics[width=.75\columnwidth]{Chapters/chapter6/curves/recouvs.pdf}
1179   \caption{Computation times  with or without overlap  of Jacobian updatings
1180     in asynchronous mode.}
1181   \label{fig:ch6p2aux}
1182 \end{figure}
1183
1184 The  overlap is  clearly efficient  as  the computation  times with  overlapping
1185 Jacobian updatings  are much better  than without overlap.  Moreover,  the ratio
1186 between the  two versions tend  to increase with  the problem size, which  is as
1187 expected. Also, we have tested the application without auxiliary computations at
1188 all, that is, the  Jacobian is computed only once at the  beginning of each time
1189 step of the  simulation. The results for this last version  are quite similar to
1190 the overlapped auxiliary computations, and  even better for small problem sizes.
1191 The fact that no sensible gain can be seen on this range of problem sizes is due
1192 to the limited number of Jacobian updates taken into  account in the main
1193 computation.  This happens when  the Jacobian update is as long as
1194 several  iterations of  the main  process. So,  the benefit  is reduced  in this
1195 particular case.
1196
1197 Those results show two things; first, auxiliary computations do not induce great
1198 overhead in  the whole  process.  Second, for  this particular  application the
1199 choice of updating the Jacobian  matrix as auxiliary computations does not speed
1200 up the iterative process.  This does  not question the parallel scheme in itself
1201 but   merely  points  out   the  difficulty   to  identify   relevant  auxiliary
1202 computations.  Indeed, this identification depends on the considered application
1203 and requires a profound specialized analysis.
1204
1205 Another  interesting choice  could be  the  computation of  load estimation  for
1206 dynamic load  balancing, especially in decentralized  diffusion strategies where
1207 loads are  transferred between  neighboring nodes~\cite{BCVG11}.  In  such case,
1208 the load evaluation and the comparison  with other nodes can be done in parallel
1209 of the  main computations without perturbing  them.
1210
1211 %%% Local Variables:
1212 %%% mode: latex
1213 %%% fill-column: 80
1214 %%% ispell-dictionary: "american"
1215 %%% mode: flyspell
1216 %%% TeX-master: "../../BookGPU.tex"
1217 %%% End: