Parent Directory | Revision Log | Revision Graph
Initial version of CG2D benchmark code (serial and parallel) by Chris Hill
1 | ce107 | 1.1 | SUBROUTINE STOP_MP |
2 | |||
3 | C Initialise multi-processing | ||
4 | IMPLICIT NONE | ||
5 | |||
6 | C == Global data == | ||
7 | #include "SIZE.h" | ||
8 | #include "EEPARAMS.h" | ||
9 | |||
10 | C == Local variables == | ||
11 | INTEGER rc | ||
12 | |||
13 | C Shutdown multiprocessing here | ||
14 | #ifdef ALLOW_MPI | ||
15 | CALL MPI_FINALIZE( rc ) | ||
16 | #endif | ||
17 | |||
18 | RETURN | ||
19 | END |
ViewVC Help | |
Powered by ViewVC 1.1.22 |