-
Notifications
You must be signed in to change notification settings - Fork 5
/
xDir1.f
24 lines (24 loc) · 1.26 KB
/
xDir1.f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
ddir(1,:) = (/-0.57735027,0.57735027,0.57735027/)
ddir(2,:) = (/0.57735027,-0.57735027,0.57735027/)
ddir(3,:) = (/0.57735027,0.57735027,0.57735027/)
ddir(4,:) = (/0.57735027,-0.57735027,0.57735027/)
ddir(5,:) = (/0.57735027,0.57735027,0.57735027/)
ddir(6,:) = (/0.57735027,0.57735027,-0.57735027/)
ddir(7,:) = (/0.57735027,0.57735027,0.57735027/)
ddir(8,:) = (/-0.57735027,0.57735027,0.57735027/)
ddir(9,:) = (/0.57735027,-0.57735027,0.57735027/)
ddir(10,:) = (/0.57735027,0.57735027,-0.57735027/)
ddir(11,:) = (/-0.57735027,0.57735027,0.57735027/)
ddir(12,:) = (/0.57735027,0.57735027,-0.57735027/)
!ddir(13,:) = (/0.57735027,0.57735027,-0.57735027/)
!ddir(14,:) = (/0.57735027,-0.57735027,0.57735027/)
!ddir(15,:) = (/-0.57735027,0.57735027,0.57735027/)
!ddir(16,:) = (/0.57735027,0.57735027,0.57735027/)
!ddir(17,:) = (/0.57735027,-0.57735027,0.57735027/)
!ddir(18,:) = (/0.57735027,0.57735027,-0.57735027/)
!ddir(19,:) = (/0.57735027,0.57735027,0.57735027/)
!ddir(20,:) = (/-0.57735027,0.57735027,0.57735027/)
!ddir(21,:) = (/-0.57735027,0.57735027,0.57735027/)
!ddir(22,:) = (/0.57735027,0.57735027,0.57735027/)
!ddir(23,:) = (/0.57735027,0.57735027,-0.57735027/)
!ddir(24,:) = (/0.57735027,-0.57735027,0.57735027/)