Function:     GDSA_WCLOG

Purpose:      Write logical items to a column in a GDS table.

Category:     TABLES

File:         gdsa_table.c

Author:       K.G. Begeman

Use:          CALL GDSA_WCLOG( SET,      Input    CHARACTER*(*)
                               SUBSET,   Input    INTEGER
                               TNAME,    Input    CHARACTER*8
                               CNAME,    Input    CHARACTER*8
                               LDATA,    Input    LOGICAL ARRAY
                               ITEM,     Input    INTEGER
                               NITEMS,   Input    INTEGER
                               ERROR )   Output   INTEGER

              SET         Name of GDS set.
              SUBSET      Subset where table is to be created.
              TNAME       Name of GDS table.
              CNAME       Name of GDS column.
              LDATA       Array containing the data to be written
              ITEM        Row number where to start writing
                          IF zero data will be added at the end of
                          the column.
              NITEMS      Number of rows to write.
              ERROR       Error return code.

Updates:      Feb 18, 1989: KGB Document created.
              Nov 13, 1990: KGB Converted to C.