Parameter (Nlegmx=25)
      Parameter (Lechmx=500)
      Byte Lableg(Lechmx)
      Integer Lleg(Nlegmx),Symleg(Nlegmx),Linleg(Nlegmx),
     $        Sizleg,Boxleg,Lcolor(Nlegmx)
c
      Common/Legend/Lableg,Lleg,Nleg,Symleg,Linleg,Xleg,Yleg,Locleg,
     $ Boxleg,Legend,Sizleg,Legtit,Lcolor,Gblspc