!      /* -*- Mode: Fortran; -*- */
!
!   (C) 2001 by Argonne National Laboratory.
!       See COPYRIGHT in top-level directory.
!
!
!  Fortran includes for MPE Graphics Routines
!
      integer MPE_WHITE, MPE_BLACK, MPE_RED, MPE_YELLOW, MPE_GREEN
      integer MPE_CYAN, MPE_BLUE, MPE_MAGENTA, MPE_AQUAMARINE
      integer MPE_FORESTGREEN, MPE_ORANGE, MPE_MAROON, MPE_BROWN
      integer MPE_PINK, MPE_CORAL, MPE_GRAY
      parameter( MPE_WHITE = 0, MPE_BLACK = 1, MPE_RED = 2 )
      parameter( MPE_YELLOW = 3, MPE_GREEN = 4, MPE_CYAN = 5 )
      parameter( MPE_BLUE = 6, MPE_MAGENTA = 7, MPE_AQUAMARINE = 8 )
      parameter( MPE_FORESTGREEN = 9, MPE_ORANGE = 10, MPE_MAROON = 11 )
      parameter( MPE_BROWN = 12, MPE_PINK = 13, MPE_CORAL = 14 )
      parameter( MPE_GRAY = 15 )
!
! A large number of features have been setup to be C-Callable only,
! through the use of global arrays.  An example are the logic and button
! ops.
!
!
!  MPE Graphics Return Codes
!
      integer MPE_SUCCESS, MPE_ERR_NOXCONNECT
      integer MPE_ERR_BAD_ARGS, MPE_ERR_LOW_MEM
      parameter ( MPE_SUCCESS = 0, MPE_ERR_NOXCONNECT = 1 )
      parameter ( MPE_ERR_BAD_ARGS = 2, MPE_ERR_LOW_MEM = 3 )