!=======================================================================
! RCS Header:
!   Revision     [$Revision: 1.5.1.1 $]     Named [$Name: release#2_9_b5 $]
!   Last checkin [$Date: 2001/12/06 10:14:10 $]
!   Author       [$Author: frpb $]
!=======================================================================

#include "gc_prolog.h"

      SUBROUTINE GC_CONFIG (MXPROC, MXCOLL, MXPT2PT, INTF)
!     ******************************************************************
!     * Purpose:
!     *
!     *  Return information about the GC configuration.
!     *
!     * Output:
!     *  MXPROC    - maximum numbers of processors compiled into the
!     *              interface
!     *  MXCOLL    - maximum number of elements for collective
!     *              operations
!     *  MXPT2PT   - maximum number of elements for point to point
!     *              operations
!     *  INTF      - name of interface selected at compile time
!     *
!     * NOTES:
!     *    
!     ******************************************************************

      IMPLICIT NONE
      INTEGER MXPROC, MXCOLL, MXPT2PT
      CHARACTER*(*) INTF
      INCLUDE 'gc_com.h'


      MXPROC = MAX_PROC
      MXCOLL = MAX_COLL
      MXPT2PT = GC_NONE
      INTF = 'GCOM Version ' // 
     &  GC_VERSION // 
     &  ' built at ' //
     &  GC_BUILD_DATE // 
     &  ' Interface: ' //
#if defined(FLP_32B)
     &     GC_DESCRIP // 
     &  ' 32'
#else
     &     GC_DESCRIP // 
     &  ' 64'
#endif
      END