character*8 ctime,ddat*10
      character title*80
      character filesuper*12
      character filebz*12
      character filepois*12
      character tem(10)*8
      character*1 ij(81),kj(81),ik(18)
      character*10 bcd(nelem),abc,efg(nelem)