C
C*************** TOP OF COMMON BLOCK - FGLBUF **************************
C
C   NAME- FGLBUF
C
C   LANGUAGE- VS FORTRAN    TYPE- COMMON BLOCK    COMPUTER- CRAY J916
C
C   VERSION- 1.0    DATE- 09/05/97   PROGRAMMER- LEAH WILSON (HSTX)
C
C   FUNCTION- THIS COMMON BLOCK CONTAINS THE CLEAR AND CLOUDY FIRST
C             GUESS LIBRARY BUFFERS.  THESE ARE SET IN SUBROUTINE  
C             PCSTBL.
C
C   COMMON PARAMETERS-
C     VARIABLE          TYPE  DESCRIPTION
C     --------          ----  -----------
C     FGLLIB            REAL  ARRAY (DIM 2 x LIBLIM X FGLBRL/8) CONTAINING
C                             CLEAR AND FIRST GUESS LIBRARIES.
C                             INDEX 1 IS THE CLEAR, INDEX 2 IS CLOUDY.
C
C     NOTE: /RETPARM/ MUST BE INCLUDED BEFORE THIS COMMON IS USED.
C**********************************************************************
C
      REAL FGLLIB(2,LIBLIM,FGLBRL/8)
C
      COMMON /FGLBUF/ FGLLIB
C
C*************** BOTTOM OF COMMON BLOCK - FGLBUF ***********************