-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathxNorm1.f
24 lines (24 loc) · 1.26 KB
/
xNorm1.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
dnor(1,:) = (/0.70710678,0.70710678,0.00000000/)
dnor(2,:) = (/0.70710678,0.70710678,0.00000000/)
dnor(3,:) = (/-0.70710678,0.00000000,0.70710678/)
dnor(4,:) = (/-0.70710678,0.00000000,0.70710678/)
dnor(5,:) = (/-0.70710678,0.70710678,0.00000000/)
dnor(6,:) = (/-0.70710678,0.70710678,0.00000000/)
dnor(7,:) = (/0.00000000,0.70710678,-0.70710678/)
dnor(8,:) = (/0.00000000,0.70710678,-0.70710678/)
dnor(9,:) = (/0.00000000,0.70710678,0.70710678/)
dnor(10,:) = (/0.00000000,0.70710678,0.70710678/)
dnor(11,:) = (/0.70710678,0.00000000,0.70710678/)
dnor(12,:) = (/0.70710678,0.00000000,0.70710678/)
!dnor(13,:) = (/0.40824829,0.40824829,0.81649658/)
!dnor(14,:) = (/-0.40824829,0.40824829,0.81649658/)
!dnor(15,:) = (/0.40824829,-0.40824829,0.81649658/)
!dnor(16,:) = (/0.40824829,0.40824829,-0.81649658/)
!dnor(17,:) = (/0.40824829,0.81649658,0.40824829/)
!dnor(18,:) = (/-0.40824829,0.81649658,0.40824829/)
!dnor(19,:) = (/0.40824829,-0.81649658,0.40824829/)
!dnor(20,:) = (/0.40824829,0.81649658,-0.40824829/)
!dnor(21,:) = (/0.81649658,0.40824829,0.40824829/)
!dnor(22,:) = (/-0.81649658,0.40824829,0.40824829/)
!dnor(23,:) = (/0.81649658,-0.40824829,0.40824829/)
!dnor(24,:) = (/0.81649658,0.40824829,-0.40824829/)