You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

244 lines
7.7 KiB

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)