Parent Directory | Revision Log | Revision Graph
Added CVS Id tag
1 | ce107 | 1.2 | C $Id$ |
2 | ce107 | 1.1 | SUBROUTINE STOP_MP |
3 | |||
4 | C Initialise multi-processing | ||
5 | IMPLICIT NONE | ||
6 | |||
7 | C == Global data == | ||
8 | #include "SIZE.h" | ||
9 | #include "EEPARAMS.h" | ||
10 | |||
11 | C == Local variables == | ||
12 | INTEGER rc | ||
13 | |||
14 | C Shutdown multiprocessing here | ||
15 | #ifdef ALLOW_MPI | ||
16 | CALL MPI_FINALIZE( rc ) | ||
17 | #endif | ||
18 | |||
19 | RETURN | ||
20 | END |
ViewVC Help | |
Powered by ViewVC 1.1.22 |