xDir0ET.f

! 3<a> basal
      ddir(1,:) = (/-0.5000, 0.8660,  0.0000/)
      ddir(2,:) = (/1.0000,  0.0000,  0.0000/)
      ddir(3,:) = (/-0.5000, -0.8660, 0.0000/)
! 3<a> prismatic           
      ddir(4,:) = (/-0.5000, 0.8660,  0.0000/)
      ddir(5,:) = (/1.0000,  0.0000,  0.0000/)
      ddir(6,:) = (/-0.5000, -0.8660, 0.0000/)
! 6 <a> slip direc for 1st order pyramidal planes			 
   !        ddir(7,:) = (/ -0.5000,    0.8660,         0./)
		 !ddir(8,:) = (/-0.5000,    0.8660,         0./)
		 !ddir(9,:) = (/1.0000,         0.,         0./)
		 !ddir(10,:) = (/1.0000,         0.,         0./)
		 !ddir(11,:) = (/-0.5000,   -0.8660,         0./)
		 !ddir(12,:) = (/-0.5000,  -0.8660,         0./)
! 6 <c+a> slip directions for 2nd order pyramidal slip planes			 
      ddir(7,:) = (/-0.3536, 0.6124, 0.7071/)
      ddir(8,:) = (/-0.3536, 0.6124, -0.7071/)
      ddir(9,:) = (/ 0.7071, 0.0000,  0.7071/)
      ddir(10,:) =(/ 0.7071, 0.0000, -0.7071/)
      ddir(11,:) =(/-0.3536,-0.6124,  0.7071/)
      ddir(12,:) =(/-0.3536,-0.6124, -0.7071/)