COMMON  /BLCK 0/  DATA(75,30), IDATA(30), ITITLE,        !JDL RAY17810
     1                  NTITLE, NWORD, DAET, TYME    !JDL
      character *4 ititle(30),ntitle(20),nword(16),daet(3),tyme(2)