From 28ffdb7c1c2627158ad0deb288074d9a9c9aa283 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 24 Feb 2022 12:41:14 +0100 Subject: [PATCH] simplified --- src/phase_mechanical.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/phase_mechanical.f90 b/src/phase_mechanical.f90 index 4c4e703f0..b13675e38 100644 --- a/src/phase_mechanical.f90 +++ b/src/phase_mechanical.f90 @@ -920,11 +920,11 @@ subroutine results(group,ph) call results_writeDataset(phase_mechanical_S(ph)%data,group//'/mechanical/','S', & 'second Piola-Kirchhoff stress','Pa') case('O') - call results_writeDataset(to_quaternion(phase_O(ph)%data),group//'/mechanical',output_mechanical(ph)%label(ou),& + call results_writeDataset(to_quaternion(phase_O(ph)%data),group//'/mechanical','O', & 'crystal orientation as quaternion','q_0 (q_1 q_2 q_3)') - call results_addAttribute('lattice',phase_lattice(ph),group//'/mechanical/'//output_mechanical(ph)%label(ou)) + 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/'//output_mechanical(ph)%label(ou)) + call results_addAttribute('c/a',phase_cOverA(ph),group//'/mechanical/O') end select end do