UPP
(develop)
Loading...
Searching...
No Matches
MPI_LAST.f
Go to the documentation of this file.
1
2
!
31
SUBROUTINE
mpi_last
32
33
use
ctlblk_mod,
only
: me, num_servers, mpi_comm_inter
34
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
35
implicit none
36
!
37
include
"mpif.h"
38
LOGICAL
DONE
39
integer
ierr
40
DATA
done / .true. /
41
!
42
IF
( me == 0 )
THEN
43
IF
( num_servers > 0 )
THEN
44
CALL
mpi_send(done,1,mpi_logical,0,1,mpi_comm_inter,ierr)
45
END IF
46
END IF
47
END
mpi_last
subroutine mpi_last
SUBPROGRAM: MPI_LAST SHUTS DOWN THE IO SERVER PRGRMMR: TUCCILLO ORG: IBM.
Definition
MPI_LAST.f:32
MPI_LAST.f
Generated by
1.9.8