integer ee0,ee1,ee2,ee3,ee4,
     . ee00,ee11,ee12,ee13,ee14,ee22,ee23,ee24,ee33,ee34,ee44,
     . ee001,ee002,ee003,ee004,ee111,ee112,ee113,ee114,ee122,ee123,
     . ee124,ee133,ee134,ee144,ee222,ee223,ee224,ee233,ee234,ee244,
     . ee333,ee334,ee344,ee444,
     . ee0000,ee0011,ee0012,ee0013,ee0014,ee0022,ee0023,ee0024,ee0033,
     . ee0034,ee0044,ee1111,ee1112,ee1113,ee1114,ee1122,ee1123,ee1124,
     . ee1133,ee1134,ee1144,ee1222,ee1223,ee1224,ee1233,ee1234,ee1244,
     . ee1333,ee1334,ee1344,ee1444,ee2222,ee2223,ee2224,ee2233,ee2234,
     . ee2244,ee2333,ee2334,ee2344,ee2444,ee3333,ee3334,ee3344,ee3444,
     . ee4444,Nee,Pee,Nemax

      integer
     . ee00001,ee00002,ee00003,ee00004,
     . ee00111,ee00112,ee00113,ee00114,ee00122,ee00123,ee00124,
     . ee00133,ee00134,ee00144,ee00222,ee00223,ee00224,ee00233,
     . ee00234,ee00244,ee00333,ee00334,ee00344,ee00444,
     . ee11111,ee11112,ee11113,ee11114,ee11122,ee11123,ee11124,ee11133,
     . ee11134,ee11144,ee11222,ee11223,ee11224,ee11233,ee11234,ee11244,
     . ee11333,ee11334,ee11344,ee11444,ee12222,ee12223,ee12224,ee12233,
     . ee12234,ee12244,ee12333,ee12334,ee12344,ee12444,ee13333,ee13334,
     . ee13344,ee13444,ee14444,ee22222,ee22223,ee22224,ee22233,ee22234,
     . ee22244,ee22333,ee22334,ee22344,ee22444,ee23333,ee23334,ee23344,
     . ee23444,ee24444,ee33333,ee33334,ee33344,ee33444,ee34444,ee44444

      parameter(ee0=1)
      parameter(ee1=2)
      parameter(ee2=3)
      parameter(ee3=4)
      parameter(ee4=5)
      parameter(ee00=6)
      parameter(ee11=7)
      parameter(ee12=8)
      parameter(ee13=9)
      parameter(ee14=10)
      parameter(ee22=11)
      parameter(ee23=12)
      parameter(ee24=13)
      parameter(ee33=14)
      parameter(ee34=15)
      parameter(ee44=16)
      parameter(ee001=17)
      parameter(ee002=18)
      parameter(ee003=19)
      parameter(ee004=20)
      parameter(ee111=21)
      parameter(ee112=22)
      parameter(ee113=23)
      parameter(ee114=24)
      parameter(ee122=25)
      parameter(ee123=26)
      parameter(ee124=27)
      parameter(ee133=28)
      parameter(ee134=29)
      parameter(ee144=30)
      parameter(ee222=31)
      parameter(ee223=32)
      parameter(ee224=33)
      parameter(ee233=34)
      parameter(ee234=35)
      parameter(ee244=36)
      parameter(ee333=37)
      parameter(ee334=38)
      parameter(ee344=39)
      parameter(ee444=40)
      parameter(ee0000=41)
      parameter(ee0011=42)
      parameter(ee0012=43)
      parameter(ee0013=44)
      parameter(ee0014=45)
      parameter(ee0022=46)
      parameter(ee0023=47)
      parameter(ee0024=48)
      parameter(ee0033=49)
      parameter(ee0034=50)
      parameter(ee0044=51)
      parameter(ee1111=52)
      parameter(ee1112=53)
      parameter(ee1113=54)
      parameter(ee1114=55)
      parameter(ee1122=56)
      parameter(ee1123=57)
      parameter(ee1124=58)
      parameter(ee1133=59)
      parameter(ee1134=60)
      parameter(ee1144=61)
      parameter(ee1222=62)
      parameter(ee1223=63)
      parameter(ee1224=64)
      parameter(ee1233=65)
      parameter(ee1234=66)
      parameter(ee1244=67)
      parameter(ee1333=68)
      parameter(ee1334=69)
      parameter(ee1344=70)
      parameter(ee1444=71)
      parameter(ee2222=72)
      parameter(ee2223=73)
      parameter(ee2224=74)
      parameter(ee2233=75)
      parameter(ee2234=76)
      parameter(ee2244=77)
      parameter(ee2333=78)
      parameter(ee2334=79)
      parameter(ee2344=80)
      parameter(ee2444=81)
      parameter(ee3333=82)
      parameter(ee3334=83)
      parameter(ee3344=84)
      parameter(ee3444=85)
      parameter(ee4444=86)
      parameter(ee00001=87)
      parameter(ee00002=88)
      parameter(ee00003=89)
      parameter(ee00004=90)
      parameter(ee00111=91)
      parameter(ee00112=92)
      parameter(ee00113=93)
      parameter(ee00114=94)
      parameter(ee00122=95)
      parameter(ee00123=96)
      parameter(ee00124=97)
      parameter(ee00133=98)
      parameter(ee00134=99)
      parameter(ee00144=100)
      parameter(ee00222=101)
      parameter(ee00223=102)
      parameter(ee00224=103)
      parameter(ee00233=104)
      parameter(ee00234=105)
      parameter(ee00244=106)
      parameter(ee00333=107)
      parameter(ee00334=108)
      parameter(ee00344=109)
      parameter(ee00444=110)
      parameter(ee11111=111)
      parameter(ee11112=112)
      parameter(ee11113=113)
      parameter(ee11114=114)
      parameter(ee11122=115)
      parameter(ee11123=116)
      parameter(ee11124=117)
      parameter(ee11133=118)
      parameter(ee11134=119)
      parameter(ee11144=120)
      parameter(ee11222=121)
      parameter(ee11223=122)
      parameter(ee11224=123)
      parameter(ee11233=124)
      parameter(ee11234=125)
      parameter(ee11244=126)
      parameter(ee11333=127)
      parameter(ee11334=128)
      parameter(ee11344=129)
      parameter(ee11444=130)
      parameter(ee12222=131)
      parameter(ee12223=132)
      parameter(ee12224=133)
      parameter(ee12233=134)
      parameter(ee12234=135)
      parameter(ee12244=136)
      parameter(ee12333=137)
      parameter(ee12334=138)
      parameter(ee12344=139)
      parameter(ee12444=140)
      parameter(ee13333=141)
      parameter(ee13334=142)
      parameter(ee13344=143)
      parameter(ee13444=144)
      parameter(ee14444=145)
      parameter(ee22222=146)
      parameter(ee22223=147)
      parameter(ee22224=148)
      parameter(ee22233=149)
      parameter(ee22234=150)
      parameter(ee22244=151)
      parameter(ee22333=152)
      parameter(ee22334=153)
      parameter(ee22344=154)
      parameter(ee22444=155)
      parameter(ee23333=156)
      parameter(ee23334=157)
      parameter(ee23344=158)
      parameter(ee23444=159)
      parameter(ee24444=160)
      parameter(ee33333=161)
      parameter(ee33334=162)
      parameter(ee33344=163)
      parameter(ee33444=164)
      parameter(ee34444=165)
      parameter(ee44444=166)
      parameter(Nee=166)
      parameter(Pee=10)
      parameter(Nemax=6)