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.
94 lines
2.8 KiB
94 lines
2.8 KiB
integer cc0,cc1,cc2,cc00,cc11,cc12,cc22,
|
|
. cc001,cc002,cc111,cc112,cc122,cc222,
|
|
. cc0000,cc0011,cc0012,cc0022,cc1111,cc1112,cc1122,cc1222,cc2222,
|
|
. cc00001,cc00002,cc00111,cc00112,cc00122,cc00222,cc11111,cc11112,
|
|
. cc11122,cc11222,cc12222,cc22222,
|
|
. cc000000,cc000011,cc000012,cc000022,
|
|
. cc001111,cc001112,cc001122,cc001222,cc002222,
|
|
. cc111111,cc111112,cc111122,cc111222,cc112222,cc122222,cc222222,
|
|
. cc0000001,cc0000002,cc0000111,cc0000112,cc0000122,cc0000222,
|
|
. cc0011111,cc0011112,cc0011122,cc0011222,cc0012222,cc0022222,
|
|
. cc1111111,cc1111112,cc1111122,cc1111222,cc1112222,cc1122222,
|
|
. cc1222222,cc2222222,
|
|
. Ncc,Pcc,Ncmax
|
|
|
|
parameter(cc0=1)
|
|
parameter(cc1=2)
|
|
parameter(cc2=3)
|
|
parameter(cc00=4)
|
|
parameter(cc11=5)
|
|
parameter(cc12=6)
|
|
parameter(cc22=7)
|
|
parameter(cc001=8)
|
|
parameter(cc002=9)
|
|
parameter(cc111=10)
|
|
parameter(cc112=11)
|
|
parameter(cc122=12)
|
|
parameter(cc222=13)
|
|
parameter(cc0000=14)
|
|
parameter(cc0011=15)
|
|
parameter(cc0012=16)
|
|
parameter(cc0022=17)
|
|
parameter(cc1111=18)
|
|
parameter(cc1112=19)
|
|
parameter(cc1122=20)
|
|
parameter(cc1222=21)
|
|
parameter(cc2222=22)
|
|
parameter(cc00001=23)
|
|
parameter(cc00002=24)
|
|
parameter(cc00111=25)
|
|
parameter(cc00112=26)
|
|
parameter(cc00122=27)
|
|
parameter(cc00222=28)
|
|
parameter(cc11111=29)
|
|
parameter(cc11112=30)
|
|
parameter(cc11122=31)
|
|
parameter(cc11222=32)
|
|
parameter(cc12222=33)
|
|
parameter(cc22222=34)
|
|
parameter(cc000000=35)
|
|
parameter(cc000011=36)
|
|
parameter(cc000012=37)
|
|
parameter(cc000022=38)
|
|
parameter(cc001111=39)
|
|
parameter(cc001112=40)
|
|
parameter(cc001122=41)
|
|
parameter(cc001222=42)
|
|
parameter(cc002222=43)
|
|
parameter(cc111111=44)
|
|
parameter(cc111112=45)
|
|
parameter(cc111122=46)
|
|
parameter(cc111222=47)
|
|
parameter(cc112222=48)
|
|
parameter(cc122222=49)
|
|
parameter(cc222222=50)
|
|
|
|
parameter(cc0000001=51)
|
|
parameter(cc0000002=52)
|
|
parameter(cc0000111=53)
|
|
parameter(cc0000112=54)
|
|
parameter(cc0000122=55)
|
|
parameter(cc0000222=56)
|
|
parameter(cc0011111=57)
|
|
parameter(cc0011112=58)
|
|
parameter(cc0011122=59)
|
|
parameter(cc0011222=60)
|
|
parameter(cc0012222=61)
|
|
parameter(cc0022222=62)
|
|
parameter(cc1111111=63)
|
|
parameter(cc1111112=64)
|
|
parameter(cc1111122=65)
|
|
parameter(cc1111222=66)
|
|
parameter(cc1112222=67)
|
|
parameter(cc1122222=68)
|
|
parameter(cc1222222=69)
|
|
parameter(cc2222222=70)
|
|
|
|
|
|
|
|
C---Number of different coeffs
|
|
parameter(Ncc=70)
|
|
C---Number of parameters for massless triangle
|
|
parameter(Pcc=6)
|
|
C---Number of different points in cache
|
|
parameter(Ncmax=100)
|