From 3749cd5564de6d3afd2d6d6f40fe3c5634ee29f8 Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Mon, 22 Jul 2013 09:43:35 +0000 Subject: [PATCH] changed "math_AxisAngleToR" to "math_axisAngleToR" to be consistent with spelling in math.f90 --- code/lattice.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/lattice.f90 b/code/lattice.f90 index 5ba6a3514..aca62bdcd 100644 --- a/code/lattice.f90 +++ b/code/lattice.f90 @@ -943,7 +943,7 @@ integer(pInt) function lattice_initializeStructure(struct,CoverA) lattice_Stwin(1:3,1:3,i,myStructure) = math_tensorproduct(lattice_td(1:3,i,myStructure), & lattice_tn(1:3,i,myStructure)) lattice_Stwin_v(1:6,i,myStructure) = math_Mandel33to6(math_symmetric33(lattice_Stwin(1:3,1:3,i,myStructure))) - lattice_Qtwin(1:3,1:3,i,myStructure) = math_AxisAngleToR(tn(1:3,i),180.0_pReal*INRAD) + lattice_Qtwin(1:3,1:3,i,myStructure) = math_axisAngleToR(tn(1:3,i),180.0_pReal*INRAD) lattice_shearTwin(i,myStructure) = ts(i) if (abs(math_trace33(lattice_Stwin(1:3,1:3,i,myStructure))) > 1.0e-8_pReal) & call IO_error(0_pInt,myStructure,i,0_pInt,ext_msg = 'dilatational twin Schmid matrix')