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
subroutine mpi_last
SUBPROGRAM: MPI_LAST SHUTS DOWN THE IO SERVER PRGRMMR: TUCCILLO ORG: IBM.
Definition MPI_LAST.f:32