Function:     GDSPOS

Purpose:      GDSPOS prompts the user to define a position in a subset.

Category:     USER IO, PHYSICAL COORDINATES

File:         gdspos.c

Author:       K.G. Begeman

Use:          INTEGER GDSPOS( POS     ,  Output  double precision array
                              MAXPOS  ,  Input   integer
                              DEFAULT ,  Input   integer
                              KEYWORD ,  Input   character*(*)
                              MESSAGE ,  Input   character*(*)
                              SET     ,  Input   character*(*)
                              SUBSET  )  Input   integer

              GDSPOS    Returns the number of positions entered.
              POS       Array which contains the positions entered
                        by the user. Each position occupies N items
                        in POS, where N is the dimension of the subset.
                        The positions are all converted to grid coordinates.
              MAXPOS    Maximum number of positions to enter. Note that
                        the size of POS must not be smaller than
                        MAXPOS * N, where N is the dimension of the
                        subset.
              DEFAULT   Default code as in USERxxx.
              KEY       Keyword prompts the user to enter positions.
                        If KEY is blank then GDSPOS will prompt with
                        keyword 'POS='.
              MESSAGE   Message for the user. If MESSAGE is blank then
                        GDSPOS will generate its own message.
              SET       Name of set for which a position is wanted.
              SUBSET    Coordinate word of the subset for which
                        positions should be defined.

Description:  GDSPOS is a subroutine which prompts the user to enter
              one or more positions. I always follows upon a call to
              GDSINP. The input syntax is described in dcdpos.dc3.

Related Docs: dcdpos.dc3

Updates:      Feb  4, 1990: KGB, Document created.
              Dec 10, 1991: KGB, cancel replaced by reject.