integer         exord,    epord
      common /pdata5/ exord(50),epord(30,50)