integer         inord    ,ipord
      common /pdata6/ inord(50),ipord(30,50)