Parameter (Nptmax=300)
      Parameter (Ncolmx=150)
      Parameter (Ntchmx=Ncolmx*55)
      Integer Ttllen
      Dimension Ttllen(Ncolmx),X(Nptmax),Y(Nptmax),Npoint(Ncolmx)
      Byte Title(Ntchmx),Titl(132)
c
      Common/Main/Ncols,Npoint,Last,X,Y,Title,Ttllen,Titl