*COMDECK HPACOM9
  
      COMMON  /TR9/ IDX(18), PRIM(18), SECO(18), COUNT(31,2), NENTRYS 
  
