c
c            Table presentation arrays
c
      Parameter (Ntachx=500)
      Parameter (Nhedmx=20)
      Parameter (Ntalmx=50)
      Byte Table(Ntachx)
      Integer Tablen,Tabcol,Tcolen
      Dimension Tablen(Ntalmx),Tabcol(Nhedmx),Tcolen(Nhedmx),
     $          Ndeci(Nhedmx),Nspac(Nhedmx),
     $          Round(Nhedmx),Icom(Nhedmx),Isci(Nhedmx)
c
      Common/Tabval/Table,Tablen,Tabcol,Tcolen,Ndeci,Nspac,Round,Ntab,
     $          Lpag,Icom,Isci,Iprtln
c