integer dd0,dd1,dd2,dd3,
     . dd00,dd11,dd12,dd13,dd22,dd23,dd33,
     . dd001,dd002,dd003,dd111,dd112,dd113,dd122,dd123,dd133,dd222,
     . dd223,dd233,dd333,
     . dd0000,dd0011,dd0012,dd0013,dd0022,dd0023,dd0033,dd1111,dd1112,
     . dd1113,dd1122,dd1123,dd1133,dd1222,dd1223,dd1233,dd1333,dd2222,
     . dd2223,dd2233,dd2333,dd3333,
     . dd00001,dd00002,dd00003,dd00111,dd00112,dd00113,dd00122,dd00123,
     . dd00133,dd00222,dd00223,dd00233,dd00333,dd11111,dd11112,dd11113,
     . dd11122,dd11123,dd11133,dd11222,dd11223,dd11233,dd11333,dd12222,
     . dd12223,dd12233,dd12333,dd13333,dd22222,dd22223,dd22233,dd22333,
     . dd23333,dd33333
      integer dd000000,
     . dd000011,dd000012,dd000013,dd000022,dd000023,dd000033,dd001111,
     . dd001112,dd001113,dd001122,dd001123,dd001133,dd001222,dd001223,
     . dd001233,dd001333,dd002222,dd002223,dd002233,dd002333,dd003333,
     . dd111111,dd111112,dd111113,dd111122,dd111123,dd111133,dd111222,
     . dd111223,dd111233,dd111333,dd112222,dd112223,dd112233,dd112333,
     . dd113333,dd122222,dd122223,dd122233,dd122333,dd123333,dd133333,
     . dd222222,dd222223,dd222233,dd222333,dd223333,dd233333,dd333333
      integer dd0000001,dd0000002,dd0000003,
     . dd0000111,dd0000112,dd0000113,dd0000122,dd0000123,dd0000133,
     . dd0000222,dd0000223,dd0000233,dd0000333,
     . dd0011111,dd0011112,dd0011113,dd0011122,dd0011123,dd0011133,
     . dd0011222,dd0011223,dd0011233,dd0011333,dd0012222,dd0012223,
     . dd0012233,dd0012333,dd0013333,dd0022222,dd0022223,dd0022233,
     . dd0022333,dd0023333,dd0033333,
     . dd1111111,dd1111112,dd1111113,dd1111122,dd1111123,dd1111133,
     . dd1111222,dd1111223,dd1111233,dd1111333,dd1112222,dd1112223,
     . dd1112233,dd1112333,dd1113333,dd1122222,dd1122223,dd1122233,
     . dd1122333,dd1123333,dd1133333,dd1222222,dd1222223,dd1222233,
     . dd1222333,dd1223333,dd1233333,dd1333333,dd2222222,dd2222223,
     . dd2222233,dd2222333,dd2223333,dd2233333,dd2333333,dd3333333,
     . Ndd,Pdd,Ndmax

      parameter(dd0=1)
      parameter(dd1=2)
      parameter(dd2=3)
      parameter(dd3=4)
      parameter(dd00=5)
      parameter(dd11=6)
      parameter(dd12=7)
      parameter(dd13=8)
      parameter(dd22=9)
      parameter(dd23=10)
      parameter(dd33=11)
      parameter(dd001=12)
      parameter(dd002=13)
      parameter(dd003=14)
      parameter(dd111=15)
      parameter(dd112=16)
      parameter(dd113=17)
      parameter(dd122=18)
      parameter(dd123=19)
      parameter(dd133=20)
      parameter(dd222=21)
      parameter(dd223=22)
      parameter(dd233=23)
      parameter(dd333=24)
      parameter(dd0000=25)
      parameter(dd0011=26)
      parameter(dd0012=27)
      parameter(dd0013=28)
      parameter(dd0022=29)
      parameter(dd0023=30)
      parameter(dd0033=31)
      parameter(dd1111=32)
      parameter(dd1112=33)
      parameter(dd1113=34)
      parameter(dd1122=35)
      parameter(dd1123=36)
      parameter(dd1133=37)
      parameter(dd1222=38)
      parameter(dd1223=39)
      parameter(dd1233=40)
      parameter(dd1333=41)
      parameter(dd2222=42)
      parameter(dd2223=43)
      parameter(dd2233=44)
      parameter(dd2333=45)
      parameter(dd3333=46)
      parameter(dd00001=47)
      parameter(dd00002=48)
      parameter(dd00003=49)
      parameter(dd00111=50)
      parameter(dd00112=51)
      parameter(dd00113=52)
      parameter(dd00122=53)
      parameter(dd00123=54)
      parameter(dd00133=55)
      parameter(dd00222=56)
      parameter(dd00223=57)
      parameter(dd00233=58)
      parameter(dd00333=59)
      parameter(dd11111=60)
      parameter(dd11112=61)
      parameter(dd11113=62)
      parameter(dd11122=63)
      parameter(dd11123=64)
      parameter(dd11133=65)
      parameter(dd11222=66)
      parameter(dd11223=67)
      parameter(dd11233=68)
      parameter(dd11333=69)
      parameter(dd12222=70)
      parameter(dd12223=71)
      parameter(dd12233=72)
      parameter(dd12333=73)
      parameter(dd13333=74)
      parameter(dd22222=75)
      parameter(dd22223=76)
      parameter(dd22233=77)
      parameter(dd22333=78)
      parameter(dd23333=79)
      parameter(dd33333=80)
      parameter(dd000000=81)
      parameter(dd000011=82)
      parameter(dd000012=83)
      parameter(dd000013=84)
      parameter(dd000022=85)
      parameter(dd000023=86)
      parameter(dd000033=87)
      parameter(dd001111=88)
      parameter(dd001112=89)
      parameter(dd001113=90)
      parameter(dd001122=91)
      parameter(dd001123=92)
      parameter(dd001133=93)
      parameter(dd001222=94)
      parameter(dd001223=95)
      parameter(dd001233=96)
      parameter(dd001333=97)
      parameter(dd002222=98)
      parameter(dd002223=99)
      parameter(dd002233=100)
      parameter(dd002333=101)
      parameter(dd003333=102)
      parameter(dd111111=103)
      parameter(dd111112=104)
      parameter(dd111113=105)
      parameter(dd111122=106)
      parameter(dd111123=107)
      parameter(dd111133=108)
      parameter(dd111222=109)
      parameter(dd111223=110)
      parameter(dd111233=111)
      parameter(dd111333=112)
      parameter(dd112222=113)
      parameter(dd112223=114)
      parameter(dd112233=115)
      parameter(dd112333=116)
      parameter(dd113333=117)
      parameter(dd122222=118)
      parameter(dd122223=119)
      parameter(dd122233=120)
      parameter(dd122333=121)
      parameter(dd123333=122)
      parameter(dd133333=123)
      parameter(dd222222=124)
      parameter(dd222223=125)
      parameter(dd222233=126)
      parameter(dd222333=127)
      parameter(dd223333=128)
      parameter(dd233333=129)
      parameter(dd333333=130)

      parameter(dd0000001=131)
      parameter(dd0000002=132)
      parameter(dd0000003=133)
      parameter(dd0000111=134)
      parameter(dd0000112=135)
      parameter(dd0000113=136)
      parameter(dd0000122=137)
      parameter(dd0000123=138)
      parameter(dd0000133=139)
      parameter(dd0000222=140)
      parameter(dd0000223=141)
      parameter(dd0000233=142)
      parameter(dd0000333=143)
      parameter(dd0011111=144)
      parameter(dd0011112=145)
      parameter(dd0011113=146)
      parameter(dd0011122=147)
      parameter(dd0011123=148)
      parameter(dd0011133=149)
      parameter(dd0011222=150)
      parameter(dd0011223=151)
      parameter(dd0011233=152)
      parameter(dd0011333=153)
      parameter(dd0012222=154)
      parameter(dd0012223=155)
      parameter(dd0012233=156)
      parameter(dd0012333=157)
      parameter(dd0013333=158)
      parameter(dd0022222=159)
      parameter(dd0022223=160)
      parameter(dd0022233=161)
      parameter(dd0022333=162)
      parameter(dd0023333=163)
      parameter(dd0033333=164)

      parameter(dd1111111=165)
      parameter(dd1111112=166)
      parameter(dd1111113=167)
      parameter(dd1111122=168)
      parameter(dd1111123=169)

      parameter(dd1111133=170)
      parameter(dd1111222=171)
      parameter(dd1111223=172)
      parameter(dd1111233=173)
      parameter(dd1111333=174)
      parameter(dd1112222=175)
      parameter(dd1112223=176)
      parameter(dd1112233=177)
      parameter(dd1112333=178)
      parameter(dd1113333=179)

      parameter(dd1122222=180)
      parameter(dd1122223=181)
      parameter(dd1122233=182)
      parameter(dd1122333=183)
      parameter(dd1123333=184)
      parameter(dd1133333=185)
      parameter(dd1222222=186)
      parameter(dd1222223=187)
      parameter(dd1222233=188)
      parameter(dd1222333=189)
      parameter(dd1223333=190)
      parameter(dd1233333=191)
      parameter(dd1333333=192)
      parameter(dd2222222=193)
      parameter(dd2222223=194)
      parameter(dd2222233=195)
      parameter(dd2222333=196)
      parameter(dd2223333=197)
      parameter(dd2233333=198)
      parameter(dd2333333=199)
      parameter(dd3333333=200)


      parameter(Ndd=200)
      parameter(Pdd=10)
      parameter(Ndmax=50)