*COMDECK DIRTBLH
#     DIRECTIVES VALUE TABLE FOR HEADER PROCESSING                     #
  
      COMMON DIRTBLH; 
        BEGIN 
        ITEM DIRNUMH    I;   # NUMBER OF INPUT DIRECTIVES IN DIRTBH    #
        ARRAY DIRTBH [1:10];
          BEGIN 
          ITEM DIRHVAL       U(0,0,42); # DIRECTIVE VALUE              #
          ITEM DIRHID        I(0,42,18);# DIRECTIVE ID                 #
          ITEM DIRHWD        I(0,0,60); # DIRECTIVE WORD               #
          END 
        END 
  
