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