Subroutine: SHOWSUB2 Purpose: Shows the user (in status line) the input subset and output subset the program is working on. File: showsub.c Author: K.G. Begeman Use: CALL SHOWSUB2( SET1 , Input CHARACTER*(*) SUBSET1 , Input INTEGER AXPERM1 , Input INTEGER ARRAY SET2 , Input CHARACTER*(*) SUBSET2 , Input INTEGER AXPERM2 ) Input INTEGER ARRAY SET1 Name of GDS input set. SUBSET1 Input subset coordinate word. AXPERM1 Array with axis sequence numbers returned by GDSINP. SET2 Name of GDS output set. SUBSET2 Output subset coordinate word. AXPERM2 Array with axis sequence numbers returned by GDSOUT. Example: FOR N = 1, NSUB CALL SHOWSUB2( SET1, SUBSET1(N), AXPERM1, SET2, SUBSET2(N), AXPERM2 ) REPEAT CALL GDSI_READ( SET1, CW1, CW2, .. , ERR ) ............ CALL GDSI_WRITE( SET2, CW1, CW2, .., ERR ) UNTIL (ERR .EQ. 0) CFOR Updates: Feb 20, 1988: KGB, Document created.