From 46e2bbf80cf2181f5bf781482d58f8ebbdae47e1 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Tue, 8 Nov 2022 13:10:37 -0500 Subject: [PATCH] correct unit for quaternion output O --- src/phase_mechanical.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/phase_mechanical.f90 b/src/phase_mechanical.f90 index 325494e3c..e062bd5c0 100644 --- a/src/phase_mechanical.f90 +++ b/src/phase_mechanical.f90 @@ -926,7 +926,7 @@ subroutine results(group,ph) 'second Piola-Kirchhoff stress','Pa') case('O') call results_writeDataset(to_quaternion(phase_O(ph)%data),group//'/mechanical','O', & - 'crystal orientation as quaternion','q_0 (q_1 q_2 q_3)') + 'crystal orientation as quaternion q_0 (q_1 q_2 q_3)','1') call results_addAttribute('lattice',phase_lattice(ph),group//'/mechanical/O') if (any(phase_lattice(ph) == ['hP', 'tI'])) & call results_addAttribute('c/a',phase_cOverA(ph),group//'/mechanical/O')