Function:     GDSOUT

Purpose:      GDSOUT prompts the user to enter the name of an output set and
              the subsets, and returns the number of subsets entered.

Category:     USER IO

File:         gdsinp.c

Author:       K.G. Begeman

Use:          INTEGER GDSOUT( SET     ,   I/O  character*(*)
                              SUBSET  ,    O   integer array
                              MAXSUB  ,    I   integer
                              DEFAULT ,    I   integer
                              KEYWORD ,    I   character*(*)
                              MESSAGE ,    I   character*(*)
                              SHOWDEV ,    I   integer
                              AXPERM  ,    O   integer array
                              AXCOUNT ,    O   integer array
                              MAXAXES )    I   integer

              GDSOUT   Returns the number of subsets entered by user.
              SET      On input name of default set (and subsets) as the
                       user would have to type in and is appended in the
                       standard MESSAGE (not when an own message is used).
                       On output SET will contain the name only, even when
                       default subsets were specified.
                       If defaults are allowed and used by user, and SET is
                       on input blank, then GDSOUT returns 0 for the number
                       of subsets.
              SUBSET   Array containing subsets coordinate words.
              MAXSUB   Maximum number of subsets in SUBSET.
              DEFAULT  Default code as is USERxxx. It determines whether
                       the user is prompted for a SET and/or a default
                       value of SET is accepted or not and whether an
                       exact number of subsets is required (specified in
                       MAXSUB).
                       If 100 is added to the default code, then the user is
                       not prompted and in case of errors GDSOUT rejects
                       the keyword and returns -1 immediately.
              KEYWORD  Keyword prompts the user for set and subset(s).
                       Normally KEYWORD = 'SETOUT='.
              MESSAGE  Message for the user. If MESSAGE is blank, standard
                       message 'give set information' will be used.
              SHOWDEV  Device number (as in ANYOUT) to which GDSOUT sends
                       some info about the input set.
              AXPERM   Array of size MAXAXES containing the axes numbers.
                       The first elements (upto the dimension of the subset)
                       contain the axes numbers of the subset, the other ones
                       contain the axes numbers outside the subset ordered
                       according to the specification by the user.
              AXCOUNT  Array of size MAXAXES containing the number of grids
                       along an axes as specified by the user. The first
                       elements (upto the dimension of the subset) contain
                       the length of the subset axes, the other ones contain
                       the number of grids along an axes outside the subset.
              MAXAXES  Maximum number of axes the program can deal with.
                       This is the size of AXPERM and AXCOUNT.

Description:  GDSOUT is a function which prompts the user to enter
              the name of a set and (optionally) subset(s) and
              returns the number of subsets entered. This routine
              checks whether the set and subsets entered are present
              on disk. If not present, it is created.

Related Docs: gdsinp.dc2, gdsasn.dc2, gdscss.dc2, gdscpa.dc2, gdscsa.dc2

Updates:      Jan 23, 1990: KGB, document created.
              Dec 11, 1991: KGB, cancel replaced by reject.
              Jul  8, 1999: JPT, Implemented default code +100.
              Aug  4, 1999: JPT, allow multiple calls for different sets.
              Sep 24, 1999: JPT, fixed byte order bug in table copy.