Function:      GDSC_WORD

Purpose:       apply a grid to a coordinate word and return the new one

Category:      GDS

File:          gdsc_word.c

Author:        W. Zwitser

Use:           INTEGER  GDSC_WORD( SET,            Input       character
                                   AXNUM,          Input       integer
                                   GRID,           Input       integer
                                   CWORD,          Input       integer
                                   ERROR )         In/Out      integer

               GDSC_WORD     new coordinate word ( CWORD + GRID )

               SET           set name 
               
               AXNUM         axis number ( 1...naxis )
               
               GRID          grid value to be added in CWORD

               CWORD         coordinate word

               ERR           0  = successful
                            <0  = a GDS error

Updates:       Dec 18, 1989: WZ, migrated to C
               Oct 31, 1990: WZ, 'naxis', etc. from setsta -> dsc_file
               Mar 24, 1994: JPT, modified to cooperate with GDS server.