Subroutine:   SHOWSUB1

Purpose:      Shows the user (in status line) which subset the
              program is working on.

File:         showsub.c

Author:       K.G. Begeman

Use:          CALL SHOWSUB1( SET    ,  Input   CHARACTER*(*)
                             SUBSET ,  Input   INTEGER
                             AXPERM )  Input   INTEGER ARRAY

              SET            Name of GDS set.
              SUBSET         Subset coordinate word.
              AXPERM         Array containing axis sequence
                             numbers (returned by GDSINP).

Example:      FOR N = 1, NSUB
                 CALL SHOWSUB1( SET, SUBSET(N), AXPERM )
                 REPEAT
                    CALL GDSI_READ( SET, CW1, CW2, .. , ERR )
                    ............
                 UNTIL (ERR .EQ. 0)
              CFOR

Updates:      Oct 25, 1988: KGB, Document created.