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.
29 lines
796 B
29 lines
796 B
integer bb0,bb1,bb00,bb11,bb001,bb111,dbb0,dbb1,dbb00,dbb11,
|
|
. bb0000,bb0011,bb1111,bb00001,bb00111,bb11111,
|
|
. bb000000,bb000011,bb001111,bb111111,
|
|
. Nbb,Pbb,Nbmax
|
|
parameter(bb0=1)
|
|
parameter(bb1= 2)
|
|
parameter(bb00= 3)
|
|
parameter(bb11= 4)
|
|
parameter(bb001= 5)
|
|
parameter(bb111= 6)
|
|
parameter(dbb0 =7)
|
|
parameter(dbb1= 8)
|
|
parameter(dbb00 =9)
|
|
parameter(dbb11 =10)
|
|
parameter(bb0000=11)
|
|
parameter(bb0011=12)
|
|
parameter(bb1111=13)
|
|
parameter(bb00001=14)
|
|
parameter(bb00111=15)
|
|
parameter(bb11111=16)
|
|
parameter(bb000000=17)
|
|
parameter(bb000011=18)
|
|
parameter(bb001111=19)
|
|
parameter(bb111111=20)
|
|
|
|
parameter(Nbb =20)
|
|
parameter(Pbb =3)
|
|
parameter(Nbmax =50)
|
|
|