LBFILL - A routine that is called by LBLBAR (when the argument IFTP is non-zero) to fill portions of the

       To use LBFILL, load the NCAR Graphics libraries ncarg, ncarg_gks, and ncarg_c, preferably in that order.

       Copyright (C) 1987-2009
       University Corporation for Atmospheric Research

       The use of this Software is governed by a License Agreement.

UNIX                                               March 1993                                     LBFILL(3NCARG)

       IFTP        (an  input expression of type INTEGER) is the value of the argument IFTP from the user's call
                   to LBLBAR.

       XCRA, YCRA  (input arrays of type REAL) are real arrays containing the X and Y coordinates of five points
                   defining a rectangular box which is to be filled in some manner. The fifth point  defined  by
                   these arrays will always be a duplicate of the first.

       NCRA        (an  input  expression of type INTEGER) is the number of points defining the rectangular box.
                   Its value will always be five.

       INDX        (an input expression of type INTEGER) is one of the indices  from  the  array  LFIN,  in  the
                   user's call to LBLBAR. Its value may be used as a color index or as a pattern selector.

       LBFILL - A routine that is called by LBLBAR (when the argument IFTP is non-zero) to fill portions of the
       bar. The default version of this routine does color fill by calling GSFACI and GFA.  A user-written
       version may be supplied to do a different kind of fill.

       Online: labelbar, labelbar_params, lbgeti, lbgetr, lblbar, lbseti, lbsetr, ncarg_cbind

       Hardcopy: NCAR Graphics Fundamentals, UNIX Version

       CALL LBFILL (IFTP, XCRA, YCRA, NCRA, INDX)

       This routine is called by LBLBAR when LBLBAR's argument IFTP is non-zero.  LBFILL is called once for each
       sub-box in the label bar, using a statement of the form:

              CALL LBFILL (IFTP,XCRA,YCRA,NCRA,INDX)

       and  is  expected  to fill the sub-box defined by its arguments. The default version of the routine looks
       like this:

              SUBROUTINE LBFILL (IFTP,XCRA,YCRA,NCRA,INDX)
                DIMENSION XCRA(*),YCRA(*)
                CALL GSFACI (INDX)
                CALL GFA (NCRA-1,XCRA,YCRA)
                RETURN
              END

       This version does color fill of the box, using the last argument as a color index. The user  may  replace
       this  routine  with  a  version  that  does any desired sort of fill; usually, this can be done by simply
       compiling the desired version, so that the default one from the package will not be loaded.