-
Notifications
You must be signed in to change notification settings - Fork 5
/
xNorm0ET.f
23 lines (22 loc) · 1.05 KB
/
xNorm0ET.f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
! basal plane for 3<a> slip
dnor(1,:) = (/0.0000,0.0000,1.0000/)
dnor(2,:) = (/0.0000,0.0000,1.0000/)
dnor(3,:) = (/0.0000,0.0000,1.0000/)
!prismatic planes for 3<a> slip
dnor(4,:) = (/-0.8660, -0.5000, 0.0000/)
dnor(5,:) = (/ 0.0000, -1.0000, 0.0000/)
dnor(6,:) = (/ 0.8660, -0.5000, 0.0000/)
! 6 1st order pyramidal slip planes for <a> slip
! dnor(7,:) = (/-0.7500, -0.4330, 0.5000/)
!dnor(8,:) = (/ 0.7500, 0.4330, 0.5000/)
!dnor(9,:) = (/ 0., 0.8660, 0.5000/)
!dnor(10,:) = (/ 0., -0.8660, 0.5000/)
!dnor(11,:) = (/0.7500, -0.4330, 0.5000/)
!dnor(12,:) = (/-0.7500, 0.4330, 0.5000/)
! 6 2nd order pyramidalslip planes for <c+a> slip
dnor(7,:) = (/ 0.3536, -0.6124, 0.7071/)
dnor(8,:) = (/-0.3536, 0.6124, 0.7071/)
dnor(9,:) = (/-0.7071, 0.0000, 0.7071/)
dnor(10,:) =(/ 0.7071, 0.0000, 0.7071/)
dnor(11,:) =(/ 0.3536, 0.6124, 0.7071/)
dnor(12,:) =(/-0.3536, -0.6124, 0.7071/)