Parent Directory | Revision Log | Revision Graph | Patch
revision 1.6 by heimbach, Tue Apr 10 22:35:24 2001 UTC | revision 1.7 by jmc, Mon Dec 15 02:02:39 2003 UTC | |
---|---|---|
# | Line 65 C-- ================================== | Line 65 C-- ================================== |
65 | #ifndef ALWAYS_USE_MPI | #ifndef ALWAYS_USE_MPI |
66 | IF ( usingMPI ) THEN | IF ( usingMPI ) THEN |
67 | #endif | #endif |
68 | #ifdef COMPONENT_MODULE | |
69 | IF ( useCoupler) CALL MPI_BARRIER( MPI_COMM_WORLD, mpiRC ) | |
70 | #endif | |
71 | CALL MPI_FINALIZE ( mpiRC ) | CALL MPI_FINALIZE ( mpiRC ) |
72 | IF ( mpiRC .NE. MPI_SUCCESS ) THEN | IF ( mpiRC .NE. MPI_SUCCESS ) THEN |
73 | eeEndError = .TRUE. | eeEndError = .TRUE. |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |