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.
271 lines
7.4 KiB
271 lines
7.4 KiB
subroutine Darraysetup
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
include 'lib/TensorReduction/Include/pvDnames.f'
|
|
include 'lib/TensorReduction/recur/Include/Darraydef.f'
|
|
include 'lib/TensorReduction/recur/Include/Darrays.f'
|
|
|
|
|
|
di(1)=dd1
|
|
di(2)=dd2
|
|
di(3)=dd3
|
|
|
|
|
|
dii(z2(1,1))=dd11
|
|
dii(z2(1,2))=dd12
|
|
dii(z2(1,3))=dd13
|
|
dii(z2(2,2))=dd22
|
|
dii(z2(2,3))=dd23
|
|
dii(z2(3,3))=dd33
|
|
|
|
diii(z3(1,1,1))=dd111
|
|
diii(z3(1,1,2))=dd112
|
|
diii(z3(1,1,3))=dd113
|
|
|
|
diii(z3(1,2,2))=dd122
|
|
diii(z3(1,2,3))=dd123
|
|
diii(z3(1,3,3))=dd133
|
|
|
|
diii(z3(2,2,2))=dd222
|
|
diii(z3(2,2,3))=dd223
|
|
diii(z3(2,3,3))=dd233
|
|
diii(z3(3,3,3))=dd333
|
|
|
|
diiii(z4(1,1,1,1))=dd1111
|
|
diiii(z4(1,1,1,2))=dd1112
|
|
diiii(z4(1,1,1,3))=dd1113
|
|
|
|
diiii(z4(1,1,2,2))=dd1122
|
|
diiii(z4(1,1,2,3))=dd1123
|
|
diiii(z4(1,1,3,3))=dd1133
|
|
|
|
diiii(z4(1,2,2,2))=dd1222
|
|
diiii(z4(1,2,2,3))=dd1223
|
|
diiii(z4(1,2,3,3))=dd1233
|
|
|
|
diiii(z4(1,3,3,3))=dd1333
|
|
diiii(z4(2,2,2,2))=dd2222
|
|
diiii(z4(2,2,2,3))=dd2223
|
|
|
|
diiii(z4(2,2,3,3))=dd2233
|
|
diiii(z4(2,3,3,3))=dd2333
|
|
diiii(z4(3,3,3,3))=dd3333
|
|
|
|
|
|
diiiii(z5(1,1,1,1,1))=dd11111
|
|
diiiii(z5(1,1,1,1,2))=dd11112
|
|
diiiii(z5(1,1,1,1,3))=dd11113
|
|
|
|
diiiii(z5(1,1,1,2,2))=dd11122
|
|
diiiii(z5(1,1,1,2,3))=dd11123
|
|
diiiii(z5(1,1,1,3,3))=dd11133
|
|
|
|
diiiii(z5(1,1,2,2,2))=dd11222
|
|
diiiii(z5(1,1,2,2,3))=dd11223
|
|
diiiii(z5(1,1,2,3,3))=dd11233
|
|
|
|
diiiii(z5(1,1,3,3,3))=dd11333
|
|
diiiii(z5(1,2,2,2,2))=dd12222
|
|
diiiii(z5(1,2,2,2,3))=dd12223
|
|
|
|
diiiii(z5(1,2,2,3,3))=dd12233
|
|
diiiii(z5(1,2,3,3,3))=dd12333
|
|
diiiii(z5(1,3,3,3,3))=dd13333
|
|
|
|
diiiii(z5(2,2,2,2,2))=dd22222
|
|
diiiii(z5(2,2,2,2,3))=dd22223
|
|
diiiii(z5(2,2,2,3,3))=dd22233
|
|
|
|
diiiii(z5(2,2,3,3,3))=dd22333
|
|
diiiii(z5(2,3,3,3,3))=dd23333
|
|
diiiii(z5(3,3,3,3,3))=dd33333
|
|
|
|
|
|
diiiiii(z6(1,1,1,1,1,1))=dd111111
|
|
diiiiii(z6(1,1,1,1,1,2))=dd111112
|
|
|
|
diiiiii(z6(1,1,1,1,1,3))=dd111113
|
|
diiiiii(z6(1,1,1,1,2,2))=dd111122
|
|
|
|
diiiiii(z6(1,1,1,1,2,3))=dd111123
|
|
diiiiii(z6(1,1,1,1,3,3))=dd111133
|
|
|
|
diiiiii(z6(1,1,1,2,2,2))=dd111222
|
|
diiiiii(z6(1,1,1,2,2,3))=dd111223
|
|
|
|
diiiiii(z6(1,1,1,2,3,3))=dd111233
|
|
diiiiii(z6(1,1,1,3,3,3))=dd111333
|
|
|
|
diiiiii(z6(1,1,2,2,2,2))=dd112222
|
|
diiiiii(z6(1,1,2,2,2,3))=dd112223
|
|
|
|
diiiiii(z6(1,1,2,2,3,3))=dd112233
|
|
diiiiii(z6(1,1,2,3,3,3))=dd112333
|
|
|
|
diiiiii(z6(1,1,3,3,3,3))=dd113333
|
|
diiiiii(z6(1,2,2,2,2,2))=dd122222
|
|
|
|
diiiiii(z6(1,2,2,2,2,3))=dd122223
|
|
diiiiii(z6(1,2,2,2,3,3))=dd122233
|
|
|
|
diiiiii(z6(1,2,2,3,3,3))=dd122333
|
|
diiiiii(z6(1,2,3,3,3,3))=dd123333
|
|
|
|
diiiiii(z6(1,3,3,3,3,3))=dd133333
|
|
diiiiii(z6(2,2,2,2,2,2))=dd222222
|
|
|
|
diiiiii(z6(2,2,2,2,2,3))=dd222223
|
|
diiiiii(z6(2,2,2,2,3,3))=dd222233
|
|
|
|
diiiiii(z6(2,2,2,3,3,3))=dd222333
|
|
diiiiii(z6(2,2,3,3,3,3))=dd223333
|
|
|
|
diiiiii(z6(2,3,3,3,3,3))=dd233333
|
|
diiiiii(z6(3,3,3,3,3,3))=dd333333
|
|
|
|
|
|
diiiiiii(z7(1,1,1,1,1,1,1))=dd1111111
|
|
|
|
diiiiiii(z7(1,1,1,1,1,1,2))=dd1111112
|
|
diiiiiii(z7(1,1,1,1,1,1,3))=dd1111113
|
|
|
|
diiiiiii(z7(1,1,1,1,1,2,2))=dd1111122
|
|
diiiiiii(z7(1,1,1,1,1,2,3))=dd1111123
|
|
diiiiiii(z7(1,1,1,1,1,3,3))=dd1111133
|
|
|
|
diiiiiii(z7(1,1,1,1,2,2,2))=dd1111222
|
|
diiiiiii(z7(1,1,1,1,2,2,3))=dd1111223
|
|
diiiiiii(z7(1,1,1,1,2,3,3))=dd1111233
|
|
diiiiiii(z7(1,1,1,1,3,3,3))=dd1111333
|
|
|
|
diiiiiii(z7(1,1,1,2,2,2,2))=dd1112222
|
|
diiiiiii(z7(1,1,1,2,2,2,3))=dd1112223
|
|
diiiiiii(z7(1,1,1,2,2,3,3))=dd1112233
|
|
diiiiiii(z7(1,1,1,2,3,3,3))=dd1112333
|
|
diiiiiii(z7(1,1,1,3,3,3,3))=dd1113333
|
|
|
|
diiiiiii(z7(1,1,2,2,2,2,2))=dd1122222
|
|
diiiiiii(z7(1,1,2,2,2,2,3))=dd1122223
|
|
diiiiiii(z7(1,1,2,2,2,3,3))=dd1122233
|
|
diiiiiii(z7(1,1,2,2,3,3,3))=dd1122333
|
|
diiiiiii(z7(1,1,2,3,3,3,3))=dd1123333
|
|
diiiiiii(z7(1,1,3,3,3,3,3))=dd1133333
|
|
|
|
diiiiiii(z7(1,2,2,2,2,2,2))=dd1222222
|
|
diiiiiii(z7(1,2,2,2,2,2,3))=dd1222223
|
|
diiiiiii(z7(1,2,2,2,2,3,3))=dd1222233
|
|
diiiiiii(z7(1,2,2,2,3,3,3))=dd1222333
|
|
diiiiiii(z7(1,2,2,3,3,3,3))=dd1223333
|
|
diiiiiii(z7(1,2,3,3,3,3,3))=dd1233333
|
|
diiiiiii(z7(1,3,3,3,3,3,3))=dd1333333
|
|
|
|
diiiiiii(z7(2,2,2,2,2,2,2))=dd2222222
|
|
diiiiiii(z7(2,2,2,2,2,2,3))=dd2222223
|
|
diiiiiii(z7(2,2,2,2,2,3,3))=dd2222233
|
|
diiiiiii(z7(2,2,2,2,3,3,3))=dd2222333
|
|
diiiiiii(z7(2,2,2,3,3,3,3))=dd2223333
|
|
diiiiiii(z7(2,2,3,3,3,3,3))=dd2233333
|
|
diiiiiii(z7(2,3,3,3,3,3,3))=dd2333333
|
|
diiiiiii(z7(3,3,3,3,3,3,3))=dd3333333
|
|
|
|
|
|
dzzi(1)=dd001
|
|
dzzi(2)=dd002
|
|
dzzi(3)=dd003
|
|
|
|
dzzii(z2(1,1))=dd0011
|
|
dzzii(z2(1,2))=dd0012
|
|
dzzii(z2(1,3))=dd0013
|
|
dzzii(z2(2,2))=dd0022
|
|
dzzii(z2(2,3))=dd0023
|
|
dzzii(z2(3,3))=dd0033
|
|
|
|
dzziii(z3(1,1,1))=dd00111
|
|
dzziii(z3(1,1,2))=dd00112
|
|
dzziii(z3(1,1,3))=dd00113
|
|
dzziii(z3(1,2,2))=dd00122
|
|
dzziii(z3(1,2,3))=dd00123
|
|
dzziii(z3(1,3,3))=dd00133
|
|
dzziii(z3(2,2,2))=dd00222
|
|
dzziii(z3(2,2,3))=dd00223
|
|
dzziii(z3(2,3,3))=dd00233
|
|
dzziii(z3(3,3,3))=dd00333
|
|
|
|
dzziiii(z4(1,1,1,1))=dd001111
|
|
dzziiii(z4(1,1,1,2))=dd001112
|
|
dzziiii(z4(1,1,1,3))=dd001113
|
|
|
|
dzziiii(z4(1,1,2,2))=dd001122
|
|
dzziiii(z4(1,1,2,3))=dd001123
|
|
dzziiii(z4(1,1,3,3))=dd001133
|
|
|
|
dzziiii(z4(1,2,2,2))=dd001222
|
|
dzziiii(z4(1,2,2,3))=dd001223
|
|
dzziiii(z4(1,2,3,3))=dd001233
|
|
|
|
dzziiii(z4(1,3,3,3))=dd001333
|
|
dzziiii(z4(2,2,2,2))=dd002222
|
|
dzziiii(z4(2,2,2,3))=dd002223
|
|
|
|
dzziiii(z4(2,2,3,3))=dd002233
|
|
dzziiii(z4(2,3,3,3))=dd002333
|
|
dzziiii(z4(3,3,3,3))=dd003333
|
|
|
|
dzziiiii(z5(1,1,1,1,1))=dd0011111
|
|
|
|
dzziiiii(z5(1,1,1,1,2))=dd0011112
|
|
dzziiiii(z5(1,1,1,1,3))=dd0011113
|
|
|
|
dzziiiii(z5(1,1,1,2,2))=dd0011122
|
|
dzziiiii(z5(1,1,1,2,3))=dd0011123
|
|
dzziiiii(z5(1,1,1,3,3))=dd0011133
|
|
|
|
dzziiiii(z5(1,1,2,2,2))=dd0011222
|
|
dzziiiii(z5(1,1,2,2,3))=dd0011223
|
|
dzziiiii(z5(1,1,2,3,3))=dd0011233
|
|
dzziiiii(z5(1,1,3,3,3))=dd0011333
|
|
|
|
dzziiiii(z5(1,2,2,2,2))=dd0012222
|
|
dzziiiii(z5(1,2,2,2,3))=dd0012223
|
|
dzziiiii(z5(1,2,2,3,3))=dd0012233
|
|
dzziiiii(z5(1,2,3,3,3))=dd0012333
|
|
dzziiiii(z5(1,3,3,3,3))=dd0013333
|
|
|
|
dzziiiii(z5(2,2,2,2,2))=dd0022222
|
|
dzziiiii(z5(2,2,2,2,3))=dd0022223
|
|
dzziiiii(z5(2,2,2,3,3))=dd0022233
|
|
dzziiiii(z5(2,2,3,3,3))=dd0022333
|
|
dzziiiii(z5(2,3,3,3,3))=dd0023333
|
|
dzziiiii(z5(3,3,3,3,3))=dd0033333
|
|
|
|
dzzzzi(1)=dd00001
|
|
dzzzzi(2)=dd00002
|
|
dzzzzi(3)=dd00003
|
|
|
|
dzzzzii(z2(1,1))=dd000011
|
|
dzzzzii(z2(1,2))=dd000012
|
|
dzzzzii(z2(1,3))=dd000013
|
|
dzzzzii(z2(2,2))=dd000022
|
|
dzzzzii(z2(2,3))=dd000023
|
|
dzzzzii(z2(3,3))=dd000033
|
|
|
|
dzzzziii(z3(1,1,1))=dd0000111
|
|
|
|
dzzzziii(z3(1,1,2))=dd0000112
|
|
dzzzziii(z3(1,1,3))=dd0000113
|
|
|
|
dzzzziii(z3(1,2,2))=dd0000122
|
|
dzzzziii(z3(1,2,3))=dd0000123
|
|
dzzzziii(z3(1,3,3))=dd0000133
|
|
|
|
dzzzziii(z3(2,2,2))=dd0000222
|
|
dzzzziii(z3(2,2,3))=dd0000223
|
|
dzzzziii(z3(2,3,3))=dd0000233
|
|
dzzzziii(z3(3,3,3))=dd0000333
|
|
|
|
dzzzzzzi(1)=dd0000001
|
|
dzzzzzzi(2)=dd0000002
|
|
dzzzzzzi(3)=dd0000003
|
|
|
|
return
|
|
end
|