Parameter (Lachmx=1750)
      Parameter (Nlabmx=50)
      Byte Label(Lachmx)
      Dimension LLabel(Nlabmx),Xlabel(Nlabmx),Ylabel(Nlabmx),
     $          Just(Nlabmx),Iprot(Nlabmx)
      Integer Sizlab(Nlabmx),Irot(Nlabmx)
c
      Common/Labls/Label,Llabel,Xlabel,Ylabel,Sizlab,Just,Nlab,Labcrd,
     $ Iprot,Irot