1!
2!  (C) 2001 by Argonne National Laboratory.
3!      See COPYRIGHT in top-level directory.
4!
5      subroutine fsub_mpi_fconsts( F_MPI_STATUS_SIZE, itrue, ifalse )
6      implicit none
7      include "mpif.h"
8      integer F_MPI_STATUS_SIZE
9      logical itrue, ifalse
10      integer ierr
11
12      F_MPI_STATUS_SIZE = MPI_STATUS_SIZE
13      itrue   = .TRUE.
14      ifalse  = .FALSE.
15      call csub_mpi_in_place( MPI_IN_PLACE )
16      call csub_mpi_status_ignore( MPI_STATUS_IGNORE )
17      call csub_mpi_statuses_ignore( MPI_STATUSES_IGNORE )
18      end
19