Parent Directory | Revision Log | Revision Graph
Added CVS Id tag
1 | C $Id$ |
2 | 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 |