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.
95 lines
2.4 KiB
95 lines
2.4 KiB
subroutine Carraysetup
|
|
implicit none
|
|
include 'types.f'
|
|
include 'pvCnames.f'
|
|
include 'Carraydef.f'
|
|
include 'Carrays.f'
|
|
|
|
|
|
ci(1)=cc1
|
|
ci(2)=cc2
|
|
|
|
|
|
cii(z2(1,1))=cc11
|
|
cii(z2(1,2))=cc12
|
|
cii(z2(2,2))=cc22
|
|
|
|
ciii(z3(1,1,1))=cc111
|
|
ciii(z3(1,1,2))=cc112
|
|
ciii(z3(1,2,2))=cc122
|
|
ciii(z3(2,2,2))=cc222
|
|
|
|
ciiii(z4(1,1,1,1))=cc1111
|
|
ciiii(z4(1,1,1,2))=cc1112
|
|
ciiii(z4(1,1,2,2))=cc1122
|
|
ciiii(z4(1,2,2,2))=cc1222
|
|
ciiii(z4(2,2,2,2))=cc2222
|
|
|
|
ciiiii(z5(1,1,1,1,1))=cc11111
|
|
ciiiii(z5(1,1,1,1,2))=cc11112
|
|
ciiiii(z5(1,1,1,2,2))=cc11122
|
|
ciiiii(z5(1,1,2,2,2))=cc11222
|
|
ciiiii(z5(1,2,2,2,2))=cc12222
|
|
ciiiii(z5(2,2,2,2,2))=cc22222
|
|
|
|
ciiiiii(z6(1,1,1,1,1,1))=cc111111
|
|
ciiiiii(z6(1,1,1,1,1,2))=cc111112
|
|
ciiiiii(z6(1,1,1,1,2,2))=cc111122
|
|
ciiiiii(z6(1,1,1,2,2,2))=cc111222
|
|
ciiiiii(z6(1,1,2,2,2,2))=cc112222
|
|
ciiiiii(z6(1,2,2,2,2,2))=cc122222
|
|
ciiiiii(z6(2,2,2,2,2,2))=cc222222
|
|
|
|
ciiiiiii(z7(1,1,1,1,1,1,1))=cc1111111
|
|
ciiiiiii(z7(1,1,1,1,1,1,2))=cc1111112
|
|
ciiiiiii(z7(1,1,1,1,1,2,2))=cc1111122
|
|
ciiiiiii(z7(1,1,1,1,2,2,2))=cc1111222
|
|
ciiiiiii(z7(1,1,1,2,2,2,2))=cc1112222
|
|
ciiiiiii(z7(1,1,2,2,2,2,2))=cc1122222
|
|
ciiiiiii(z7(1,2,2,2,2,2,2))=cc1222222
|
|
ciiiiiii(z7(2,2,2,2,2,2,2))=cc2222222
|
|
|
|
|
|
czzi(1)=cc001
|
|
czzi(2)=cc002
|
|
|
|
czzii(z2(1,1))=cc0011
|
|
czzii(z2(1,2))=cc0012
|
|
czzii(z2(2,2))=cc0022
|
|
|
|
czziii(z3(1,1,1))=cc00111
|
|
czziii(z3(1,1,2))=cc00112
|
|
czziii(z3(1,2,2))=cc00122
|
|
czziii(z3(2,2,2))=cc00222
|
|
|
|
czziiii(z4(1,1,1,1))=cc001111
|
|
czziiii(z4(1,1,1,2))=cc001112
|
|
czziiii(z4(1,1,2,2))=cc001122
|
|
czziiii(z4(1,2,2,2))=cc001222
|
|
czziiii(z4(2,2,2,2))=cc002222
|
|
|
|
czziiiii(z5(1,1,1,1,1))=cc0011111
|
|
czziiiii(z5(1,1,1,1,2))=cc0011112
|
|
czziiiii(z5(1,1,1,2,2))=cc0011122
|
|
czziiiii(z5(1,1,2,2,2))=cc0011222
|
|
czziiiii(z5(1,2,2,2,2))=cc0012222
|
|
czziiiii(z5(2,2,2,2,2))=cc0022222
|
|
|
|
czzzzi(1)=cc00001
|
|
czzzzi(2)=cc00002
|
|
|
|
czzzzii(z2(1,1))=cc000011
|
|
czzzzii(z2(1,2))=cc000012
|
|
czzzzii(z2(2,2))=cc000022
|
|
|
|
czzzziii(z3(1,1,1))=cc0000111
|
|
czzzziii(z3(1,1,2))=cc0000112
|
|
czzzziii(z3(1,2,2))=cc0000122
|
|
czzzziii(z3(2,2,2))=cc0000222
|
|
|
|
czzzzzzi(1)=cc0000001
|
|
czzzzzzi(2)=cc0000002
|
|
|
|
|
|
return
|
|
end
|