*COMDECK COMSUBS
      BASED ARRAY SUBS[0] S(1);        # FOR HOLDING THE HIGH AND LOW  #
        BEGIN                          # BOUNDS IN ARRAY DECLARATIONS  #
        ITEM SUBSLOBND    I(0,0,21);   # LOW BOUND OF SUBSCRIPT        #
        ITEM SUBSHIBND    I(0,21,21);  # HIGH BOUND OF SUBSCRIPT       #
        ITEM SUBSDIM      U(0,57,3);   # NUMBER OF DIMENSIONS SPECIFIED#
                                       # FOR THIS ITEM                 #
        ITEM SUBSWRD      U(0,0,60);   # USED TO REFERENCE A WORD ENTRY#
        END 
