1      SUBROUTINE BI_F77_MPI_ATTR_GET(COMM, KEYVAL, ATTR, FLAG, IERR)
2      INCLUDE 'mpif.h'
3      INTEGER COMM, KEYVAL, ATTR, IERR, FLAG
4      LOGICAL FLAG2
5*
6      CALL MPI_ATTR_GET(COMM, KEYVAL, ATTR, FLAG2, IERR)
7      IF (FLAG2) THEN
8         FLAG = 1
9      ELSE
10         FLAG = 0
11      END IF
12*
13      RETURN
14      END
15