From 3ffba037d4a996fc8ad66e33236d4c0ec32482aa Mon Sep 17 00:00:00 2001 From: Mahesh Balasubramaniam Date: Thu, 2 Aug 2012 17:52:07 +0000 Subject: [PATCH] Reading of euler angles from the loadcase corrected. --- code/DAMASK_spectral.f90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/code/DAMASK_spectral.f90 b/code/DAMASK_spectral.f90 index a1b36f1a0..b4c249d16 100644 --- a/code/DAMASK_spectral.f90 +++ b/code/DAMASK_spectral.f90 @@ -361,8 +361,6 @@ program DAMASK_spectral forall(k = 1_pInt:3_pInt) temp33_Real(k,1) = IO_floatValue(line,positions,j+l+k) if (p==1_pInt) temp33_Real = temp33_Real * inRad bc(loadcase)%rotation = math_EulerToR(temp33_Real(:,1)) - print *,"euler angles", temp33_Real(:,1) - print *,"Rotation Matrix", bc(loadcase)%rotation case('rotation','rot') ! assign values for the rotation of loadcase matrix temp_valueVector = 0.0_pReal forall (k = 1_pInt:9_pInt) temp_valueVector(k) = IO_floatValue(line,positions,j+k)