MPI_LAST.f

Go to the documentation of this file.

 
!
      SUBROUTINE mpi_last
 
      use ctlblk_mod, only: me, num_servers, mpi_comm_inter
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
      implicit none
!
      include "mpif.h"
      LOGICAL DONE
      integer ierr
      DATA done / .true. /
!
      IF ( me == 0 ) THEN
         IF ( num_servers > 0 ) THEN
            CALL mpi_send(done,1,mpi_logical,0,1,mpi_comm_inter,ierr)
         END IF
      END IF
      END