Parameter (Ncolmx=250)
      Parameter (Npt_Max=2001)
      Parameter (Ntit_Char_Max = Ncolmx*55)
      Integer Ttllen
      Dimension Ttllen(Ncolmx),X(Npt_Max),Y(Npt_Max),Npoint(Ncolmx)
      Byte Title(Ntit_Char_Max),Titl(132)
c
      Common/Main/Ncols,Npoint,Last,X,Y,Title,Ttllen,Titl