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