Parent Directory | Revision Log | Revision Graph
Initial version of CG2D benchmark code (serial and parallel) by Chris Hill
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 |