Parameter (Mxtxbl=10)
      Integer Ntxl(Mxtxbl),Txblch(Mxtxbl),Txblcl(Mxtxbl),
     $        Txbloc(Mxtxbl),Txbord(Mxtxbl)
      Dimension Txtblx(Mxtxbl),Txtbly(Mxtxbl),Txblsp(Mxtxbl)
c
      Common/Txtblk/Ntxbl,Ntxl,Txblch,Txblcl,Txbloc,Txbord,Txtblx,
     $Txtbly,Txblsp