Subroutine:   GGISTO

Purpose:      Store descriptive information with a Ggi plot device.

Category:     GRAPHICS

File:         pgplot.src

Author:       J.P. Terlouw

Use:          CALL GGISTO( CINFO,       Input character
                           NC,          Input integer
                           RINFO,       Input real array
                           NR )         Input integer
              
                CINFO  - character information to be stored
                NC     - number of characters in CINFO
                RINFO  - real information to be stored
                NR     - number of elements in RINFO

Description:  This subroutine checks whether the device is of type "GGI"
              and if this is true, it instructs the driver to store
              the information. Driver function code 23 ('escape') is
              used for this. If the device is not "GGI", no action
              is taken.

              The information can be retrieved with a call to GGIRCL,
              possibly from a different task.

              The combination GGISTO/GGIRCL can be used to exchange
              information between tasks which access an exported Ggi
              plot device.

Updates:      Sep 7, 2004: JPT Document created.