For more details on the use of color in GKS, refer to Color tables and color mapping systems. in the NCAR Graphics Fundamentals documentation module.
-------------------------------------------------
           Argument | Type    | Mode  | Dimension
-------------------------------------------------
CALL GSCR  (WKID,   | Integer | Input |
            CI,     | Integer | Input |
            CR,     | Real    | Input |
            CG,     | Real    | Input |
            CB)     | Real    | Input |
-------------------------------------------------
------------------------------------------------------------------------
C Synopsis
#include <ncarg/gks.h>
void gset_colr_rep(
             Gint             ws_id,     /*  workstation identifier  */
             Gint             colr_ind,  /*  color index             */
             const Gcolr_rep  *colr_rep  /*  color representation    */
);
------------------------------------------------------------------------
The color index is 
an identification tag for an RGB (red, green, blue)
color setting. When generating an output primitive, you may specify the
color for that primitive by referring to the color index. We recommend
that you define all color indices required in a given picture before
issuing any output primitives in that picture. If you will be using a
fixed set of colors throughout an application, then those color indices
are best defined after you activate the workstation. It is important to
stress that color index 0 defines the 
background color. If any color
indices are defined, then you should define the background color
index 0 -- otherwise you run the risk of having a user-defined color
match the default background color.
---------------------------------------------------
             Argument | Type    | Mode  | Dimension
---------------------------------------------------
CALL GSPLCI  (COLI)   | Integer | Input |
---------------------------------------------------
--------------------------------------------------------------------------
C Synopsis
#include <ncarg/gks.h>
void gset_line_colr_ind(
                        Gint  line_colr_ind  /*  polyline color index  */
);
--------------------------------------------------------------------------
----------------------------------------------------
             Argument | Type    | Mode  |  Dimension
----------------------------------------------------
CALL GSPMCI  (COLI)   | Integer | Input |
----------------------------------------------------
-------------------------------------------------------------------------
C Synopsis
#include <ncarg/gks.h>
void gset_marker_colr_ind(
                   Gint  marker_colr_ind  /*  polymarker color index  */
);
-------------------------------------------------------------------------
---------------------------------------------------
             Argument | Type    | Mode  | Dimension
---------------------------------------------------
CALL GSTXCI  (COLI)   | Integer | Input |
---------------------------------------------------
---------------------------------------------------------------------------
C Synopsis
#include <ncarg/gks.h>
void gset_text_colr_ind(
                        Gint  text_colr_ind  /*  text color index  */
);
---------------------------------------------------------------------------
---------------------------------------------------
             Argument | Type    | Mode  | Dimension
---------------------------------------------------
CALL GSFACI  (COLI)   | Integer | Input |
---------------------------------------------------
-------------------------------------------------------------------------
C Synopsis
#include <ncarg/gks.h>
void gset_fill_colr_ind(
                        Gint  fill_colr_ind  /*  fill  color index  */
);
-------------------------------------------------------------------------
--------------------------------------------------
           Argument | Type    | Mode   | Dimension
--------------------------------------------------
CALL GQCR  (WKID,   | Integer | Input  |
            CI,     | Integer | Input  |
            TYPE,   | Integer | Input  |
            ERRIND, | Integer | Output |
            CR,     | Real    | Output |
            CG,     | Real    | Output |
            CB)     | Real    | Output |
--------------------------------------------------
--------------------------------------------------------------------------
C Synopsis
#include <ncarg/gks.h>
void ginq_colr_rep(
                   Gint       ws_id,     /*  workstation identifier   */
                   Gint       colr_ind,  /*  color index              */
                   Ginq_type  type,      /*  type of returned values  */
                   Gint       *err_ind,  /*  error indicator          */
                   Gcolr_rep  *colr_rep  /*  color representation     */
);
--------------------------------------------------------------------------
----------------------------------------------------
             Argument | Type    | Mode   | Dimension
---------------------------------------------------
CALL GQPLCI  (ERRIND, | Integer | Output |
              COLI)   | Integer | Output |
----------------------------------------------------
---------------------------------------------------------------------------
C Synopsis
#include <ncarg/gks.h>
void ginq_line_colr_ind(
                        Gint  *err_ind,       /*  error indicator       */
                        Gint  *line_colr_ind  /*  polyline color index  */
);
---------------------------------------------------------------------------
----------------------------------------------------
             Argument | Type    | Mode   | Dimension
---------------------------------------------------
CALL GQPMCI  (ERRIND, | Integer | Output |
              COLI)   | Integer | Output |
----------------------------------------------------
---------------------------------------------------------------------------
C Synopsis
#include <ncarg/gks.h>
void ginq_marker_colr_ind(
                   Gint  *err_ind,         /*  error indicator         */
                   Gint  *marker_colr_ind  /*  polymarker color index  */
);
---------------------------------------------------------------------------
----------------------------------------------------
             Argument | Type    | Mode   | Dimension
---------------------------------------------------
CALL GQTXCI  (ERRIND, | Integer | Output |
              COLI)   | Integer | Output |
----------------------------------------------------
-------------------------------------------------------------------------
C Synopsis
#include <ncarg/gks.h>
void ginq_text_colr_ind(
                        Gint  *err_ind,       /*  error indicator   */
                        Gint  *text_colr_ind  /*  text color index  */
);
-------------------------------------------------------------------------
----------------------------------------------------
             Argument | Type    | Mode   | Dimension
---------------------------------------------------
CALL GQFACI  (ERRIND, | Integer | Output |
              COLI)   | Integer | Output |
----------------------------------------------------
---------------------------------------------------------------------------
C Synopsis
#include <ncarg/gks.h>
void ginq_fill_colr_ind(
                      Gint  *err_ind,       /*  error indicator        */
                      Gint  *fill_colr_ind  /*  fill area color index  */
);
---------------------------------------------------------------------------