-
Notifications
You must be signed in to change notification settings - Fork 5
/
xDir2c.f
19 lines (18 loc) · 993 Bytes
/
xDir2c.f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
ddir(1,:) = (/0.70710678,-0.70710678,0.00000000/)
ddir(2,:) = (/0.00000000,0.70710678,-0.70710678/)
ddir(3,:) = (/0.70710678,0.00000000,-0.70710678/)
ddir(4,:) = (/0.70710678,0.70710678,0.00000000/)
ddir(5,:) = (/0.00000000,0.70710678,-0.70710678/)
ddir(6,:) = (/0.70710678,0.00000000,0.70710678/)
ddir(7,:) = (/0.70710678,0.70710678,0.00000000/)
ddir(8,:) = (/0.00000000,0.70710678,0.70710678/)
ddir(9,:) = (/0.70710678,0.00000000,-0.70710678/)
ddir(10,:) = (/0.70710678,-0.70710678,0.00000000/)
ddir(11,:) = (/0.00000000,0.70710678,0.70710678/)
ddir(12,:) = (/0.70710678,0.00000000,0.70710678/)
ddir(13,:) = (/0.00000000,0.70710678,0.70710678/)
ddir(14,:) = (/0.00000000,0.70710678,-0.70710678/)
ddir(15,:) = (/0.70710678,0.00000000,0.70710678/)
ddir(16,:) = (/0.70710678,0.00000000,-0.70710678/)
ddir(17,:) = (/0.70710678,0.70710678,0.000000000/)
ddir(18,:) = (/0.70710678,-0.70710678,0.000000000/)