223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

no extra function needed

This commit is contained in:
Martin Diehl 2020-04-29 14:52:18 +02:00
parent ce9bdc50a4
commit d0dcfedb47
1 changed files with 6 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
src/rotations.f90
View File

@ -1131,20 +1131,6 @@ pure function ho2ro(ho) result(ro)
end function ho2ro end function ho2ro
!---------------------------------------------------------------------------------------------------
!> @author Marc De Graef, Carnegie Mellon University
!> @brief convert homochoric to cubochoric
!---------------------------------------------------------------------------------------------------
pure function ho2cu(ho) result(cu)
real(pReal), intent(in), dimension(3) :: ho
real(pReal), dimension(3) :: cu
cu = Lambert_BallToCube(ho)
end function ho2cu
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
!> @author Marc De Graef, Carnegie Mellon University !> @author Marc De Graef, Carnegie Mellon University
!> @brief convert cubochoric to unit quaternion !> @brief convert cubochoric to unit quaternion
@ -1215,25 +1201,12 @@ pure function cu2ro(cu) result(ro)
end function cu2ro end function cu2ro
!---------------------------------------------------------------------------------------------------
!> @author Marc De Graef, Carnegie Mellon University
!> @brief convert cubochoric to homochoric
!---------------------------------------------------------------------------------------------------
pure function cu2ho(cu) result(ho)
real(pReal), intent(in), dimension(3) :: cu
real(pReal), dimension(3) :: ho
ho = Lambert_CubeToBall(cu)
end function cu2ho
!-------------------------------------------------------------------------- !--------------------------------------------------------------------------
!> @author Marc De Graef, Carnegie Mellon University !> @author Marc De Graef, Carnegie Mellon University
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH !> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
!> @brief map from 3D cubic grid to 3D ball !> @brief map from 3D cubic grid to 3D ball
!-------------------------------------------------------------------------- !--------------------------------------------------------------------------
pure function Lambert_CubeToBall(cu) result(ho) pure function cu2ho(cu) result(ho)
real(pReal), intent(in), dimension(3) :: cu real(pReal), intent(in), dimension(3) :: cu
real(pReal), dimension(3) :: ho, LamXYZ, XYZ real(pReal), dimension(3) :: ho, LamXYZ, XYZ
@ -1281,15 +1254,15 @@ pure function Lambert_CubeToBall(cu) result(ho)
endif center endif center
end function Lambert_CubeToBall end function cu2ho
!-------------------------------------------------------------------------- !--------------------------------------------------------------------------
!> @author Marc De Graef, Carnegie Mellon University !> @author Marc De Graef, Carnegie Mellon University
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH !> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
!> @brief map from 3D ball to 3D cubic grid !> @brief convert homochoric to cubochoric
!-------------------------------------------------------------------------- !--------------------------------------------------------------------------
pure function Lambert_BallToCube(ho) result(cu) pure function ho2cu(ho) result(cu)
real(pReal), intent(in), dimension(3) :: ho real(pReal), intent(in), dimension(3) :: ho
real(pReal), dimension(3) :: cu, xyz1, xyz3 real(pReal), dimension(3) :: cu, xyz1, xyz3
@ -1335,7 +1308,7 @@ pure function Lambert_BallToCube(ho) result(cu)
endif center endif center
end function Lambert_BallToCube end function ho2cu
!-------------------------------------------------------------------------- !--------------------------------------------------------------------------