From 71e870032f184377530ab0c6427a219355477d32 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Tue, 16 Oct 2007 14:47:09 +0000 Subject: [PATCH] output Euler angles in Degree --- trunk/CPFEM.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/trunk/CPFEM.f90 b/trunk/CPFEM.f90 index 398c53d2a..0004597bf 100644 --- a/trunk/CPFEM.f90 +++ b/trunk/CPFEM.f90 @@ -150,7 +150,7 @@ CPFEM_in) ! Integration point number use prec, only: pReal,pInt,ijaco,nCutback - use math, only: math_pDecomposition,math_RtoEuler + use math, only: math_pDecomposition,math_RtoEuler, inDeg use IO, only: IO_error use mesh, only: mesh_element use constitutive @@ -239,7 +239,7 @@ call IO_error(600) return endif - CPFEM_results(1:3,grain,CPFEM_in,cp_en) = math_RtoEuler(transpose(R)) ! orientation + CPFEM_results(1:3,grain,CPFEM_in,cp_en) = math_RtoEuler(transpose(R))*inDeg ! orientation CPFEM_results(4:3+constitutive_Nresults(grain,CPFEM_in,cp_en),grain,CPFEM_in,cp_en) = & constitutive_post_results(Tstar_v,state(:,i_then),CPFEM_dt,CPFEM_Temperature,grain,CPFEM_in,cp_en)